Checkbox pour sélectionner des plages

Bonjour tous le monde!

J'ai un userform avec dedans 5 Checkbox.
Si un checkbox est coché alors je veux qu'une plage de cellule soit sélectionné.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub CommandButton1_Click()   'Valider impression Select Case CheckBox1.Value Case True: Sheets("Impression de l'ensemble").Select Range("A1:J21").Select Case False: End Select Select Case CheckBox2.Value Case True: Sheets("Impression de l'ensemble").Select Range("A22:J42").Select Case False: End Select Select Case CheckBox3.Value Case True: Sheets("Impression de l'ensemble").Select Range("A43:J63").Select Case False: End Select Select Case CheckBox4.Value Case True: Sheets("Impression de l'ensemble").Select Range("A64:J84").Select Case False: End Select Select Case CheckBox5.Value Case True: Sheets("Impression de l'ensemble").Select Range("A85:J105").Select Case False: End Select   End Sub

---

Le problème avec ce code, il n'accumule pas les plages sélectionnés du style : Range("A64:A84,A85:J105").select

Auriez vous une solution pour que chaque case coché permettent de maintenir les plages sélectionnés.

Merci d'avance

Aurel ++

Salut

Il y a peut être plus simple mais tu peu faire comme ca je pense :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Sub CommandButton2_Click() If CheckBox1 = True Then Range("A1:J21").Select If CheckBox2 = True Then Range("A22:J42").Select If CheckBox3 = True Then Range("A43:J63").Select If CheckBox4 = True Then Range("A64:J84").Select If CheckBox5 = True Then Range("A85:J105").Select If CheckBox1 And CheckBox2 = True Then Range("A1:J21,A22:J42").Select If CheckBox1 And CheckBox3 = True Then Range("A1:J21,A43:J63").Select If CheckBox1 And CheckBox4 = True Then Range("A1:J21,A64:J84").Select If CheckBox1 And CheckBox5 = True Then Range("A1:J21,A85:J105").Select If CheckBox2 And CheckBox3 = True Then Range("A22:J42,A43:J63").Select If CheckBox2 And CheckBox4 = True Then Range("A22:J42,A64:J84").Select If CheckBox2 And CheckBox5 = True Then Range("A22:J42,A85:J105").Select If CheckBox3 And CheckBox4 = True Then Range("A43:J63,A64:J84").Select If CheckBox3 And CheckBox5 = True Then Range("A43:J63,A85:J105").Select If CheckBox4 And CheckBox5 = True Then Range("A64:J84,A85:J105").Select If CheckBox1 And CheckBox2 And CheckBox3 = True Then Range("A1:J21,A22:J42,A43:J63").Select If CheckBox1 And CheckBox2 And CheckBox4 = True Then Range("A1:J21,A22:J42,A64:J84").Select If CheckBox1 And CheckBox2 And CheckBox5 = True Then Range("A1:J21,A22:J42,A85:J105").Select If CheckBox1 And CheckBox3 And CheckBox4 = True Then Range("A1:J21,A43:J63,A64:J84").Select If CheckBox1 And CheckBox3 And CheckBox5 = True Then Range("A1:J21,A43:J63,A85:J105").Select If CheckBox1 And CheckBox4 And CheckBox5 = True Then Range("A1:J21,A64:J84,A85:J105").Select If CheckBox2 And CheckBox3 And CheckBox4 = True Then Range("A22:J42,A43:J63,A64:J84").Select If CheckBox2 And CheckBox3 And CheckBox5 = True Then Range("A22:J42,A43:J63,A85:J105").Select If CheckBox2 And CheckBox4 And CheckBox5 = True Then Range("A22:J42,A64:J84,A85:J105").Select If CheckBox3 And CheckBox4 And CheckBox5 = True Then Range("A43:J63,A64:J84,A85:J105").Select If CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 = True Then Range("A1:J21,A22:J42,A43:J63,A64:J84").Select If CheckBox1 And CheckBox2 And CheckBox3 And CheckBox5 = True Then Range("A1:J21,A22:J42,A43:J63,A85:J105").Select If CheckBox1 And CheckBox2 And CheckBox4 And CheckBox5 = True Then Range("A1:J21,A22:J42,A64:J84,A85:J105").Select If CheckBox1 And CheckBox3 And CheckBox4 And CheckBox5 = True Then Range("A1:J21,A43:J63,A64:J84,A85:J105").Select If CheckBox2 And CheckBox3 And CheckBox4 And CheckBox5 = True Then Range("A22:J42,A43:J63,A64:J84,A85:J105").Select If CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 And CheckBox5 = True Then Range("A1:J21,A22:J42,A43:J63,A64:J84,A85:J105").Select End Sub

---

Bonne chance