Aide clignotement cellule sous condition

Fermé
oz71 Messages postés 37 Date d'inscription lundi 31 août 2009 Statut Membre Dernière intervention 3 avril 2019 - Modifié par oz71 le 8/08/2010 à 22:57
oz71 Messages postés 37 Date d'inscription lundi 31 août 2009 Statut Membre Dernière intervention 3 avril 2019 - 8 août 2010 à 22:57
Bonjour à tous, novice en programmation VBA,j'ai besoin d'aide sur une macro que j'ai "pompé" et adapté à une feuille de calcul exell.

Cette macro déclenche le clignotement de la cellule en fonction de l'heure affiché dans cette cellule.

Macro incriminé
Private Sub Worksheet_Calculate()
Vérif
End Sub

Private Sub Vérif()
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If VarType(Range("B29")) = VarType(ValPrec) Then _
If ValPrec = Range("B29") Then Exit Sub
If [B29] >= 0.177083333333333 And [B29] <= 0.177094907 Then
Const Texte As String = ""
For i = 1 To 5
Cells(29, 2).Font.ColorIndex = 4
Cells(29, 2).Interior.ColorIndex = 3
For n = 1 To 30
Start = Timer
Do While Timer < Start + 2 / 100
Loop
If n Mod 5 = 0 Then
Cells(29, 2).Interior.ColorIndex = xlNone
Cells(29, 2).Font.ColorIndex = 1
End If
Next n
Next i
Select Case MsgBox("Pensez à la coupure", vbOK + vbExclamation, "Temps de conduite")
Case vbOK
'procédure si click sur Ok
Case vbCancel
'procédure si click sur Annuler
Exit Sub
End Select
End If

End Sub

Je désirerais que cette macro se déclenche aussi lorsque l'heure dans la cellule affiche

cellule B29 >=04:20:00 et <= 04:20:01
cellule B29 >=04:25:00 et <= 04:25:01
cellule B29 >=04:30:00 et <= 04:30:01

Merci d'avance pour votre aide.

1 réponse

oz71 Messages postés 37 Date d'inscription lundi 31 août 2009 Statut Membre Dernière intervention 3 avril 2019 1
8 août 2010 à 22:57
Erreur de post dans le forum , question renvoyé dans le forum programmation
0