Recherche Dans Un Classeur

[FREDPLONGEUR]

Cela est certainement facile mais pas pour un débutant comme
moi.
Je cherche à passer en revue toute une colonne d'une feuille afin d'y extraire
des donnéees tant que la sélection n'est pas une cellule vide. Dans le temps
je savais le faire en Quick Basic mais les syntax actuelles me déroutent.
Merci beauoup d'avance pour un exemple de macro.

 

[Bebere]

Re : Recherche Dans Un Classeur

bonjour Fredplongeur
'une petite démo

Sub parcours()
Dim cel As Range
Dim Plg() As Variant 'tableau avec résultat
Dim L As Integer 'index tableau

With Sheets("NomFeuille") 'à adapter NomFeuille
For Each cel In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
If cel <> "" Then
L = L + 1
ReDim Preserve Plg(1 To L) 'voir aide
Plg(L) = cel
End If
Next cel
'écrit en colonne d
For L = 1 To UBound(Plg, 1) 'voir aide
.Range("D" & L) = Plg(L)
Next L

End With

End Sub