validation des données format heure

Re : validation des données format heure

merci catrice c'est tout à fait ça.
Ce code peut-il s'appliquer à toute les cellules d'une plage de plusieurs feuilles ? si oui comment ?
merci

Re : validation des données format heure

J'ai réussi à modifier la macro pour appliquer la saisie à une plage, en l'occurence ici [depassement_hour] pour la feuille1.
Le problème est maintenant le suivant :

j'ai une plage identique sur les feuille 2 à 12.

Comment modifier le code VBA pour qu'il s'applique aux autres feuilles
merci

Private Sub ComboBox1_Change()
TestCombo
End Sub
Private Sub ComboBox2_Change()
TestCombo
End Sub
Private Sub ComboBox3_Change()
TestCombo
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = False
init
If Not Intersect(Target, [depassement_hour]) Is Nothing Then
ComboBox1.Visible = True
ComboBox2.Visible = True
ComboBox3.Visible = True
ComboBox1.Left = Target.Left 'Offset(0, 1).
ComboBox2.Left = ComboBox1.Left + ComboBox1.Width
ComboBox3.Left = ComboBox2.Left + ComboBox2.Width
ComboBox1.Top = Target.Offset(0, 1).Top
ComboBox2.Top = ComboBox1.Top
ComboBox3.Top = ComboBox2.Top
End If
Application.ScreenUpdating = True
End Sub
Sub TestCombo()
If ComboBox1.Value <> "" And ComboBox2.Value <> "" And ComboBox3.Value <> "" Then
ActiveCell = ComboBox1.Value & ":" & ComboBox2.Value & ":" & ComboBox3.Value
ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = False
End If
End Sub
Sub init()
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
For i = 0 To 23
ComboBox1.AddItem i
Next
For i = 0 To 59
ComboBox2.AddItem i
ComboBox3.AddItem i
Next
End Sub

Re : validation des données format heure

Quelqu'un pour m'aider ?

merci

Re : validation des données format heure

Bonsoir,

Ci-joint 2 solutions.
Solution1, il faut dupliquer le code et les Boxes dans chaque Onglet
Solution2, le code est unique avec un appel par feuille.