Problème avec les Checkbox !

Fermé
Aurélie - 9 juil. 2008 à 23:26
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 10 juil. 2008 à 01:21
Bonsoir à tous,

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

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

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.

Si vous avez une solution, Merci d'avance.

Aurélie

2 réponses

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 247
9 juil. 2008 à 23:55
Bonjour,

J'essaierai qcq chose comme :
Dim plage As Range
If CheckBox1 Then plage = Range("b2:c2")
If CheckBox2 Then plage = Union(plage, Range("b3:c3"))
If CheckBox3 Then plage = Union(plage, Range("b4:c4"))
plage.Select

eric
0
Merci pour cette tentative mais j'ai 1 message d'erreur : "variable objet ou variable de bloc with non définie".

? que dois-je faire ?
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 247
10 juil. 2008 à 01:21
difficile de dire sans la totalité du code...
Ajoute quand même Set plage = "" avant le 1er if
eric
0