Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

casse tête checkbox (vba)

  • Initiateur de la discussion Initiateur de la discussion kmile51
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

K

kmile51

Guest
Bonjour,

Dans le code VBA que je suis en train de créer je voudrais:

1/ qu'un userform apparaisse nous donnant le choix entre solution A et solution B
2/ Si solution A selectionné alors la checkbox a est cochée et la checkbox b est cochée
3/Si solution B selectionnée alors la checkbox a est décochée et la checkbox b est cochée.

enfin,

4/ Si les checkbox a et b sont cochées alors s'en résulte une action D
5/ Si la checkbox a est décochée et la checkbox b est cochée alors s'en résulte une action E.

Mon problème: A partir de l'étape 2 ça cafouille sec !
 

Pièces jointes

Re : casse tête checkbox (vba)

Bonjour,

les étapes 1, 2 et 3 existent et fonctionnent !

Code:
Private Sub CommandButton_CRB_Click()
       
   UserForm1.Hide
   Feuil3.CheckBox_crb.Value = True
   Feuil3.CheckBox_poids.Value = True
                        
End Sub

il suffit de rajouter le code de l'action D avant le End Sub

idem pour l'autre bouton

Par ailleurs il existe Sub Worksheet() 'condition de base. Il vaut mieux ne pas donner aux procédures des noms réservés VBA , il y a risque de conflit!

A+

Edit: Bienvenu sur XLD
 
Re : casse tête checkbox (vba)

Bonjour,

désolé pour mon absence mais quelques impératifs ont du me faire mettre le code de côté.

Mon problème: Lorsque je lance le code
1/ il débute par la fonction "Sub general()"
2/ une commandbutton apparaît et me demande de choisir entre deux tests.

NORMALEMENT : lorsque je clic sur un test la fenêtre disparaît et la ou les cases se cochent et s'en suit un nouveau programme

DANS LE CAS PRESENT: la fenêtre disparaît et c'est tout ... BUG !
Pourquoi ces codes ci dessous n'arrivent pas à se mettre en place ?

Private Sub CommandButton_CRB_Click()

UserForm1.Hide
Feuil3.CheckBox_crb.Value = True
Feuil3.CheckBox_poids.Value = True

End Sub

Private Sub CommandButton_poids_Click()

UserForm1.Hide

Feuil3.CheckBox_crb.Value = False
Feuil3.CheckBox_poids.Value = True

End Sub

HYPOTHESE: lors du déroulement du code la fonction n'arrive pas à atteindre la feuil3 pour cocher les cases...
 
Re : casse tête checkbox (vba)

Bon alors, après création d'un bouton de lancement de programme sur mon fichier j'ai l'immense joie de vous dire que ça marche !!! YIHAAAAAAAA
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
90
Affichages
7 K
Réponses
3
Affichages
454
Réponses
4
Affichages
281
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…