tableau et selection

A

Abel

Guest

• 30 Juillet 2004

• #2

Bonjour yvon,

Sous quelle forme est ton Array ?

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


Abel

 

Vote positif 0 Vote négatif

Y

yvon

Guest

• 30 Juillet 2004

• #3

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

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 30 Juillet 2004

• #4

yvon,

Essaies la méthode "Union".


Je reviens tout à l'heure.


A+

Abel

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 30 Juillet 2004

• #5

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

 

Vote positif 0 Vote négatif

Y

yvon

Guest

• 30 Juillet 2004

• #6

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

Merci encore

 

Vote positif 0 Vote négatif