Scinder plusieurs colonnes, sans doublon de ligne

Bonjour,

J'ai plusieurs plans comptables dans des colonnes différentes et je souhaite récupérer tous les numéros de comptes existants dans chaque colonne, mais en évitant bien entendu d'avoir des doublons pour les comptes communs à chaque colonne.

Comment faire ?

Il me semble que la formule existe, mais quelle est-elle ?

Merci d'avance de votre aide.

Bonjour,

Il me semble que la fonction =NB.SI pourrait faire l'affaire.

Si tu as un exemple, je pourrais m'en assurer.

Bon courage

catdog a écrit :

Bonjour,

Il me semble que la fonction =NB.SI pourrait faire l'affaire.

Si tu as un exemple, je pourrais m'en assurer.

Bon courage

Merci.

Ci-joint, une classeur avec un exemple.

https://www.excel-pratique.com/~files/doc/1eqo6Classeur2.xls

En rouge, ce que je voudrais obtenir automatiquement.

Merci de ton aide.

Bonjour,

essaie avec ce code :

Sub plans_comptables()
Dim MesPlans As Object, Cel As Range, I As Byte, DerLig As Long
Set MesPlans = CreateObject("Scripting.Dictionary")
For I = 1 To 5 Step 2  ' A adapter, ici colonne A, C et E
    DerLig = Cells(65000, I).End(xlUp).Row
    For Each Cel In Range(Cells(5, I), Cells(DerLig, I))
        If Not MesPlans.Exists(Cel.Value) Then MesPlans.Add Cel.Value, Cel.Offset(0, 1).Value
    Next Cel
Next I
[I5].Resize(MesPlans.Count, 1).Value = Application.Transpose(MesPlans.keys)
[J5].Resize(MesPlans.Count, 1).Value = Application.Transpose(MesPlans.items)
End Sub

Le fichier exemple :

https://www.excel-pratique.com/~files/doc/ywzJ9patrick_v1.xls

Si tu as des soucis d'adaptation, n'hésite pas

Edit : erreur de manip dans l'envoi du fichier...

En fait, ce que je te proposais était assez manuel.

Du coup, utiliser NB.SI ne te permet pas d'automatisme, mais simplement une vérification (qui n'est pas toujours superflue)

Bonne continuation

Merci à tous les deux.

Je fais le test demain, mais je n''y connais pas trop en macro.

On verra bien.

Bonne soirée.

Cela marche impeccable.

Merci beaucoup.