Boucle

[Marc]

Bonjour à tous,
Voilà je cherche comment écrire une boucle à partir de la cellule active et sur les 15 cellules suivantes vers le bas, jusqu'à ce qu'il rencontre la cellule égale à :
Interior.ColorIndex = 3
en vous remerciant tous

 

[Marc]

Merci Didier, _Thierry
En vous priant de m'excuser pour ce long silence de ma part du à une visite imprévue. Mais bon.
Je vais tester de suite.

 

[Marc]

Didier, _Thierry,
Je viens de tester les deux macros (dont je vous remercie) mais la cellule (en rouge) ne clignote pas. C'est comme si rien ne se passe...

 

[_Thierry]

Bonsoir Marc, Didier, Pascal, le Forum

Oui c'est normal, car tu ne le demandais pas initialement, tu as juste écrit 'Je chercherai ensuite pour la faire clignoter'

Dans le Code de Didier, rien n'a été en conséquence prévu, vu que ce n'était pas ta demande !

Moi j'ai juste mis un truc pour que ça clignotte dix fois (Rouge/Jaune/Rouge) pour attirer l'attention puis le code te laisse la main... Mais si tu cherches un peu dans ce Forum ou dans les archives 'Clignotte' tu trouveras mille et une réponses ! C'est une demande autre que récurrente !

Bon Amusement et clignottement !
[ol]@+Thierry[/ol]

 

[Marc]

Bonsoir Marc, Didier, Pascal, le Forum

C'est exact _Thierry, mais je te pose une question :
A la fin de la macro, la cellule en rouge se trouve-t-elle sélectionnée ?

 

[Marc]

Je pense que si elle se trouve sélectionée, pouvoir appeler la macro suivante :

Public OrigBkgCol As Long, OrigTxtCol As Long
Public OldCell As Range
Sub InitFlash()
Set OldCell = ActiveCell
OrigBkgCol = ActiveCell.Interior.ColorIndex
OrigTxtCol = ActiveCell.Font.ColorIndex
Application.OnTime Now + TimeValue('00:00:01'), 'Flash'
End Sub

En espérant que ce soit bon...

Très chaleureusement à toi

 

[Marc]

Une dernière question

Que dois-je modifier, et comment pour que la cellule clignote en permanence pendant 30 minutes puis sortir de la macro
comment faire une gestion d'erreur si aucune cellule ne correspond

En vous remerciant encore tous mdF, _Thierry, le forum pour votre courtoisie et gentillesse, ainsi que du temps que vous consacrez à nous apprendre. Car débuter n'est pas facile, mais grâce à vous on avance.
Merci