Clic sur un CommandButton à condition que...
Elo97133
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 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
A voir également:
- Clic sur un CommandButton à condition que...
- Excel cellule couleur si condition texte - Guide
- Atout clic - Télécharger - Éducatifs
- Clic gauche souris ne fonctionne plus - Forum souris / Touchpad
- Double clic ouvre propriété ✓ - Forum Windows
- Clic droit sans souris - Forum Windows 10
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!!