gestion de location de voiture sur excel

 gestion de location de voiture sur excel

gestion location 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 = ""




Télécharger le fichier Excel ICI