Bonjour
J'ai un tableau d'heures, avec une fenetre informative qui s'ouvre quand une erreur est tapée,
voici le code : validationheures Macro
' met un message d'erreur sur les cases a remplire d'heures
'
' Touche de raccourci du clavier: Ctrl+m
'
Range("C9:H15").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateTime, AlertStyle:=xlValidAlertInformation, _
Operator:=xlBetween, Formula1:="00:00", Formula2:="23:59"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Format d'heure"
.InputMessage = ""
.ErrorMessage = _
"Le format des heures est comme" & Chr(10) & "ceci : 00:00 " & Chr(10) & "exemple : 14: 30 ou 14:" & Chr(10) & "minuit s'écrit 00:00 et non 24:" & Chr(10) & "merci" & Chr(10) & "Francis"
.ShowInput = True
.ShowError = True
End With
End Sub
J'aimerais qu'une fenetre souvre de la même façon pour les cellules, i9 : i15 quand , grâce à un menu déroulant, il est marqué " maladie" ou "décès "ou "mariage" qui me permetré d'indiqué les congés autorisés pour ces cas.
j'ai essayé d'adapter ce code en rajoutant un module, mais ça ne fonctionne pas,
pouvez vous m'aider ?
Merci
Francis
J'ai un tableau d'heures, avec une fenetre informative qui s'ouvre quand une erreur est tapée,
voici le code : validationheures Macro
' met un message d'erreur sur les cases a remplire d'heures
'
' Touche de raccourci du clavier: Ctrl+m
'
Range("C9:H15").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateTime, AlertStyle:=xlValidAlertInformation, _
Operator:=xlBetween, Formula1:="00:00", Formula2:="23:59"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Format d'heure"
.InputMessage = ""
.ErrorMessage = _
"Le format des heures est comme" & Chr(10) & "ceci : 00:00 " & Chr(10) & "exemple : 14: 30 ou 14:" & Chr(10) & "minuit s'écrit 00:00 et non 24:" & Chr(10) & "merci" & Chr(10) & "Francis"
.ShowInput = True
.ShowError = True
End With
End Sub
J'aimerais qu'une fenetre souvre de la même façon pour les cellules, i9 : i15 quand , grâce à un menu déroulant, il est marqué " maladie" ou "décès "ou "mariage" qui me permetré d'indiqué les congés autorisés pour ces cas.
j'ai essayé d'adapter ce code en rajoutant un module, mais ça ne fonctionne pas,
pouvez vous m'aider ?
Merci
Francis
Dernière édition: