Bonjour à tous.
Je vous sollicite à nouveau pour améliorer une portion de code.
Explication du code :
Dans une feuille de pointage, si pour un nom se trouvant en cellule C11, l'heure de sortie, en F11 n'est pas renseignée, C11 se met à clignoter brièvement
Sub Clignotement()
' si le contenu de F11 est vide et C11 non vide
If Range("F11").Value = "" And Range("C11").Value <> "" Then
PauseTime = 3 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
Range("C11").Interior.ColorIndex = 46 ' couleur rouge
Range("C11").Interior.ColorIndex = xlNone
Loop
End If
End Sub
Je voudrais que le test se fasse sur la colonne C, de C11 à C30, et par conséquent de F11 à F30
Merci d'éclairer ma lanterne. Bon week-end à tous
Je vous sollicite à nouveau pour améliorer une portion de code.
Explication du code :
Dans une feuille de pointage, si pour un nom se trouvant en cellule C11, l'heure de sortie, en F11 n'est pas renseignée, C11 se met à clignoter brièvement
Sub Clignotement()
' si le contenu de F11 est vide et C11 non vide
If Range("F11").Value = "" And Range("C11").Value <> "" Then
PauseTime = 3 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
Range("C11").Interior.ColorIndex = 46 ' couleur rouge
Range("C11").Interior.ColorIndex = xlNone
Loop
End If
End Sub
Je voudrais que le test se fasse sur la colonne C, de C11 à C30, et par conséquent de F11 à F30
Merci d'éclairer ma lanterne. Bon week-end à tous