lister des valeurs dans une plage

[mariobross]

Bonjour à tous , je voudrai lister des valeurs dans une plage exlage de cellule ("b1:f10000") en exécutant un code ou une fonction je voudrai retrouver les valeurs présentes dans la plage de cellule ,sur une seule colone par exemple la colone A , merci pour vos suggestions.

 

[Robert]

Re : lister des valeurs dans une plage

Bonsoir le fil, bonsoir le forum,


Cette version 4 supprime les anciennes valeurs avant de commencer.

 

[mariobross]

Re : lister des valeurs dans une plage

Je me doutais q'il y aurai une version 4, je n'ose plus rien dire si ce n'est que le code est parfait .

 

[Robert]

Re : lister des valeurs dans une plage

Bonsoir le fil, bonsoir le forum,

Parfait eût été te pondre la version 4 d'entrée... Là c'est "la crevette" comme dis José. Ça tâtonne. ça tâtonne... Merci pour les compliments.

 

[Hervé]

Re : lister des valeurs dans une plage

bonjour tout le monde

je me permet de poster une autre syntaxe possible.

renvoi en colonne K et L

Dim plage As Range
Dim data As New Collection
Dim c As Range
Dim i As Integer

With Feuil1
    Set plage = .Range("e8:i" & .Range("e65536").End(xlUp).Row)
End With

On Error Resume Next
For Each c In plage
    If Not c = "" Then data.Add c, CStr(c)
Next c
On Error GoTo 0

For i = 1 To data.Count
    Feuil1.Cells(i + 6, "K") = data(i)
    Feuil1.Cells(i + 6, "L") = Application.CountIf(plage, data(i))
Next i

salut