C
courtillon
Guest
:woohoo: Pas moyen de l'envoyer ce soir : 2 fois ceal suffit je vous le donne comme çà :
Sub SAUVEGARDEFICHECLIENTS()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim tabtemp As Variant
Dim MaLigneSource As tabtemp
Dim MaligneCible As tabtemp
tabtemp = .Range('C4:H' & derlgn)
Dim derlgn As Integer
Set WsSource = Worksheets('Clients')
Set WsCible = Worksheets('Sauvegarde')
Set MaLigneSource = WsSource.Range('C4:H' & derlgn).Value
With WsCible
derlgn = .Range('A65536').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 6))
MaligneCible.Value = MaLigneSource.Value
End With
End Sub
C'est dur ce soir
Merci Courtillon
Sub SAUVEGARDEFICHECLIENTS()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim tabtemp As Variant
Dim MaLigneSource As tabtemp
Dim MaligneCible As tabtemp
tabtemp = .Range('C4:H' & derlgn)
Dim derlgn As Integer
Set WsSource = Worksheets('Clients')
Set WsCible = Worksheets('Sauvegarde')
Set MaLigneSource = WsSource.Range('C4:H' & derlgn).Value
With WsCible
derlgn = .Range('A65536').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 6))
MaligneCible.Value = MaLigneSource.Value
End With
End Sub
C'est dur ce soir
Merci Courtillon