Discussion :

[Matbb2000]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("pPlageConstante").Select

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("pPlageConstante").ClearContents

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

[Matbb2000]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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

J'ai écrit

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

Connais-tu l'outil gestionnaire des noms ?

[Matbb2000]

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Algoplus]

Bonjour à tous,

une autre solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Matbb2000]

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