Discussion :

[Mut]

Bonjour,

Je souhaiterais savoir comment dépasser/contourner la limitation des 255 caractère dans une méthode range.

J'ai 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
15
 
Dim LigneDeb, LigneFin, i As Integer
Dim MultiRange As String
 
LigneDeb = 1
LigneFin = 45
 
 
For i = LigneDeb To LigneFin
 
MultiRange = MultiRange & i & ":" & i & ","
 
Next
MultiRange = Left(MultiRange, Len(MultiRange) - 1)
Range(MultiRange).Select

Cela fait parfaitement ce que je souhaite, c'est à dire de sélectionner les lignes de 1 à 45 de manière dissociée (l'équivalent d'une sélection de ligne avec la touche ctrl)

Le problème survient lorsque LigneFin dépasse 45 car la variable MultiRange dépasse les 255 caractères et provoque donc une erreur.

La méthode UNION ne semble pas correspondre car elle ne semble pas sélectionner les lignes unitairement

Si vous avez une idée...

Merci

[jurassic pork]

Hello,
voici un code qui utilise Union et qui sélectionne les 100 premières lignes paires d'un classeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TestRange()
Dim myArray(1 To 100)
Dim X As Integer
Dim RangeToSelect As Range
For X = 1 To 100
myArray(X) = X * 2
Next X
Set RangeToSelect = Rows(myArray(LBound(myArray)))
For X = LBound(myArray) + 1 To UBound(myArray)
  Set RangeToSelect = Union(RangeToSelect, Rows(myArray(X)))
Next
RangeToSelect.Select
End Sub

Ami calmant, J.P

[Mut]

Bonjour Jurassic Pork,

Merci pour ta réponse.

Le problème avec ce code c'est qu'il sélectionne les lignes paires.

J'ai donc commenté le *2 mais le résultat n'est plus pareil car il sélectionne une plage et non les lignes distinctement.

L'objectif est d'utiliser à la fin de ce code la commande suivante :

Code :

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

1
2
 
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Imaginons le code suivant :

Code :

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

1
2
3
4
 
    Range("1:1,2:2,3:3,4:4,5:5,6:6,7:7,8:8,9:9,10:10").Select
    Range("A10").Activate
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Le résultat est différent de

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TestRange()
Dim myArray(1 To 100)
Dim X As Integer
Dim RangeToSelect As Range
For X = 1 To 100
myArray(X) = X 
Next X
Set RangeToSelect = Rows(myArray(LBound(myArray)))
For X = LBound(myArray) + 1 To UBound(myArray)
  Set RangeToSelect = Union(RangeToSelect, Rows(myArray(X)))
Next
RangeToSelect.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

[jurassic pork]

Hello,
tu peux essayer cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TestRange()
Dim myArray(1 To 10)
Dim X As Integer
Dim RangeToSelect As Range
For X = 1 To 10
myArray(X) = X
Next X
Set RangeToSelect = Cells(1, 1)
For X = LBound(myArray) + 1 To UBound(myArray)
  If X Mod 2 = 0 Then
  Set RangeToSelect = Union(RangeToSelect, Cells(X, 3))
  Else
  Set RangeToSelect = Union(RangeToSelect, Cells(X, 1))
  End If
Next
RangeToSelect.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

L'astuce consiste à générer une plage avec des cellules non contigues pour chaque ligne et à la fin, on sélectionne la totalité des lignes des cellules de la plage. Union ne va pas dans ce cas "rassembler" les cellules qui sont non contigues.
Ami calmant, J.P

[Mut]

Désolé pour le retour tardif !

C'est parfait, merci beaucoup