Exécution après validation Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jahman
Membre habitué
Membre habitué
Messages : 102
Inscrit le : 14 juin 2017
Version d'Excel : 2016 FR

Message par jahman » 26 février 2019, 10:24

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
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'141
Appréciations reçues : 102
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 26 février 2019, 10:33

Bonjour Janhman,
Bonjour le Forum,
jahman a écrit :
26 février 2019, 10:24
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!
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
j
jahman
Membre habitué
Membre habitué
Messages : 102
Inscrit le : 14 juin 2017
Version d'Excel : 2016 FR

Message par jahman » 26 février 2019, 10:40

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 !!
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'141
Appréciations reçues : 102
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 26 février 2019, 10:51

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!
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
j
jahman
Membre habitué
Membre habitué
Messages : 102
Inscrit le : 14 juin 2017
Version d'Excel : 2016 FR

Message par jahman » 26 février 2019, 13:27

Merci, c'est exactement ca.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message