Bonjour Le Forum,
Merci d'avance pour me venir en aide dans la programmation des lignes suivantes.
En effet cette action me donne une erreur d'exécution '1004' sur la ligne "Selection.NumberFormat" car je suis dans une classe Range.
Peut-être avez-vous une autre formulation.
Je n'ai que cette parade qui fonctionne, un peu lourde à mon goût car je dois sortir de cette plage de validation en faisant Call HEURE :
Webperegrino
Merci d'avance pour me venir en aide dans la programmation des lignes suivantes.
En effet cette action me donne une erreur d'exécution '1004' sur la ligne "Selection.NumberFormat" car je suis dans une classe Range.
Peut-être avez-vous une autre formulation.
VB:
Private Sub CommandButton1_Click() 'validation
.../...
With Mvt 'Sheets("MvtTS")
.../...
.Range("H" & Ld) = Now
Range("H" & Ld & ":H" & Ld).Select
Selection.NumberFormat = "hh:mm"
'au lieu de Call HEURE
.../...
Je n'ai que cette parade qui fonctionne, un peu lourde à mon goût car je dois sortir de cette plage de validation en faisant Call HEURE :
VB:
Sub HEURE()
Dim MT, lig
Set MT = Sheets("MvtTS")
MT.Unprotect Password:="mdp"
lig = MT.Range("B20000").End(xlUp).Row
MT.Select
Range("H7:H" & lig).Select
Selection.NumberFormat = "hh:mm"
Range("B3").Select
MT.Protect Password:="mdp"
End Sub
Webperegrino
Dernière édition: