Bonjour à tous,

Je souhaite vérifier si la cellule est en centième d'heure.
Mais je bloque sur ce code , je vois pas le bout.

Merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub verif()
Dim Temps_cent As String
 
Temps_cent = Heure & "," & Min
For Heure = 0 To 24
For Min = 0 To 75 Step 25
 
        If Cells(3, 4).Value = Temps_cent Then
        MsgBox ("super!")
        Exit Sub
        End If
Next Min
Next Heure
 
        Cells(3, 4).Select
        Onglet = ActiveSheet.Name
        a = ActiveCell.Address
        MsgBox ("Erreur en" & a & Chr(10) & "Temps à mettre en centième d'heure" & Chr(10) & "Recommencer!")
        Exit Sub
End Sub