VBA je suis coincé !!!
Fermé
Stéphanie
-
9 juil. 2008 à 23:29
CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 - 10 juil. 2008 à 09:20
CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 - 10 juil. 2008 à 09:20
A voir également:
- VBA je suis coincé !!!
- Comment enlever un bout de chargeur coincé dans l'iphone - Forum iPad
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba range avec variable ✓ - Forum VB / VBA
1 réponse
CapitainCo
Messages postés
126
Date d'inscription
mardi 24 juin 2008
Statut
Membre
Dernière intervention
5 novembre 2009
61
10 juil. 2008 à 09:20
10 juil. 2008 à 09:20
If CheckBox1 = True And CheckBox2 = False And CheckBox3 = False Then
Range("b2:c2").Select
ElseIf CheckBox2 = True And CheckBox1 = False And CheckBox3 = False Then
Range("b3:c3").Select
ElseIf CheckBox3 = True And CheckBox1 = False And CheckBox2 = False Then
Range("b4:c4").Select
ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox3 = False Then
Range("b2:c3").Select
ElseIf CheckBox1 = True And CheckBox3 = True And CheckBox2 = False Then
Range("b2:c4").Select
ElseIf CheckBox2 = True And CheckBox3 = True And CheckBox1 = False Then
Range("b3:c4").Select
ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Range("b2:c4").Select
End If
le code en réaliser pour marcher sur un bouton, par sur le clique des checkboxs mais sit u veux le mettre sur les checkbox tu dois repeter 3 fois le code, mais je pense pas que cela soit ton objectif
Range("b2:c2").Select
ElseIf CheckBox2 = True And CheckBox1 = False And CheckBox3 = False Then
Range("b3:c3").Select
ElseIf CheckBox3 = True And CheckBox1 = False And CheckBox2 = False Then
Range("b4:c4").Select
ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox3 = False Then
Range("b2:c3").Select
ElseIf CheckBox1 = True And CheckBox3 = True And CheckBox2 = False Then
Range("b2:c4").Select
ElseIf CheckBox2 = True And CheckBox3 = True And CheckBox1 = False Then
Range("b3:c4").Select
ElseIf CheckBox1 = True And CheckBox2 = True And CheckBox3 = True Then
Range("b2:c4").Select
End If
le code en réaliser pour marcher sur un bouton, par sur le clique des checkboxs mais sit u veux le mettre sur les checkbox tu dois repeter 3 fois le code, mais je pense pas que cela soit ton objectif