gestion de location de voiture sur excel
![]() |
| gestion de location de voitures sur excel |
Code utilisé:
Dim nextRow As Long
nextRow = Sheets("feuil1").Range("B10000").End(xlUp).Row + 1
With ThisWorkbook.Sheets("feuil1")
.Range("B" & nextRow).Value = Sheets("feuil1").Range("e6").Value
.Range("C" & nextRow).Value = Sheets("feuil1").Range("e7").Value
.Range("D" & nextRow).Value = Sheets("feuil1").Range("e8").Value
.Range("E" & nextRow).Value = Sheets("feuil1").Range("e9").Value
.Range("F" & nextRow).Value = Sheets("feuil1").Range("e10").Value
.Range("G" & nextRow).Value = Sheets("feuil1").Range("i6").Value
.Range("H" & nextRow).Value = Sheets("feuil1").Range("i7").Value
MsgBox ("bien enregistré")
End With
Sheets("feuil1").Range("e6").Value = ""
Sheets("feuil1").Range("e7").Value = ""
Sheets("feuil1").Range("e8").Value = ""
Sheets("feuil1").Range("e9").Value = ""
Sheets("feuil1").Range("e10").Value = ""
Sheets("feuil1").Range("i6").Value = ""
Sheets("feuil1").Range("i7").Value = ""
regarder la video gestion de location de voiture sur excel
