Discussion :

[buhrne]

Salut le forum,

Voilà je dois sélectionner sur une feuille un nombre n de plages dont la taille est connue (ligne 6 à 66 d'une colonne) mais dont l'emplacement est variable (toutes les deux colonnes).

Exemple pour n = 2

je sélectionne (B6:B66) et (D666)


J'ai fais ce petit bout de code mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim n As Integer, i As Integer
n = Sheets("generalites").Range("F7").Value
Sheets("DONNEES VITESSES").Activate
Dim MaPlage As Range, Plage1 As Range
 
 
For i = 1 To n
Set Plage1 = Range(Cells(6, i * 2), Cells(66, i * 2))
 
Set MaPlage = Union(MaPlage, Plage1)
Next i

ça bloque sur le union

J'ai essayé de faire plein de choses différentes mais rien ne fonctionne.

[oOVaveOo]

Bonjour,

Il faut que tu affecte 2 plages à maplage, exemple :

Code :

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

1
2
3
4
5
For i = 1 To n
Set Plage1 = Range(Cells(6, i * 2), Cells(66, i * 2))
set Plage2 = range("A2") 
Set MaPlage = Union(Plage2, Plage1)
Next i

[buhrne]

Ouais ça fonctionne, mais que pour n=2

Quand je passe à n=3 (par exemple), il doit me sélectionner les lignes 6 à 66 des colonnes B, D et F, or avec ce code, je n'ai que les colonnes B et F.

En fait, à chaque tour de boucle je veux qu'il me rajoute une sélection à la sélection existante C'est pas évident

[oOVaveOo]

Tu peux essayer ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 1 To n
    Select Case i
        Case 1
        Set plage1 = Range(Cells(6, i * 2), Cells(66, i * 2))
 
        Case Else
        Set Plage2 = Range(Cells(6, i * 2), Cells(66, i * 2))
        Set plage1 = Union(plage1, Plage2)
 
    End Select
    plage1.Select
Next i
Set Plage1 = Nothing
Set plage2 = Nothing

A savoir que pour incrémenter i de 2 en 2, tu peux faire :

Code :

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

1
2
For i = 2 To n * 2 step 2
'... etc

[buhrne]

Merci ça roule au poil.

Je n'étais pas loin du résultat mais je n'étais pas allé dans cette direction.
Par contre je ne veux pas incrémenter mon i de 2 en 2, c'est pour ça que j'ai laissé à Step 1