flo2002
XLDnaute Impliqué
Bonjour le forum,
j'ai pris pour base une macro qui isole ce qui n'existe pas dans une feuille pour les coller a la suite de la colonne.
Je voudrai simplement pouvoir coller le résultat sur une autre feuille.
Merci
Option Explicit
Sub IsoleNamAFU()
Dim Derligne1%, Derligne2%
Dim i1%, i2%
Dim Exist
Derligne1 = Sheets('AFU').Range('a65536').End(xlUp).Row
Derligne2 = Sheets('ESM').Range('a65536').End(xlUp).Row
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1
If Sheets('ESM').Range('a' & i2) = Sheets('AFU').Range('a' & i1) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets('AFU').Range('a' & Derligne1 + 1) = Sheets('ESM').Range('A' & i2)
Derligne1 = Sheets('AFU').Range('a65536').End(xlUp).Row
Suivant:
Exist = 0
Next
End Sub
j'ai pris pour base une macro qui isole ce qui n'existe pas dans une feuille pour les coller a la suite de la colonne.
Je voudrai simplement pouvoir coller le résultat sur une autre feuille.
Merci
Option Explicit
Sub IsoleNamAFU()
Dim Derligne1%, Derligne2%
Dim i1%, i2%
Dim Exist
Derligne1 = Sheets('AFU').Range('a65536').End(xlUp).Row
Derligne2 = Sheets('ESM').Range('a65536').End(xlUp).Row
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1
If Sheets('ESM').Range('a' & i2) = Sheets('AFU').Range('a' & i1) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets('AFU').Range('a' & Derligne1 + 1) = Sheets('ESM').Range('A' & i2)
Derligne1 = Sheets('AFU').Range('a65536').End(xlUp).Row
Suivant:
Exist = 0
Next
End Sub