Hervé
XLDnaute Barbatruc
re bonjour
suite à ce post (je vous laisse voir le code que j'ai laissé) :
Lien supprimé
ou j'ai utilisé un dictionnary.
Pour connaitre le nombre d'éléments de mon dictionnary, j'ai incrémenté une variable X :
For Each c In plage
If data.Exists(CStr(c)) = False Then
data.Add Item:=Application.CountIf(plage, c), Key:=CStr(c)
x = x + 1 'ICI...........
End If
Next c
puis j'ai utilisé ce X pour définir ma plage de renvoi :
Range(Cells(1, 2), Cells(x, 2)) = Application.Transpose(data.Items)
Range(Cells(1, 1), Cells(x, 1)) = Application.Transpose(data.Keys)
je ne voudrais pas utilisé de variable, j'ai essayé :
Range(Cells(1, 2), Cells(data.Items.Count, 2)) = Application.Transpose(data.Items)
MAIS NIET
si quelqu'un avait une idée.
d'avance merci
salut
suite à ce post (je vous laisse voir le code que j'ai laissé) :
Lien supprimé
ou j'ai utilisé un dictionnary.
Pour connaitre le nombre d'éléments de mon dictionnary, j'ai incrémenté une variable X :
For Each c In plage
If data.Exists(CStr(c)) = False Then
data.Add Item:=Application.CountIf(plage, c), Key:=CStr(c)
x = x + 1 'ICI...........
End If
Next c
puis j'ai utilisé ce X pour définir ma plage de renvoi :
Range(Cells(1, 2), Cells(x, 2)) = Application.Transpose(data.Items)
Range(Cells(1, 1), Cells(x, 1)) = Application.Transpose(data.Keys)
je ne voudrais pas utilisé de variable, j'ai essayé :
Range(Cells(1, 2), Cells(data.Items.Count, 2)) = Application.Transpose(data.Items)
MAIS NIET
si quelqu'un avait une idée.
d'avance merci
salut