Bonjour =E0 tous,
j'ai r=E9cup=E9r=E9 une macro pour cellule clignotante de Daniel=20
J.
Je l'ai associ=E9e =E0 la saisie de la cellule A2 comme ci-
dessous
Private Sub Worksheet_SelectionChange(ByVal Target As=20
Range)
If Target.Address =3D "$A$2" Then
Range("A1").Select
For compteur =3D 1 To 20
With Selection.Font
.Name =3D "Arial"
.Size =3D 14
.ColorIndex =3D 2
End With
Application.Wait Now + TimeValue("00:00:01")
'Pour augmenter la vitesse du clignotement
'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font
.Name =3D "Arial"
.Size =3D 14
.ColorIndex =3D 0
End With
Application.Wait Now + TimeValue("00:00:01")
Next
Application.CutCopyMode =3D False
End If
End Sub
Tout baignerait dans le meilleur des mondes sauf que:
la cellule cignote sans s'arr=EAter, et pendant qu'elle=20
clinote, on n'a pas la main
Je souhaiterais qu'elle s'arr=EAte des que je clique une=20
autre cellule , ou un autre moyen, et eventuellement la=20
red=E9marrer
Haissepaussible?
MERCI =E0 ceusses qui peuvent m'=E9clairer (sans clignoter)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Salut Gilles,
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then fond = Target.Interior.ColorIndex Do Until Target.Address <> "$A$1" Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell.Address <> Target.Address Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"gilles" a écrit dans le message de news: 1b71b01c44fc4$9c669790$ Bonjour à tous, j'ai récupéré une macro pour cellule clignotante de Daniel J. Je l'ai associée à la saisie de la cellule A2 comme ci- dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Select
For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next Application.CutCopyMode = False End If End Sub
Tout baignerait dans le meilleur des mondes sauf que: la cellule cignote sans s'arrêter, et pendant qu'elle clinote, on n'a pas la main Je souhaiterais qu'elle s'arrête des que je clique une autre cellule , ou un autre moyen, et eventuellement la redémarrer Haissepaussible? MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
Salut Gilles,
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
fond = Target.Interior.ColorIndex
Do Until Target.Address <> "$A$1"
Target.Interior.ColorIndex = 35
Target.Interior.ColorIndex = 40
DoEvents
If ActiveCell.Address <> Target.Address Then
Target.Interior.ColorIndex = fond
Exit Sub
End If
Loop
End If
End Sub
Serge
"gilles" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1b71b01c44fc4$9c669790$a001280a@phx.gbl...
Bonjour à tous,
j'ai récupéré une macro pour cellule clignotante de Daniel
J.
Je l'ai associée à la saisie de la cellule A2 comme ci-
dessous
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Address = "$A$2" Then
Range("A1").Select
For compteur = 1 To 20
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01")
'Pour augmenter la vitesse du clignotement
'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 0
End With
Application.Wait Now + TimeValue("00:00:01")
Next
Application.CutCopyMode = False
End If
End Sub
Tout baignerait dans le meilleur des mondes sauf que:
la cellule cignote sans s'arrêter, et pendant qu'elle
clinote, on n'a pas la main
Je souhaiterais qu'elle s'arrête des que je clique une
autre cellule , ou un autre moyen, et eventuellement la
redémarrer
Haissepaussible?
MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then fond = Target.Interior.ColorIndex Do Until Target.Address <> "$A$1" Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell.Address <> Target.Address Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"gilles" a écrit dans le message de news: 1b71b01c44fc4$9c669790$ Bonjour à tous, j'ai récupéré une macro pour cellule clignotante de Daniel J. Je l'ai associée à la saisie de la cellule A2 comme ci- dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Select
For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next Application.CutCopyMode = False End If End Sub
Tout baignerait dans le meilleur des mondes sauf que: la cellule cignote sans s'arrêter, et pendant qu'elle clinote, on n'a pas la main Je souhaiterais qu'elle s'arrête des que je clique une autre cellule , ou un autre moyen, et eventuellement la redémarrer Haissepaussible? MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
garnote
Plus simple ainsi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target = [a1] Then fond = Target.Interior.ColorIndex Do Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell <> Target Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"garnote" a écrit dans le message de news: o%myc.8506$
Salut Gilles,
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then fond = Target.Interior.ColorIndex Do Until Target.Address <> "$A$1" Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell.Address <> Target.Address Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"gilles" a écrit dans le message de news: 1b71b01c44fc4$9c669790$ Bonjour à tous, j'ai récupéré une macro pour cellule clignotante de Daniel J. Je l'ai associée à la saisie de la cellule A2 comme ci- dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Select
For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next Application.CutCopyMode = False End If End Sub
Tout baignerait dans le meilleur des mondes sauf que: la cellule cignote sans s'arrêter, et pendant qu'elle clinote, on n'a pas la main Je souhaiterais qu'elle s'arrête des que je clique une autre cellule , ou un autre moyen, et eventuellement la redémarrer Haissepaussible? MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
Plus simple ainsi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = [a1] Then
fond = Target.Interior.ColorIndex
Do
Target.Interior.ColorIndex = 35
Target.Interior.ColorIndex = 40
DoEvents
If ActiveCell <> Target Then
Target.Interior.ColorIndex = fond
Exit Sub
End If
Loop
End If
End Sub
Serge
"garnote" <rien@absent.net> a écrit dans le message de news:
o%myc.8506$lN.6999@edtnps84...
Salut Gilles,
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
fond = Target.Interior.ColorIndex
Do Until Target.Address <> "$A$1"
Target.Interior.ColorIndex = 35
Target.Interior.ColorIndex = 40
DoEvents
If ActiveCell.Address <> Target.Address Then
Target.Interior.ColorIndex = fond
Exit Sub
End If
Loop
End If
End Sub
Serge
"gilles" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1b71b01c44fc4$9c669790$a001280a@phx.gbl...
Bonjour à tous,
j'ai récupéré une macro pour cellule clignotante de Daniel
J.
Je l'ai associée à la saisie de la cellule A2 comme ci-
dessous
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Address = "$A$2" Then
Range("A1").Select
For compteur = 1 To 20
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01")
'Pour augmenter la vitesse du clignotement
'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 0
End With
Application.Wait Now + TimeValue("00:00:01")
Next
Application.CutCopyMode = False
End If
End Sub
Tout baignerait dans le meilleur des mondes sauf que:
la cellule cignote sans s'arrêter, et pendant qu'elle
clinote, on n'a pas la main
Je souhaiterais qu'elle s'arrête des que je clique une
autre cellule , ou un autre moyen, et eventuellement la
redémarrer
Haissepaussible?
MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target = [a1] Then fond = Target.Interior.ColorIndex Do Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell <> Target Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"garnote" a écrit dans le message de news: o%myc.8506$
Salut Gilles,
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then fond = Target.Interior.ColorIndex Do Until Target.Address <> "$A$1" Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell.Address <> Target.Address Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"gilles" a écrit dans le message de news: 1b71b01c44fc4$9c669790$ Bonjour à tous, j'ai récupéré une macro pour cellule clignotante de Daniel J. Je l'ai associée à la saisie de la cellule A2 comme ci- dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Select
For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next Application.CutCopyMode = False End If End Sub
Tout baignerait dans le meilleur des mondes sauf que: la cellule cignote sans s'arrêter, et pendant qu'elle clinote, on n'a pas la main Je souhaiterais qu'elle s'arrête des que je clique une autre cellule , ou un autre moyen, et eventuellement la redémarrer Haissepaussible? MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
garnote
Plus sûr d'ajouter On Error Resume Next au début de la macro.
Serge, qui devrait fléchir avant de pondre !
"garnote" a écrit dans le message de news: txnyc.8509$
Plus simple ainsi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target = [a1] Then fond = Target.Interior.ColorIndex Do Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell <> Target Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"garnote" a écrit dans le message de news: o%myc.8506$
Salut Gilles,
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then fond = Target.Interior.ColorIndex Do Until Target.Address <> "$A$1" Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell.Address <> Target.Address Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"gilles" a écrit dans le message de
news: 1b71b01c44fc4$9c669790$ Bonjour à tous, j'ai récupéré une macro pour cellule clignotante de Daniel J. Je l'ai associée à la saisie de la cellule A2 comme ci- dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Select
For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next Application.CutCopyMode = False End If End Sub
Tout baignerait dans le meilleur des mondes sauf que: la cellule cignote sans s'arrêter, et pendant qu'elle clinote, on n'a pas la main Je souhaiterais qu'elle s'arrête des que je clique une autre cellule , ou un autre moyen, et eventuellement la redémarrer Haissepaussible? MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
Plus sûr d'ajouter On Error Resume Next
au début de la macro.
Serge, qui devrait fléchir avant de pondre !
"garnote" <rien@absent.net> a écrit dans le message de news:
txnyc.8509$lN.4638@edtnps84...
Plus simple ainsi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = [a1] Then
fond = Target.Interior.ColorIndex
Do
Target.Interior.ColorIndex = 35
Target.Interior.ColorIndex = 40
DoEvents
If ActiveCell <> Target Then
Target.Interior.ColorIndex = fond
Exit Sub
End If
Loop
End If
End Sub
Serge
"garnote" <rien@absent.net> a écrit dans le message de news:
o%myc.8506$lN.6999@edtnps84...
Salut Gilles,
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
fond = Target.Interior.ColorIndex
Do Until Target.Address <> "$A$1"
Target.Interior.ColorIndex = 35
Target.Interior.ColorIndex = 40
DoEvents
If ActiveCell.Address <> Target.Address Then
Target.Interior.ColorIndex = fond
Exit Sub
End If
Loop
End If
End Sub
Serge
"gilles" <anonymous@discussions.microsoft.com> a écrit dans le message
de
news: 1b71b01c44fc4$9c669790$a001280a@phx.gbl...
Bonjour à tous,
j'ai récupéré une macro pour cellule clignotante de Daniel
J.
Je l'ai associée à la saisie de la cellule A2 comme ci-
dessous
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Address = "$A$2" Then
Range("A1").Select
For compteur = 1 To 20
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01")
'Pour augmenter la vitesse du clignotement
'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 0
End With
Application.Wait Now + TimeValue("00:00:01")
Next
Application.CutCopyMode = False
End If
End Sub
Tout baignerait dans le meilleur des mondes sauf que:
la cellule cignote sans s'arrêter, et pendant qu'elle
clinote, on n'a pas la main
Je souhaiterais qu'elle s'arrête des que je clique une
autre cellule , ou un autre moyen, et eventuellement la
redémarrer
Haissepaussible?
MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
Plus sûr d'ajouter On Error Resume Next au début de la macro.
Serge, qui devrait fléchir avant de pondre !
"garnote" a écrit dans le message de news: txnyc.8509$
Plus simple ainsi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target = [a1] Then fond = Target.Interior.ColorIndex Do Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell <> Target Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"garnote" a écrit dans le message de news: o%myc.8506$
Salut Gilles,
Une autre manière de faire pour faire clignoter la cellule A1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then fond = Target.Interior.ColorIndex Do Until Target.Address <> "$A$1" Target.Interior.ColorIndex = 35 Target.Interior.ColorIndex = 40 DoEvents If ActiveCell.Address <> Target.Address Then Target.Interior.ColorIndex = fond Exit Sub End If Loop End If End Sub
Serge
"gilles" a écrit dans le message de
news: 1b71b01c44fc4$9c669790$ Bonjour à tous, j'ai récupéré une macro pour cellule clignotante de Daniel J. Je l'ai associée à la saisie de la cellule A2 comme ci- dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Select
For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next Application.CutCopyMode = False End If End Sub
Tout baignerait dans le meilleur des mondes sauf que: la cellule cignote sans s'arrêter, et pendant qu'elle clinote, on n'a pas la main Je souhaiterais qu'elle s'arrête des que je clique une autre cellule , ou un autre moyen, et eventuellement la redémarrer Haissepaussible? MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
ChrisV
Bonjour Gilles,
Un truc de ce genre... (sortie de la macro gérée par la touche Echap)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer On Error GoTo esC Application.EnableCancelKey = xlErrorHandler If Target.Address = "$A$2" Then With [A1].Interior iniT = .ColorIndex For i = 0 To 10000 If .ColorIndex = 3 Then .ColorIndex = 2 _ Else: .ColorIndex = 3 Sleep (100) Next i .ColorIndex = iniT End With End If esC: If Err = 18 Then [A1].Interior.ColorIndex = iniT MsgBox "Proc stopée !" End If End Sub
ChrisV
"gilles" a écrit dans le message de news:1b71b01c44fc4$9c669790$ Bonjour à tous, j'ai récupéré une macro pour cellule clignotante de Daniel J. Je l'ai associée à la saisie de la cellule A2 comme ci- dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Select
For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next Application.CutCopyMode = False End If End Sub
Tout baignerait dans le meilleur des mondes sauf que: la cellule cignote sans s'arrêter, et pendant qu'elle clinote, on n'a pas la main Je souhaiterais qu'elle s'arrête des que je clique une autre cellule , ou un autre moyen, et eventuellement la redémarrer Haissepaussible? MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
Bonjour Gilles,
Un truc de ce genre... (sortie de la macro gérée par la touche Echap)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
On Error GoTo esC
Application.EnableCancelKey = xlErrorHandler
If Target.Address = "$A$2" Then
With [A1].Interior
iniT = .ColorIndex
For i = 0 To 10000
If .ColorIndex = 3 Then .ColorIndex = 2 _
Else: .ColorIndex = 3
Sleep (100)
Next i
.ColorIndex = iniT
End With
End If
esC:
If Err = 18 Then
[A1].Interior.ColorIndex = iniT
MsgBox "Proc stopée !"
End If
End Sub
ChrisV
"gilles" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1b71b01c44fc4$9c669790$a001280a@phx.gbl...
Bonjour à tous,
j'ai récupéré une macro pour cellule clignotante de Daniel
J.
Je l'ai associée à la saisie de la cellule A2 comme ci-
dessous
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Address = "$A$2" Then
Range("A1").Select
For compteur = 1 To 20
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01")
'Pour augmenter la vitesse du clignotement
'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 0
End With
Application.Wait Now + TimeValue("00:00:01")
Next
Application.CutCopyMode = False
End If
End Sub
Tout baignerait dans le meilleur des mondes sauf que:
la cellule cignote sans s'arrêter, et pendant qu'elle
clinote, on n'a pas la main
Je souhaiterais qu'elle s'arrête des que je clique une
autre cellule , ou un autre moyen, et eventuellement la
redémarrer
Haissepaussible?
MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
Un truc de ce genre... (sortie de la macro gérée par la touche Echap)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer On Error GoTo esC Application.EnableCancelKey = xlErrorHandler If Target.Address = "$A$2" Then With [A1].Interior iniT = .ColorIndex For i = 0 To 10000 If .ColorIndex = 3 Then .ColorIndex = 2 _ Else: .ColorIndex = 3 Sleep (100) Next i .ColorIndex = iniT End With End If esC: If Err = 18 Then [A1].Interior.ColorIndex = iniT MsgBox "Proc stopée !" End If End Sub
ChrisV
"gilles" a écrit dans le message de news:1b71b01c44fc4$9c669790$ Bonjour à tous, j'ai récupéré une macro pour cellule clignotante de Daniel J. Je l'ai associée à la saisie de la cellule A2 comme ci- dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Select
For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next Application.CutCopyMode = False End If End Sub
Tout baignerait dans le meilleur des mondes sauf que: la cellule cignote sans s'arrêter, et pendant qu'elle clinote, on n'a pas la main Je souhaiterais qu'elle s'arrête des que je clique une autre cellule , ou un autre moyen, et eventuellement la redémarrer Haissepaussible? MERCI à ceusses qui peuvent m'éclairer (sans clignoter)
