Copier/Coller de données de provenances différentes

Bonjour à tous,

J'ai un souci pour faire un simple copier / coller sous condition IF.

2h que je piétine et que je m'arrache les cheveux

Voici mon code qui je pense ne comporte pas d'erreurs fondamentales :

Sub grouper_les_NC()

Sheets("Feuil1").Select

Dim i As Integer, j As Integer

    For i = 7 To 512

        For j = 7 To 174

            If Cells(i, 3).Text = Cells(j, 6).Text Then

            Cells(j, 7).Select

            Selection.Copy

            Cells(i, 4).Select

            ActiveSheet.Paste

            End If

        Next j

    Next i

End Sub

J'ai deux listes de noms. La 1ère liste est la liste globale des clients, la 2ème et la liste des quantités commandées.

Je voudrais simplement inscrire les quantités commandées à coté de la liste globale des clients.

Les données proviennent de deux fichiers Excel différents, on dirait qu'il y a un mic-mac la dedans. J'ai essayé des copier/coller sans mise en forme - coller en valeur - etc ... Rien ne change !

Pouvez-vous m'aider ?

En PJ, le programme.

Merci d'avance,

Cdlt,

Floo73

Bonjour,

Il faut éviter les "Select" dans le code, mais ton problème ne vient pas de là,

mais du fait que tes données comparées son différentes (espaces en plus).

Essaies ce code :

Sub grouper_les_NC()
Dim i As Integer
Dim j As Integer

  With Worksheets("Feuil1")
    For i = 7 To 512
      For j = 7 To 174
        If Trim(.Cells(i, "C").Value) = Trim(.Cells(j, "F").Value) Then
          .Cells(j, "G").Copy .Cells(i, "D")
        End If
      Next j
    Next i
  End With

End Sub

Bonjour Patrice,

Merci pour la rapidité de ta réponse et pour tes conseils !

Ca marche parfaitement !

Je vais essayer de mettre en application tes conseils sur mes prochains programmes !

Bonne journée à toi,

Floo73