Doublons

[Hulk]

Hello les amis,

Ce code ne devrait-il pas môter les doublons ?

Private Sub UserForm_Initialize()
Dim j As Integer
    
    For j = 2 To Range("A65536").End(xlUp).Row
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j

End Sub

Merci pour votre aide !

Bonne soirée, Hulk.

 

[Cousinhub]

Re : Doublons

Bonsoir,

une autre procédure.....

Private Sub UserForm_Initialize()
Dim MesNoms As Object, Cel As Range
Set MesNoms = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2:A" & [A65000].End(xlUp).Row)
    If Not MesNoms.Exists(Cel.Value) Then MesNoms.Add Cel.Value, Cel.Value
Next Cel
ComboBox1.List = MesNoms.items
End Sub

 

[Fo_rum]

Re : Doublons

Salut,

tu as oublié une ligne :

Private Sub UserForm_Initialize()
    Dim j As Integer
    For j = 2 To Range("A65536").End(xlUp).Row
       [B] ComboBox1 = Range("A" & j)[/B]
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
End Sub

 

[Hulk]

Re : Doublons

Re,

Merci pour vos réponses !

Bhbh, bien ton code... Hop dans le tiroir 😀

Ok Fo_rum merci. Juste que...
Possible qu'il n'affiche pas le premier nom à l'ouverture de l'USF ?

Merci encore Messieurs (Dames ?).

Cdt, Hulk.

 

[Hulk]

Re : Doublons

Re,

C'est bon Fo_rum.. merci.

Bye et bonne soirée, Hulk.

 

[Hulk]

Re : Doublons

Encore moi 😀

Au fait c'était pour aboutir à cette question :

Au lieu de supprimer les doublons, comment faire pour qu'il y affiche comme suit :
N°1 "Toto, N°2 Toto, N°1 Tata, N°2 Tata etc...

Qu'il les numérote !

Voyez le fichier, la demande est plus clair !

Merci bien pour votre aide.

Hulk.

 

[JCGL]

Re : Doublons

Bonjour à tous,
Salut Doc Banner,

Un essai avec une colonne masquée

A++
A+ à tous

 

[Hulk]

Re : Doublons

Hello,

Merci JC ! Pff j'étais pas loin 😛

En revanche pour le Titi et l'Tutu 😀, j'vais tâcher d'éviter le "N°1" vu qu'ils sont seuls !

Ca doit se passer dans la formule j'imagine ??

Me penche dessus.

Merci encore JC !

@+, Hulk.

 

[JCGL]

Re : Doublons

Bonjour à tous,

Pour me faire pardonner ma blague Carambar sur le sondage de BH²....

=SI(NB.SI($A$2:$A$100;A2)=1;A2;"N° "&NB.SI($A$2:A2;A2)&" "&A2)

et tirer vers le bas

A++
A+ à tous

 

[Hulk]

Re : Doublons

Re,

T'as d'la chance JC, j'commencais à craquer ma chemise 😀

T'es tout pardonné !

Merci compagnon et bonne soirée !

P. S. 0,000000000001 😀

 

[Hulk]

Re : Doublons

Re,

Hm si je veux compliquer la chose en inversant le "N°" et le chiffre, pour plutôt écrire 1ère fois, 2ème fois, 3ème fois etc. Je coince grr !

Merci pour l'aide !

@+, Hulk.

 

[Fo_rum]

Re : Doublons

Salut,

à essayer !
Pour contrôler,
en B2 --> =NB.SI(A2:A$2;A2)
puis tirer vers le bas.

 

[Hulk]

Re : Doublons

Hello tout le monde,

Nickel Fo_rum, en plus j'allais demander comment faire ça par macro, ben j'suis servi.. et je pleure ouin ouin j'ai encore beaucoup à apprendre 😛

Maintenant va falloir que j'y adapte à mon binz et surtout que je la comprenne 😀

Merci bien et bon week à tous !

Hulk.

 

[Hulk]

Re : Doublons

Hello.. encore mi !

Fo_rum elle est cool ta macro, par contre si tu pouvais juste me donner quelques explications.. tu serais gentil 😀

Et avis aux autres amateurs aussi, je rencontre un autre prob, voyez plutôt le fichier joint car mieux expliqué dedans.

Merci pour votre aide.
Et merci encore Fo_rum.

Hulk.

 

[Fo_rum]

Re : Doublons

Salut,

voir nouveau fichier avec Macro et Formules.
Pas lu ton dernier fichier donc @+ sans doute