VERIFICATION Si la cellule est en centième d'heure

**romain8544** · 18/05/2020, 16h24

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

**Menhir** · 18/05/2020, 18h29

Je n'ai pas compris ta question mais ton code a un gros problème.

Pour information, ce n'est pas parce que tu mets Temps_cent = Heure & "," & Min en début de code, que Temps_cent va se remettre ç jour chaque fois que tu changeras Heure ou Min.
Lors de son affectation, Temps_cent prend la valeur correspondant de Heure et Min à l'instant de l'affectation et n'en changera pas tant qu'elle ne sera pas réaffecté, même si Heure et Min changent eux-même.

Donc, il faudrait à minima mettre cette ligne à l'intérieur des boucles.

Je n'ai pas trop compris non plus le "75" de la boucle Min.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For Heure = 0 To 24
    For Min = 0 To 75 Step 25
        Temps_cent = Heure & "," & Min 
        If Cells(3, 4).Value = Temps_cent Then
            MsgBox ("super!")
            Exit Sub
        End If
    Next Min
Next Heure

**romain8544** · 19/05/2020, 07h44

Tu as raison, j'ai manqué d'explication...

La cellule est rentrée par l'utilisateur et je souhaite vérifier pour qu'elle soit dans le bon format -> en centième d'heure, au quart d'heure: .. h00 ou .. h25 ou ..h50 ou ..h75