Problème avec les Checkbox !

Question

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

eriiic · Answer

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

eriiic · Answer

difficile de dire sans la totalité du code...
Ajoute quand même Set plage = "" avant le 1er if
eric

Problème avec les Checkbox !

2 réponses

Discussions similaires

Newsletters