Comparer les cellules differentes de 2 feuilles
HIGH
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour!
ici je veux juste extraire toutes les valeurs de la feuille 1 introuvées dans la feuille 2, et les afficher dans la feuille3
Merci de m'assister!
Sub galopin()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet, ws5 As Worksheet, i1, i2, i3, k, kk, z
Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
Set ws3 = Worksheets(3)
'declaration des feuilles d'entree
i1 = ws1.Range("A1").End(4).Row
i2 = ws2.Range("A1").End(4).Row
With ws1
For k = 1 To i1
z = .Range("A" & k).Value
For kk = 1 To i2
' If z <> ws2.Range("A" & kk).Value Then
'ws3.Range("A" & i3 + 1) = z
'Here I want to copy all the A column of WS1 not found in WS2 column A, in the W3 column A
'z = ws1.Range("A" & k).Value
If Not (ws2.Range("A2:A65536").Find(z) Is Nothing) Then
ws3.Range("A" & i3 + 1).Value = z
i3 = i3 + 1
End If
Next
Next
End With
End Sub
ici je veux juste extraire toutes les valeurs de la feuille 1 introuvées dans la feuille 2, et les afficher dans la feuille3
Merci de m'assister!
Sub galopin()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet, ws5 As Worksheet, i1, i2, i3, k, kk, z
Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
Set ws3 = Worksheets(3)
'declaration des feuilles d'entree
i1 = ws1.Range("A1").End(4).Row
i2 = ws2.Range("A1").End(4).Row
With ws1
For k = 1 To i1
z = .Range("A" & k).Value
For kk = 1 To i2
' If z <> ws2.Range("A" & kk).Value Then
'ws3.Range("A" & i3 + 1) = z
'Here I want to copy all the A column of WS1 not found in WS2 column A, in the W3 column A
'z = ws1.Range("A" & k).Value
If Not (ws2.Range("A2:A65536").Find(z) Is Nothing) Then
ws3.Range("A" & i3 + 1).Value = z
i3 = i3 + 1
End If
Next
Next
End With
End Sub
A voir également:
- Comparer les cellules differentes de 2 feuilles
- Supercopier 2 - Télécharger - Gestion de fichiers
- Comment faire un livret avec des feuilles a4 - Guide
- Fusionner 2 cellules excel - Guide
- Bruler les feuilles de laurier - Guide
- Formule excel pour additionner plusieurs cellules - Guide
1 réponse
Bonjour,
un exemple de code a adapter:
un exemple de code a adapter:
Sub test()
Set Plage1 = Worksheets("feuil1").Range("A1:A1000")
Set Plage2 = Worksheets("feuil2").Range("A1:A1000")
temps = Timer
of7 = 2
For n = 1 To 1000
Nbre = Application.CountIf(Plage2, Plage1(n, 1))
If Nbre = 0 Then Worksheets("feuil3").Cells(of7, 1) = Plage1(n, 1): of7 = of7 + 1
Next n
MsgBox Format(Timer - temps, "0.0000")
End Sub