[excel]

Résolu/Fermé
edi -  
paglop !!! Messages postés 856 Statut Membre -
Bonjour,
J'ai besoin de votre aide car je planche sur un probleme depuis des heures sans parvenir à trouver une solution.

je souhaite identifier des doublons.
Ma feuil 1 : col a : nom
col f: adresse
col g: cp
col h: ville

Ma feuille 2 : col a : nom
col f: adresse
col g: cp
col h : ville

dans un sens comme dans l.autre, toute solution sera la bienvenue
la recherche doit s.effectuer sur ces 4 champs.

Idealement, une feuil3 m'afficherait les doublons, c'est à dire les infos présentes dans la feuille 1 et dans la feuille 2 avec reprise des champs.

Merci d,avance
ed
Configuration: Windows XP
Firefox 2.0.0.18

2 réponses

  1.
    paglop !!! Messages postés 856 Statut Membre 234
     
    fait une petite macro (dans affichage je pense)

    https://plasserre.developpez.com/cours/vb-net/

    https://codes-sources.commentcamarche.net/
    https://vb.developpez.com/faqvba/
    0
    1. edi
       
      Merci paglop pour ton post. T'es pas vexé si je te dis que tout ce que tu me dis ne m'aide pas
      Macro ou pas. J'ai exploré les macros sans succès. Et au bout de 6h à plancher dessus sans résultat, je me penche sur les filtres élaborés sans plus de résultats.
      Autant dire que j'ai épluché tout le net sans trouver un bout de réponse.

      Alors voila ou j'en suis.
      en col h, j'ai mis =A3&" "&G3&" "&H3
      en col k : =P3&" "&V3&" "&W3
      Maintenant, je voudrais colorier la colonne K des doublons qui existent entre la colonne h et la colonne K

      Je passe par la mise en forme conditionnelle : =SOMMEPROD((Nom1=k3:k2000)*1)>0
      ou nom1 est ma plage de la col h1:h200

      Et là, ca marche pas.

      Si une ame charitable et insomniaque pouvait m'aider, elle recevrait toute ma gratitude car je suis desespere.

      Si ca interesse qqun je peux aussi poster mon bout de code macro qui marche pas non plus
      ed
      0
  2. paglop !!! Messages postés 856 Statut Membre 234
     
    Oo

    Je ne voudrait pas te vexer non plus si je te dit que ce n'est pas ma faute si tu n'est pas très doué. xD

    1) insertion >> forme >> clic droit >> affecter une macro >> nom de la macro : tri_doublon

    2)macro >> afficher macro >> modifier

    3) copier ce qui suit. 

     Sub tri_doublon()
x = 1
Z = 1
copie_feuil3 = 0
Do While Sheets("feuil1").Range("A" & x) <> ""

nom = Sheets("feuil1").Range("A" & x)
adresse = Sheets("feuil1").Range("F" & x)
cp = Sheets("feuil1").Range("G" & x)
ville = Sheets("feuil1").Range("H" & x)
Y = 1


Do While (Sheets("feuil2").Range("A" & Y) <> "" Or copie_feuil3 = 1)
copie_feuil3 = 0
If (nom = Sheets("feuil2").Range("A" & Y) And adresse = Sheets("feuil2").Range("F" & Y) And cp = Sheets("feuil2").Range("G" & Y) And ville = Sheets("feuil2").Range("H" & Y)) Then

Sheets("feuil3").Range("A" & Z) = nom
Sheets("feuil3").Range("F" & Z) = adresse
Sheets("feuil3").Range("G" & Z) = cp
Sheets("feuil3").Range("H" & Z) = ville

copie_feuil3 = 1
Z = Z + 1
End If
Y = Y + 1
Loop
x = x + 1
Loop
If Z = 1 Then
MsgBox "0 doublon trouvé"
Else
MsgBox (Z - 1 & " doublon(s) trouvé")
End If

End Sub


    Cela nécessite que les champs demandé soit les même a la majuscule prés ! auquel cas voir fonction StrConv
    0