tableau et selection

[yvon]

bonjour

je souhaite faire une sélection simultanée de lignes dont les indices se trouvent dans une tableau de type "Array".

Comment puis je faire, je n'arrive pas écrire le bout de code.

Merci d'avance.

 

[Abel]

Bonjour yvon,

Sous quelle forme est ton Array ?

Sinon, pour sélectionner plusieurs lignes : Range ("3:3,6:6,9:9").Select


Abel

 

[yvon]

ben en fait je redimensionne mon tableau à chaque boucle
**********************************************
Dim compt As Integer
compt = 1
Dim MyArray() As Integer

For i = 1 To 50
If Cells(i, 1) < 30 Then
compt = compt + 1
ReDim Preserve MyArray(compt - 1)
MyArray(compt - 1) = i
Cells(compt - 1, 4) = i
End If
Next i

Dim indice As Integer
*************************************************

A la suite de ce bout de code, je souhaite sélectionner les lignes dont les indices sont dans le tableau

 

[Abel]

yvon,

Essaies la méthode "Union".


Je reviens tout à l'heure.


A+

Abel

 

[Abel]

Re,

Sub SelectionLignes()
Dim plage As Range
compt = 1
Dim MyArray() As Integer
For i = 1 To 30
If Cells(i, 1) < 30 Then
compt = compt + 1
ReDim Preserve MyArray(compt - 1)
MyArray(compt - 1) = i
Cells(compt - 1, 4) = i
If compt = 2 Then Set plage = Range(i & ":" & i)
Set plage = Application.Union(plage, Range(i & ":" & i))
End If
Next i
plage.Select
End Sub


En espérant que cela te dépanne.

Abel

 

[yvon]

Merci beaucoup ça marche du diable et ça va me simplifier le boulot.

Merci encore