Tri entre deux colonnes avec doublon

[matteopacino]

Bonjour,

Une fois de plus je viens demander un coup de pouce !


J'ai deux colonnes de nom. Une colonne "A "fait 3000 lignes ( à cause des doublons qui doivent rester)

l'autre colonne "B" contient les même noms mais sans doublon ( 700 lignes), avec dans une colonne C une information sur le pays de naissance de ces noms.

Comment faire en sorte que dans la colonne avec les 3000 lignes, je retrouve ces pays de naissances, y compris sur les doublons.

Je vous laisse un fichier en exemple. Il y a deux onglets à consulter.

merci d'avance pour votre aide.

 

[WUTED]

Re : Tri entre deux colonnes avec doublon

Bonjour matteopacino,

Voici une proposition par macro, à adapter à ton vrai fichier :

Sub Macro()
    Dim i As Integer, j As Integer
    With Sheets("Nom 2")
        For i = 2 To .Range("A65536").End(xlUp).Row
            For j = 2 To Sheets("Nom").Range("A65536").End(xlUp).Row
                If Sheets("Nom").Range("A" & j).Value = .Range("A" & i).Value Then
                    Sheets("Nom").Range("B" & j).Value = .Range("B" & i).Value
                End If
            Next j
        Next i
    End With
End Sub

Bonne journée.

 

[matteopacino]

Re : Tri entre deux colonnes avec doublon

Bonjour Wuted,

merci de votre réponse.

cela fonctionne, mais bizarrement pour le nom " Papa" cela ne fonctionne pas.

J'ai également changé un peu mon document d'exemple. cela aurait été super si les données "ramenées de la colonne de l'autre onglet se retrouvait en dernière colonne, comme montré dans l'exemple.


Qu'en pensez-vous ?

 

[WUTED]

Re : Tri entre deux colonnes avec doublon

Re,

Je vais regarder le fichier, quant à "Papa", cela fonctionne aussi mais il y'a deux "Papa" dans la feuille "Nom 2", le dernier avec une cellule vide en guise de pays, les cellules remplies avec le premier "Papa" sont donc vidées par la suite avec le second. J'espère avoir été clair 😉

 

[WUTED]

Re : Tri entre deux colonnes avec doublon

Re,

Voici un nouvel essai, cette fois elle place les infos récupérées dans la dernière colonne du tableau :

Sub Macro()
    Dim i As Integer, j As Integer
    With Sheets("Nom 2")
        For i = 2 To .Range("A65536").End(xlUp).Row
            For j = 2 To Sheets("Nom").Range("A65536").End(xlUp).Row
                If Sheets("Nom").Range("A" & j).Value = .Range("A" & i).Value Then
                    Sheets("Nom").Range("A" & j).Offset(0, Sheets("Nom").Range("IV1").End(xlToLeft).Column - 1).Value = .Range("B" & i).Value
                End If
            Next j
        Next i
    End With
End Sub

Bonne journée.

 

[matteopacino]

Re : Tri entre deux colonnes avec doublon

re,

Cela marche très bien pour le placement en dernière colonne,

j'adapterai le code après.

par contre pour le " papa", y a t'il un moyen pour qu'au final toutes les cellules à côté de "Papa" dans la colonne A de l'onglet " nom" soit complétés par son pays de naissance , c'est à dire " France " ?

merci beaucoup

 

[WUTED]

Re : Tri entre deux colonnes avec doublon

A l'origine tu as écrit qu'il n'y avait aucun doublon dans ton deuxième onglet, je comprends pas trop pourquoi il y'aurait 2 fois ou plus "Papa" par exemple, je pensais que tu avais fait une erreur en construisant ton fichier exemple...

 

[matteopacino]

Re : Tri entre deux colonnes avec doublon

Effectivement,

je me suis planté,

il n 'y a pas de doublon dans mon deuxième onglet ( enfin il n' y en a que deux, et je vais essayer de les faire disparaître)


par contre dans le premier onglet, il y a 3000 lignes avec que des doublons quasiment, mais la macro semble fonctionner !

Saurais tu comment faire atterir les données en colonne T en fait ?

merci encore

 

[matteopacino]

Re : Tri entre deux colonnes avec doublon

ah, et il y a par contre des cellules vides pour les pays de naissances !

 

[WUTED]

Re : Tri entre deux colonnes avec doublon

Re.

Pour mettre des données en colonne T, tu remplaces :

Sheets("Nom").Range("A" & j).Offset(0, Sheets("Nom").Range("IV1").End(xlToLeft).Column - 1).Value

Par :

Sheets("Nom").Range("T" & j).Value

Pour ce qui est des cellules vides dans ta feuille sans doublons, si c'est le cas, cela ne devrait pas poser de problème et cela ne devrait rien mettre dans ta colonne T dans ta feuille avec doublons.

 

[matteopacino]

Re : Tri entre deux colonnes avec doublon

Merci


J'étais effectivement en train de modifier ce quand tu m'as écris.

malheureusement excel charge, mais rien ne se produit... ma colonne T reste vide !

Mon noms d'onglets sont restés les même.

 

[WUTED]

Re : Tri entre deux colonnes avec doublon

La macro fonctionne sur le fichier exemple donc je peux pas t'aider sans un fichier exemple plus complet.

 

[matteopacino]

Re : Tri entre deux colonnes avec doublon

Re,

je te renvoie le document complet ( avec des données fictives)


les colonnes doctype name de l'onglet "nom "et l'onglet "nom 2 " ne correspondent pas parfaitement malheureusement, c'est pour cela qu'il me faut un tri en fonction de la colonne 1, et qui ramène en m^meme temps les données de la colonne pays d'origine de l'onglet Nom 2.

J'espère que je suis clair ^^

merci

 

[WUTED]

Re : Tri entre deux colonnes avec doublon

Re,

La macro marche chez moi, le temps d'exécution est juste très (trop) long, mais au final ça a rempli les pays jusqu'au nom 731, donc dans la limite des noms de "Nom 2".

 

[matteopacino]

Re : Tri entre deux colonnes avec doublon

Ma colonne T reste désepérement vide =(


J'ai besoin de finir de document... pouvez-vous encore m'aider ?

Avez-vous mis votre macro dans un module ? lequel ?

Moi je l'ai mis dans le module " ce classeur"