ajustement de code

rudy dehaudt à dit:

bonsoir a tous
je voudrai sa voir quelle serai la modification dans le code si dessou pour que les colonnes de A a F soit prise en compte

( le code fonctionne trés bien avec la colonne A )
merci
A+

Sub copie()
Dim Sh1 As Worksheet, Sh2 As Worksheet, Cell As Range, Trouve As Range

Set Sh1 = Sheets("A") 'bbd
Set Sh2 = Sheets("nvl donnée") 'recois les nvl donnee
For Each Cell In Sh2.Range("A1:A" & Sh2.Range("A65536").End(xlUp).Row)
With Sh1
Set Trouve = .Range("A1:A" & Sh1.Range("A65536").End(xlUp).Row).Find(Cell.Value, LookIn:=xlValues, lookat:=xlWhole)
If Trouve Is Nothing Then .Range("A65536").End(xlUp).Offset(1).Value = Cell.Value
End With
Next
End Sub

Cliquez pour agrandir...

Sub copie()
Dim Sh1 As Worksheet, Sh2 As Worksheet, Cell As Range, Trouve As Range

Set Sh1 = Sheets("A") 'bbd
Set Sh2 = Sheets("nvl donnée") 'recois les nvl donnee
For Each Cell In Sh2.Range([COLOR="Red"][B]"A1:F"[/B][/COLOR] & Sh2.Range("A65536").End(xlUp).Row)
  With Sh1
    Set Trouve = .Range([COLOR="Red"][B]"A1:F"[/B][/COLOR] & Sh1.Range("A65536").End(xlUp).Row).Find(Cell.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Trouve Is Nothing Then .Range("A65536").End(xlUp).Offset(1).Value = Cell.Value
  End With
Next
End Sub

rudy dehaudt à dit:

excuse moi d abuser mais peux tu m indiquer comment integrer ton code dans l usf du fichier ci dessu j ai fait de mon cotê

afficher via VBA l' USF puis tracer le bouton 3 puis copier coller ton code supprimer le deuxiéme END SUB et en alternance j ai supprimer l un et lautre des titres mais rien ne se produits ??

en tous qu a merci
A+

Cliquez pour agrandir...