J
Jo
Guest
Bonjour ! et merci pour vore écoute,
porcinet m'avait gentilment passé cette macro qui passe des données d'une feuille 1 à une feuille 2, elle fonctionne super merci ...
la voilà:
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Sub test()
Dim i As Integer
For i = 5 To Sheets('feuil1').Range('B65536').End(xlUp).Row
With Sheets('feuil2')
.Range('B65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 2).Value
.Range('C65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 3).Value
.Range('D65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 4).Value
.Range('E65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 5).Value
.Range('F65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 6).Value
End With
Next i
End Sub
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
mais je me demande quelles lignes rajouter pour effacer les données de la feuille 1 une fois transmises sur la feuille 2
merci encore pour votre aide ! :kiss:
porcinet m'avait gentilment passé cette macro qui passe des données d'une feuille 1 à une feuille 2, elle fonctionne super merci ...
la voilà:
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Sub test()
Dim i As Integer
For i = 5 To Sheets('feuil1').Range('B65536').End(xlUp).Row
With Sheets('feuil2')
.Range('B65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 2).Value
.Range('C65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 3).Value
.Range('D65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 4).Value
.Range('E65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 5).Value
.Range('F65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(i, 6).Value
End With
Next i
End Sub
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
mais je me demande quelles lignes rajouter pour effacer les données de la feuille 1 une fois transmises sur la feuille 2
merci encore pour votre aide ! :kiss: