Discussion :

[eudeline91]

Bonjour,
J'ai vu que ce sujet avait déjà était abordé, mais je ne trouve pas de discutions qui répondent exactement a ma question.

J'ai deux feuilles excel, dans les deux feuilles j'ai des numéros de facture qui devrait correspondre ; dans la première feuille dans la colonne E, et dans la deuxième feuille dans la colonne C.

Je voudrais prendre chaque numéro de facture de la première feuille, et le trouver dans la deuxième feuille : si il y es --> suppression des 2 lignes
si il n'y es pas --> copie de la ligne de la première feuille dans une 3eme feuille.

Est ce que j'utilise quelque chose comme ca : ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sheets("feuille 1").Columns("E:E").Find(What:=Sheets("feuille 2").Cells(i, 3))

A quoi correspond le i ? (débutante )


J'espère avoir été clair.
Merci beaucoup

[Abed_H]

Bonsoir eudeline et bienvenue
voici un code qui compare deux plages de cellules dans deux feuilles différentes et copie les manquants en troisième.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Compare()
Dim rngA As Range
Dim rngB As Range
 
  Set rngA = Sheets("Feuil1").Range("E1:" & Sheets("Feuil1").Cells(Rows.Count, 5).End(xlUp).Address)
  Set rngB = Sheets("Feuil2").Range("C1:" & Sheets("Feuil2").Cells(Rows.Count, 3).End(xlUp).Address)
 
  For Each cell In rngA
    If Application.CountIf(rngB, cell.Value) = 0 Then
       Sheets("Feuil3").Range("C65536").End(xlUp)(2).Value = cell.Value
     Else:  cell.EntireRow.Delete
   End If
  Next
End Sub

Bonne soirée.

[eudeline91]

Bonjour,

Je vous Remerci, ca fontionne.
Est ce que vous pourriez me dire comment recopier la ligne entière dans la dernière colonne, car pour l'instant je n'ai dans la dernière feuille qu'une cellule de copié.

Merci beaucoup