Selection de plusieurs plages avec une variable

Bonjour le forum,
Voilà mon problème de débutant : Je souhaite sélectionner les plages Br-Dr et Fr-Hr (avec r une variable (appelé compteur dans le code)) le tout en une seule ligne. J'ai fait ça mais ça ne fonctionne pas :

Range(Cells(compteur, 2) & Cells(compteur, 4) & ":" & Cells(compteur, 6) & Cells(compteur, 8)).Select

Ma demande est-elle réalisable ? Si oui, quelqu'un pourrait m'éclairer
Merci d'avance
Un apprenti codeur

Bonjour,
Le plus simple est de nommer les plages non contiguës.
Pour l'exemple la plage est nommée pPlageConstante

Exemple avec la méthode Select

Code:

---

Range("pPlageConstante").Select

---

Exemple pour supprimer le contenu de cette plage avec la méthode ClearContents

Code:

---

Range("pPlageConstante").ClearContents

---

pPlageConstante =Feuil1!$B$3:$B$15;Feuil1!$D$3:$D$7;Feuil1!$F$9:$F$15

Merci mais du coup j'ai toujours un soucis avec la déclaration de ma plage. J'ai mis :

Code:

---

1 2	Dim Plage As Range Set Plage = Cells(compteur,2):Cells(compteur,4),Cells(compteur,6):Cells(compteur,8)

---

Il y a une erreur mais je ne connais pas bien la syntaxe du langage et je ne sait pas comment faire
Merci d'avance

Bonjour,

Citation:

---

Merci mais du coup j'ai toujours un soucis avec la déclaration de ma plage

---

J'ai écrit

Citation:

---

Le plus simple est de nommer les plages non contiguës.

---

Connais-tu l'outil gestionnaire des noms ?

Pas du tout, je débute en VBA ...
Qu'entends-tu par "les plages non contiguës " ?

Bonjour,

Citation:

---

Pas du tout, je débute en VBA ...
Qu'entends-tu par "les plages non contiguës " ?

---

Cela n'a rien à voir avec le VBA, c'est Excel

On appelle "plage" (de cellules) dès qu'il y a plus d'une cellule. Exemple : A2:C10
A2:C10 est une plage contiguë
A2:C10; E20:E30; F30:H40 est une plage non contiguë

La sélection d'une plage non contiguë se fait en appuyant sur la touche Ctrl

En VBA nommer cette plage non contiguë et la sélectionner

Code:

---

1 2 3 4 5 6

Sub T() ' Exemple pour les cellules A2:C10; E20:E30; F30:H40 Const addr As String = "=Feuil1!$A$2:$C$10,Feuil1!$E$20:$E$30,Feuil1!$F$30:$H$40" ThisWorkbook.Names.Add Name:="maPlage", RefersTo:=addr Range("maPlage").Select End Sub

---

Bonjour à tous,

une autre solution:

Code:

---

1 2 3 4

r=2 Range("B" & r & ":D" & r & ",F" & r & ":H" & r).Select 'ou Union(Range(Cells(r, 2), Cells(r, 4)), Range(Cells(r, 6), Cells(r, 8))).Select

---

A+

Merci à tous les deux ! La solution de Algoplus fonctionne !
Bonne après-midi