Donc ca veut dire qu'il n'y a Pas de solutionBonsoir MAHARO,
Pour resultat1, en C2 =REPT(A2;A2=B2)
Pour Result2 demandez à votre voyante extra lucide.
A+
C'est vous qui le dites, pas moi.Donc ca veut dire qu'il n'y a Pas de solution
Sub test()
Dim Dico As Object, C As Range, I As Long
Set Dico = CreateObject("Scripting.Dictionary")
For Each C In Range("A2", Cells(Rows.Count, 2).End(xlUp))
If Not Dico.exists(C.Value) Then
Dico.Add C.Value, C.Value
End If
Next C
For Each Item In Dico.keys
I = I + 1
[D1].Offset(I) = Item
Next Item
End Sub
Non ce n'est Pas a vous qué je respond,c'est a tous le monde,Je ne sais pas si c'est à moi que tu réponds ? J'ai reporté les données des colonnes A et B sur la feuille Feuil1.
Daniel
Bonjour,Re,
En attendant le fichier exemple et/ou que je devienne visible...
En relisant le fil, mon interprétation pour RESULT2
Regarde la pièce jointe 1178824
NB: Malheureusement ne fonctionne pas sur Excel 2010.
BonjourBonjour a tous,
Je vous joint un fichier,qui explique le soucis
...
Cordialement