VBA test avec Hour et Minute (résolu)

[dancar]

Bonjour à toutes et à tous,

J'ai besoin de tester si la cellule E4 qui est au format heure 00:00 contient bien 00:00 quelque soit le jour.
je le fais via l'extrait de code suivant qui fait référence à un test logique dans la cellule AC3.
If [AC3] = FAUX Then 'le test dans AC3 est: =OU(HEURE(E4)>0;MINUTE(E4)>0)
msgbox "blablabla"
Exit Sub
End If
Je préférerai ne pas mettre le test =OU(HEURE(E4)>0;MINUTE(E4)>0) dans la cellule AC3 (ou une autre) et faire ce test uniquement dans le code de la macro. J'ai donc essayé le code suivant
If Hour(E4) > 0 Or Minute(E4) > 0 Then
msgbox "Blablabla"
Exit Sub
End If
mais il ne fonctionne pas et ne génère aucun message d'erreur.
J'ai essayé un grand nombre de syntaxes et passer un temps fou sur Internet pour trouver la solution mais sans succès. Inutile de préciser que je n'ai pas une grande connaissance de VBA.

Merci à celles et ceux qui éclaireront ma lanterne.
Bonne soirée

 

[phlaurent55]

Bonjour,

Peut être en testant directement
If[E4]=0 Then ..........

Ou
If CInt([E4]) = [E4] Then .......

À+
Philippe

 

[eriiic]

Bonjour,

If [E4] Mod 1 = 0 Then
    ' heure à 0
End If

eric

PS : si tes heures sont calculées il faudra sans doute utiliser round([E4],7)

 

[dancar]

Bonjour,

Peut être en testant directement
If[E4]=0 Then ..........

Ou
If CInt([E4]) = [E4] Then .......

À+
Philippe

Merci Philippe mais ne fonctionne pas (les 2)

 

[dancar]

Bonjour,

If [E4] Mod 1 = 0 Then
    ' heure à 0
End If

eric

PS : si tes heures sont calculées il faudra sans doute utiliser round([E4],7)

 

[dancar]

Bonjour,

If [E4] Mod 1 = 0 Then
    ' heure à 0
End If

eric

PS : si tes heures sont calculées il faudra sans doute utiliser round([E4],7)

Merci Eric mais c'est pas ça non plus

 

[dancar]

Bonjour à toutes et à tous,

J'ai besoin de tester si la cellule E4 qui est au format heure 00:00 contient bien 00:00 quelque soit le jour.
je le fais via l'extrait de code suivant qui fait référence à un test logique dans la cellule AC3.
If [AC3] = FAUX Then 'le test dans AC3 est: =OU(HEURE(E4)>0;MINUTE(E4)>0)
msgbox "blablabla"
Exit Sub
End If
Je préférerai ne pas mettre le test =OU(HEURE(E4)>0;MINUTE(E4)>0) dans la cellule AC3 (ou une autre) et faire ce test uniquement dans le code de la macro. J'ai donc essayé le code suivant
If Hour(E4) > 0 Or Minute(E4) > 0 Then
msgbox "Blablabla"
Exit Sub
End If
mais il ne fonctionne pas et ne génère aucun message d'erreur.
J'ai essayé un grand nombre de syntaxes et passer un temps fou sur Internet pour trouver la solution mais sans succès. Inutile de préciser que je n'ai pas une grande connaissance de VBA.

Merci à celles et ceux qui éclaireront ma lanterne.
Bonne soirée

J'ai fini par trouver la solution
If Hour([E4]) > 0 Or Minute([E4]) > 0 Then
msgbox "Blablabla"
Exit Sub
End If
Il fallait rajouter des [ ]

Philippe et Eric, encore merci d'avoir voulu m'aider

 

[eriiic]

Merci Eric mais c'est pas ça non plus

Bien sûr que si c'est bon, ça te retourne la partie décimale qui représente l'heure.
Dis plutôt que tu n'as pas su utiliser et/ou adapter à ton cas concret.

 

[Modeste geedee]

Bonsour®

J'ai besoin de tester si la cellule E4 qui est au format heure 00:00 contient bien 00:00

heu ... ??
🙄
If [E4].Text = "00:00" Then

 

[phlaurent55]

Re,

J'ai fini par trouver la solution
If Hour([E4]) > 0 Or Minute([E4]) > 0 Then
msgbox "Blablabla"
Exit Sub
End If
Il fallait rajouter des [ ]

Cette solution n'est pas bonne car elle ne répond pas à la demande initiale qui stipulait

J'ai besoin de tester si la cellule E4 qui est au format heure 00:00 contient bien 00:00 quelque soit le jour.

La bonne solution est:
If Hour([E4]) > 0 And Minute([E4]) > 0 Then

à+
Philippe

 

[dancar]

Bien sûr que si c'est bon, ça te retourne la partie décimale qui représente l'heure.
Dis plutôt que tu n'as pas su utiliser et/ou adapter à ton cas concret.

OK Eric, j'ai pas su adapter et j'ai sûrement mal expliqué ce que je cherchais à faire

 

[dancar]

Re,



Cette solution n'est pas bonne car elle ne répond pas à la demande initiale qui stipulait



La bonne solution est:
If Hour([E4]) > 0 And Minute([E4]) > 0 Then

à+
Philippe

And impose que Hour et Minute soit >0
Or fonctionne si Hour ou Minute ou les 2 sont >0
Merci

 

[dancar]

Bonsour®
heu ... ??
🙄
If [E4].Text = "00:00" Then

Merci Ce lien n'existe plus c'est OK, pour mes besoins j'ai remplacé = par <>

 

[Modeste geedee]

Bonsour® Philippe 🙁🙁🙁🙁🙁,

😉😉😉😉😉😉😛😛😛😛
Cette solution n'est pas bonne non plus !!!
car elle ne répond pas à la demande initiale qui stipulait :
la cellule E4 qui est au format heure 00:00 contient bien 00:00

la cellule contient une valeur qui n'est pas "00:00" mais qui s'affiche sous forme de texte "00:00" !!!
ne pas confondre affichage et valeur !!!

le contenu est vraisemblablement une valeur décimale
dont la partie décimale est proche de zéro ou tout au moins inférieure à : 0,000683

dixit ma proposition (tetracapillosectomie )
littéralement
If [E4].Text = "00:00" Then
😀🙄🙄🙄🙂
Hi... Hi... Hi...