Comparer données des deux feuilles differentes et les copier

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jose1987
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 12 septembre 2018
Version d'Excel : 2013

Message par jose1987 » 14 septembre 2018, 18:32

Bonjour,

Je voudrais comparer deux colonnes placés dans deux feuilles differentes du meme fichier excel et puis copiers dans un 3eme feuille que celles cellules (dans l'exemple Ref) qui apparaissent dans les deux avec ses celulles correspondantes (Ville et Pays dans l'exemple).

Merci d'avance
exemple comparer.xls
(24.5 Kio) Téléchargé 12 fois
Avatar du membre
paritec
Passionné d'Excel
Passionné d'Excel
Messages : 3'615
Appréciations reçues : 289
Inscrit le : 7 juin 2011
Version d'Excel : W10 - 2003 FR - 2010 FR

Message par paritec » 14 septembre 2018, 18:37

Bonsoir Jose1987 le forum
tu vas en poster combien des demandes sur le même sujet???
Si personne ne répond, c'est que ta demande est brouillonne et incompréhensible!!!
Il n'y a à l'intérieur du fichier aucune explications donc on ouvre le fichier, on regarde, on ne comprends pas immédiatement, on referme le fichier et on passe à autre chose.
a+
Papou :)
Des bonnes explications et des petits fichiers représentatifs vont nous aider à vous aider !!!!
j
jose1987
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 12 septembre 2018
Version d'Excel : 2013

Message par jose1987 » 15 septembre 2018, 12:57

Bonjour,
En effet, j'ai déjà posé des demandes sur des différents comparaisons mais pas sur ce sujet exactement.
Merci d'avance
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'409
Appréciations reçues : 125
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 15 septembre 2018, 13:10

Bonjour josé1984, paritec,

Une rechercheV devrait faire l'affaire.....
exemple comparer.xlsx
(11.53 Kio) Téléchargé 8 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
j
jose1987
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 12 septembre 2018
Version d'Excel : 2013

Message par jose1987 » 15 septembre 2018, 13:14

Bonjour,
Tout d'abord, merci bien pour votre réponse mais j'aurai vraiment besoin d'une macro.
Cordialement,
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'409
Appréciations reçues : 125
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 15 septembre 2018, 13:40

Re,

Peut-être ainsi :
Sub test()

Dim i  As Integer

     With Sheets("resumé")
      For i = 2 To 100
        If .Range("A" & i) <> "" Then
           .Range("B" & i) = Application.WorksheetFunction.VLookup(.Range("A" & i), Sheets("pays").Range("A1:B100"), 2, False)
           .Range("C" & i) = Application.WorksheetFunction.VLookup(.Range("A" & i), Sheets("villes").Range("A1:B100"), 2, False)
        End If
      Next i
    End With
End Sub
Copie de exemple comparer-2.xlsm
(18.18 Kio) Téléchargé 5 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
j
jose1987
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 12 septembre 2018
Version d'Excel : 2013

Message par jose1987 » 15 septembre 2018, 14:24

Bonjour,
Merci pour votre réponse.
En fait, c'est ce qu'il se passe ce que que dans la feuille "résumé" il n'y a pas les références qui se répètent, donc la macro devrait comparer d'abord les résultats qui se répètent dans les deux feuilles et puis copier les cellules de "pays" et "ville" qui correspondent.

Cordialement,
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'119
Appréciations reçues : 209
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 15 septembre 2018, 14:39

bonjour

salut au passage paritec

sans VBA, avec un TCD (filtré sur #NA)

note : pourquoi vouloir une macro ::o
Copie de exemple comparer.xlsx
(19.02 Kio) Téléchargé 7 fois
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'409
Appréciations reçues : 125
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 15 septembre 2018, 14:44

Re,

Un dernier essai: on compare les ref. identiques en colonne A, on les recopie en colonne A feuille 3, et on recherche les villes et pays correspondants....c'est bien ça ?
Sub test()

Dim i  As Integer

     With Sheets("resumé")
      For i = 2 To 100
      
      If Sheets("pays").Range("A" & i) = Sheets("villes").Range("A" & i) Then
           .Range("A" & i) = Sheets("villes").Range("A" & i)
      End If
      
        If .Range("A" & i) <> "" Then
           .Range("B" & i) = Application.WorksheetFunction.VLookup(.Range("A" & i), Sheets("pays").Range("A1:B100"), 2, False)
           .Range("C" & i) = Application.WorksheetFunction.VLookup(.Range("A" & i), Sheets("villes").Range("A1:B100"), 2, False)
        End If
        
      Next i
    End With
End Sub
Copie de exemple comparer-2.xlsm
(18.12 Kio) Téléchargé 10 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
j
jose1987
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 12 septembre 2018
Version d'Excel : 2013

Message par jose1987 » 15 septembre 2018, 15:09

Bonjour,

Il y a deux problèmes:
-Le premier c'est qu'il peut y avoir de références répétées, et la macro prend en compte que la première référence et pas toutes.
-Le deuxième, c'est que ça doit pas laisser des lignes vides.

Merci d'avance
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message