Bonjour, voila j'avais une macro qui fonctionnait trés bien et la dernière fois je l'ai lancé et ça m'affiche un débogage au moment de démasquer la feuille "base camions" je comprend pas pourquoi ça fonctionnait bien...
Voici le code:
Private Sub ajout_cam_Click()
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = num_camion
Worksheets("base camions").Visible = True (problème à ce niveau là)
Sheets("base camions").Select
Cells.Select
Selection.Copy
Worksheets("base camions").Visible = False
Mavariable = transport.num_camion
Sheets(Mavariable).Select
Cells.Select
ActiveSheet.Paste
Range("C7") = num_camion
Range("D15") = Val(capac_vol)
Range("E15") = Val(capac_poid)
Range("F15") = Val(vit_moy)
Range("G15") = Val(ct_horaire)
Range("H15") = Val(ct_km)
Range("I15") = Val(nb_heuresup)
Range("J15") = Val(ct_heuresup)
capac_poid = ""
capac_vol = ""
ct_heuressup = ""
ct_horaire = ""
nb_heuresup = ""
vit_moy = ""
ct_km = ""
num_camion = ""
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
transport.Hide
End Sub
Merci
Voici le code:
Private Sub ajout_cam_Click()
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = num_camion
Worksheets("base camions").Visible = True (problème à ce niveau là)
Sheets("base camions").Select
Cells.Select
Selection.Copy
Worksheets("base camions").Visible = False
Mavariable = transport.num_camion
Sheets(Mavariable).Select
Cells.Select
ActiveSheet.Paste
Range("C7") = num_camion
Range("D15") = Val(capac_vol)
Range("E15") = Val(capac_poid)
Range("F15") = Val(vit_moy)
Range("G15") = Val(ct_horaire)
Range("H15") = Val(ct_km)
Range("I15") = Val(nb_heuresup)
Range("J15") = Val(ct_heuresup)
capac_poid = ""
capac_vol = ""
ct_heuressup = ""
ct_horaire = ""
nb_heuresup = ""
vit_moy = ""
ct_km = ""
num_camion = ""
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
transport.Hide
End Sub
Merci