Faire clignoter jusqu'à ce que ...
Le
Pierre F.
Bonjour à toutes et tous!
Je cherche à faire clignoter 3 cellules, successivement
J'ai trouvé sur ce forum la petite macro ci-dessous mais je n'arrive pas
à la transformer selon mon souhait
--
Sub Clignot()
Range("B4").Select
For compteur = 1 To 3
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
'Pour augmenter la vitesse du clignotement
'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
Range("b3").Select
End Sub
J'ai en B4, C4, D4 les cases que je souhaite faire clignoter selon le
déroulement suivant:
A l'arrivée sur la feuille (Feuil1 qui n'est pas la feuille d'arrivé par
défaut) de ce classeur qui en compte 25, je souhaiterais que seule la
cellule B4 clignote jusqu'à ce que la valeur de la cellule B3 (à 0 par
défaut) soit changée par l'utilisateur (au moyen d'une liste déroulante)
et devienne non nulle.
Dès que c'est fait, je souhaiterais que la cellule C4 clignote jusqu'à
ce que la cellule C3 (' par défaut) soit changée avec un mot d'une
deuxième liste déroulante.
Dès que c'est fait, je souhaiterais que la cellule D4 clignote jusqu'à
ce que l'utilisateur clique sur D3 qui est un objet rectangle
déclenchant une macro.
Voilà, c'est tout simple non ?? ;-)
Voir le cjoint: http://cjoint.com/?bFsdCCICZ4
Mille merci pour vos pistes et/ou soluces forcément éclairantes.
Cordialement,
Pierre F.
Je cherche à faire clignoter 3 cellules, successivement
J'ai trouvé sur ce forum la petite macro ci-dessous mais je n'arrive pas
à la transformer selon mon souhait
--
Sub Clignot()
Range("B4").Select
For compteur = 1 To 3
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
'Pour augmenter la vitesse du clignotement
'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
Range("b3").Select
End Sub
J'ai en B4, C4, D4 les cases que je souhaite faire clignoter selon le
déroulement suivant:
A l'arrivée sur la feuille (Feuil1 qui n'est pas la feuille d'arrivé par
défaut) de ce classeur qui en compte 25, je souhaiterais que seule la
cellule B4 clignote jusqu'à ce que la valeur de la cellule B3 (à 0 par
défaut) soit changée par l'utilisateur (au moyen d'une liste déroulante)
et devienne non nulle.
Dès que c'est fait, je souhaiterais que la cellule C4 clignote jusqu'à
ce que la cellule C3 (' par défaut) soit changée avec un mot d'une
deuxième liste déroulante.
Dès que c'est fait, je souhaiterais que la cellule D4 clignote jusqu'à
ce que l'utilisateur clique sur D3 qui est un objet rectangle
déclenchant une macro.
Voilà, c'est tout simple non ?? ;-)
Voir le cjoint: http://cjoint.com/?bFsdCCICZ4
Mille merci pour vos pistes et/ou soluces forcément éclairantes.
Cordialement,
Pierre F.
Poser une question
Le clignotement des cellules dans les fichiers Excel n'est pas trés
conseillé (instabilité et besoin en ressource non négligeable)
Je te propose une autre solution qui consiste à activer de manière
systématique les cellules à renseigner avec message à l'appui tant que
celles-ci ne le sont pas
Sur ce lien ton fichier adapté ainsi
Fais des essais et dis moi !!!!!!
http://www.cijoint.fr/cjlink.php?fi...DHlnUM.xls
Le précédent fichier que je t'ai transmis comporte une anomalie qui altère
son ouverture
En lieu et place récupère celui-ci
Mille excuses
Tiens moi informé !!!!!
http://www.cijoint.fr/cjlink.php?fi...A0IL2H.xls
Hello FFO;
Merci pour cette piste qui me semble en effet bien plus sage et propre.
Toutefois, elle passe assez mal au niveau du reste du code du classeur
et, en particulier, du premier et du dernier clic à à faire.
Je m'explique:
Au chargement, l'utilisateur arrive sur une page dite "d'accueil"; il
doit cliquer sur un des éléments proposés qui qui le dirigera vers la
feuil1: là déjà, après ce premier clic, le Msgbox apparait alors qu'il
n'a pas encore basculé sur la feuil1.
Ensuite ça se passe bien: B4 est vert, b3 actif et on peut faire ce
qu'on veut, on revient à devoir choisir, Impec.
Idem pour la partie C4/C3, impec.
Ça se gâte avec le denier clic sur l'objet rectangle qui déclenche une
macro: en fait elle est plus ou moins déclenchée mais tout se bloque et
elle bogue.
L'idéal serait qu'au moment du clic sur le rectangle, tout le code de la
feuil1 soit annulé et que la macro puisse démarrer...
Pour plus de clarté, j'ai mis le fichier complet en cijoint (Attention,
c'est une "usine à gaz" de plus de 2Mo!! :-) mais sans ton code sur la
feuil1.
http://www.cijoint.fr/cjlink.php?fi...JuNcal.xls
Merci pour ton aide.
Cordialement,
Pierre F.
Je découvre à l'instant ta réponse
J'analyserai ton fichier Lundi et t'apporterai une réponse dés que possible
A bientôt
"Pierre F." wrote:
Pas de problème; mille mercis de t'occuper de ça
Cordialement,
Pierre F.