macro isoler et copier sur autre feuille

[flo2002]

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

 

[Denis]

Bonjour Flo et le Forum
tu aurais pu garder le même fil, çu été plus simple
que veux tu faire exactement ?
car si tu veux copier le résultat de la feuille 1 dans une autre feuille, il est plus simple et plus rapide de faire directement le résultat dans la 3 ème.
Mais je n'ai peut être pas compris
Bon courage et à +
Denis B)

 

[flo2002]

Re boujour le forum et bonjour Denis,

J'ai juste pris la meme base mais je n'en ai pas la meme utilité.

Je voudrais donc isoler des données comme c'était le cas avant, mais la je voudrait que l'information se colle dans une autre feuille.

Je fais suivre un exemple avec les macros 'bancales'.

Merci d'avance [file name=syntheseforum.zip size=21699]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/syntheseforum.zip[/file]