Exécution après validation

Bonjour la communauté,

Voila, j'ai un userform avec 3 farmes. La première doit être sélectionnée, la deuxième est sélectionnée par défaut et la troisième c'est une checkbox donc optionnelle. Aujourd'hui lorsque je clique sur un bouton option de la frame1, la macro (en faite ce sont des mise en page définies) s'exécute. Je souhaiterais qu'elle ne s’exécute qu'après avoir cliqué sur le bouton valider.

Auriez-vous une solution à m'apporter ???

Par avance merci

Bonjour Janhman,

Bonjour le Forum,

lorsque je clique sur un bouton option de la frame1, la macro s'exécute.

Est-ce que tu peux nous fournir les codes ?

Si la macro s'éxécute, c'est qu'il doit bien y avoir une ligne qui lui demande de s'éxécuter ;D

A dispo!

Private Sub OptionButton2_Click()
Application.EnableEvents = False
    Application.ScreenUpdating = False

 Columns("A:AY").EntireColumn.Hidden = True
 Columns("F:M").EntireColumn.Hidden = False
 Columns("O:Q").EntireColumn.Hidden = False
 Columns("S:S").EntireColumn.Hidden = False
 Columns("U:U").EntireColumn.Hidden = False
 Columns("W:Z").EntireColumn.Hidden = False
 Range("L1").Select
Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Exemple pour un bouton option. A chaque fois que je clique sur un bouton, hop ca met en page... mais j'aimerai qu'elle ne s'exécute qu'après avoir valider !!

Re-

Tu disais que tu avais un bouton "Valider", modifie donc ton code comme ci-dessous :

Private Sub OptionButton2_Click()
'Supprime tout le code concernant tes OptionButton, même le Private Sub et le End Sub
End Sub
Private Sub Button1Valider_Click()
'Ici tu met tes codes OptionButton :
Application.EnableEvents = False
Application.ScreenUpdating = False
If OptionButton2 = True Then
    Columns("A:AY").EntireColumn.Hidden = True
    Columns("F:M").EntireColumn.Hidden = False
    Columns("O:Q").EntireColumn.Hidden = False
    Columns("S:S").EntireColumn.Hidden = False
    Columns("U:U").EntireColumn.Hidden = False
    Columns("W:Z").EntireColumn.Hidden = False
End If
If OptionButton3 = True Then
    'Code du Button3
End If
If OptionButton4 = True Then
    'Code du Button4
End If
'ect...
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Voilà! Comme sa le code s'éxécute uniquement si tu appuie sur ton Bouton Valider et si l'option Button correspondant est coché ;D

A dispo!

Merci, c'est exactement ca.

Rechercher des sujets similaires à "execution validation"