lister des valeurs dans une plage

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Novembre 2006

• #16

Re : lister des valeurs dans une plage

Bonsoir le fil, bonsoir le forum,


Cette version 4 supprime les anciennes valeurs avant de commencer.

 

Pièces jointes

• mariobross V4.zip

  18.6 KB · Affichages: 29

Vote positif 0 Vote négatif

mariobross

XLDnaute Occasionnel

• 19 Novembre 2006

• #17

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 .

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Novembre 2006

• #18

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.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Novembre 2006

• #19

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

Code:

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

 

Vote positif 0 Vote négatif