Clic sur un CommandButton à condition que...
Elo97133
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je vous contacte car j'ai un petit souci...
Je vais essayer de me faire comprendre...
Je suis sur un Userform et je veux cliquer sur le bouton Suite (Commandbutton2) afin d'ouvrir un autre Userform mais je veux que cela soit possible seulement si l'utilisateur a cliqué au préalable sur le bouton Enregistrer (Commandbutton4). S'il ne l'a pas fait je lui envoie un message d'erreur.
J'ai écrit quelque-chose mais cela ne fonctionne pas! Je ne sais pas quel contrôle choisir ou bien s'il faut faire carrément autre chose.
Sub CommandButton2_Click()
'Ouvrir la page suivante Endettement à condition que le bouton Enregistrer ait
'été cliqué
If CommandButton4.Default = False Then
Endettement.Show
Else
MsgBox "Vous devez enregistrer les informations saisies et calculées, à l'aide du bouton Enregistrer."
End If
End Sub
J'attends vos suggestions avec impatience!
A bientôt
Elo
Je vous contacte car j'ai un petit souci...
Je vais essayer de me faire comprendre...
Je suis sur un Userform et je veux cliquer sur le bouton Suite (Commandbutton2) afin d'ouvrir un autre Userform mais je veux que cela soit possible seulement si l'utilisateur a cliqué au préalable sur le bouton Enregistrer (Commandbutton4). S'il ne l'a pas fait je lui envoie un message d'erreur.
J'ai écrit quelque-chose mais cela ne fonctionne pas! Je ne sais pas quel contrôle choisir ou bien s'il faut faire carrément autre chose.
Sub CommandButton2_Click()
'Ouvrir la page suivante Endettement à condition que le bouton Enregistrer ait
'été cliqué
If CommandButton4.Default = False Then
Endettement.Show
Else
MsgBox "Vous devez enregistrer les informations saisies et calculées, à l'aide du bouton Enregistrer."
End If
End Sub
J'attends vos suggestions avec impatience!
A bientôt
Elo
Configuration: Windows XP Firefox 2.0.0.6
A voir également:
- Clic sur un CommandButton à condition que...
- Atout clic - Télécharger - Éducatifs
- Excel cellule couleur si condition texte - Guide
- Condition optimale téléphone ✓ - Forum Mobile
- Clic gauche souris ne fonctionne plus ✓ - Forum Windows
- Clic droit sans souris ✓ - Forum Bureautique
Je comprends le principe de ton explication mais quelque chose ne fonctionne toujours pas.... (je suis novice.. faut m'excuser)
J'ai alors modifié et j'ai mis:
'Bloquer le bouton Suite dès qu'une modification est effectuée sur le Userform
Private Sub Userform_Change()
CommandButton2.Enabled = False
End Sub
Private Sub CommandButton2_Click() 'Bouton Suite
'Rendre impossible le fait de passer à la page suivante si le userform n'a pas été
'enregistré via la Bouton Enregistrer
If CommandButton2.Enabled = False Then
MsgBox "Vous devez enregistrer les informations saisies et calculées, à l'aide du bouton Enregistrer."
End If
End Sub
Private Sub CommandButton4_Click() 'Bouton Enregistrer
Worksheets("Recuperationinfos").Range("D13") = Val(Label6)
Worksheets("Recuperationinfos").Range("D15") = Val(Label10)
Worksheets("Recuperationinfos").Range("D17") = Val(Label13)
Worksheets("Recuperationinfos").Range("D19") = Val(Label15)
CommandButton2.Enabled = True
End Sub
Ca ne marche pas ;-(
Peux-tu jeter un coup d'oeil stp?
Merci d'avance
Merciiiii!!