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
Bonsoir,

Je cherche à selectionner plusieurs cellules en cochant des CheckBox à partir d'un CommandButton mais ...

le problème c'est qu'il me sélectionne uniquement cellules de la dernière ligne (b4:c4) alors que moi je voudrai qu'il me sélectionne tout les cellules sélectionnée par les CheckBox.

If CheckBox1 = True Then Range("b2:c2").Select
If CheckBox2 = True Then Range("b3:c3").Select
If CheckBox3 = True Then Range("b4:c4").Select

Merci d'avance, pour précieuse aide.

Stéphanie

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
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
0