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
Nicolas B.
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote()
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Alpha
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes
seulement ?
Merci
Alpha
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:e9dhCIV0DHA.2116@TK2MSFTNGP11.phx.gbl...
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote()
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Nicolas B.
Salut,
Pas testé (lance plutôt Début que Clignote) :
dim N as long
sub Debut() n=0 Clignote end sub
Sub Clignote() n=n+1 Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With if n<4 then Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Salut,
Pas testé (lance plutôt Début que Clignote) :
dim N as long
sub Debut()
n=0
Clignote
end sub
Sub Clignote()
n=n+1
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
if n<4 then Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes
seulement ?
Merci
Alpha
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:e9dhCIV0DHA.2116@TK2MSFTNGP11.phx.gbl...
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote()
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
Sub Clignote() n=n+1 Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With if n<4 then Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
sabatier
un truc dans ce genre, alpha, en fin de proc :
If temps > 1 / 21600 Then Exit Sub
(j'ai mis 4 secondes pour faire bonne mesure) jps
Alpha wrote:
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
un truc dans ce genre, alpha, en fin de proc :
If temps > 1 / 21600 Then Exit Sub
(j'ai mis 4 secondes pour faire bonne mesure)
jps
Alpha wrote:
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes
seulement ?
Merci
Alpha
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:e9dhCIV0DHA.2116@TK2MSFTNGP11.phx.gbl...
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote()
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
sabatier
oublie ma réponse, alpha, même avec ma bonne mesure, j'ai comme le sentiment que ce n'est pas bon du tout... jps (qui retourne se coucher)
Alpha wrote:
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
oublie ma réponse, alpha, même avec ma bonne mesure, j'ai comme le
sentiment
que ce n'est pas bon du tout...
jps (qui retourne se coucher)
Alpha wrote:
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes
seulement ?
Merci
Alpha
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:e9dhCIV0DHA.2116@TK2MSFTNGP11.phx.gbl...
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote()
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
oublie ma réponse, alpha, même avec ma bonne mesure, j'ai comme le sentiment que ce n'est pas bon du tout... jps (qui retourne se coucher)
Alpha wrote:
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Alpha
Ok Nicolas, toujours aussi efficace et sympa. Alpha
"Nicolas B." a écrit dans le message de news:
Salut,
Pas testé (lance plutôt Début que Clignote) :
dim N as long
sub Debut() n=0 Clignote end sub
Sub Clignote() n=n+1 Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With if n<4 then Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Ok Nicolas, toujours aussi efficace et sympa.
Alpha
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:us2B71d0DHA.3496@TK2MSFTNGP11.phx.gbl...
Salut,
Pas testé (lance plutôt Début que Clignote) :
dim N as long
sub Debut()
n=0
Clignote
end sub
Sub Clignote()
n=n+1
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
if n<4 then Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes
seulement ?
Merci
Alpha
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:e9dhCIV0DHA.2116@TK2MSFTNGP11.phx.gbl...
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote()
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
Ok Nicolas, toujours aussi efficace et sympa. Alpha
"Nicolas B." a écrit dans le message de news:
Salut,
Pas testé (lance plutôt Début que Clignote) :
dim N as long
sub Debut() n=0 Clignote end sub
Sub Clignote() n=n+1 Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With if n<4 then Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Alpha
Merci quand même Alpha
"sabatier" a écrit dans le message de news:
oublie ma réponse, alpha, même avec ma bonne mesure, j'ai comme le sentiment que ce n'est pas bon du tout... jps (qui retourne se coucher)
Alpha wrote:
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de
news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub
peut animer un texte sous excel, le faire clignoter par exemple
MERCI
Merci quand même
Alpha
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3FF692C3.A4BF24DC@wanadoo.fr...
oublie ma réponse, alpha, même avec ma bonne mesure, j'ai comme le
sentiment
que ce n'est pas bon du tout...
jps (qui retourne se coucher)
Alpha wrote:
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes
seulement ?
Merci
Alpha
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message
de
news:e9dhCIV0DHA.2116@TK2MSFTNGP11.phx.gbl...
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote()
Temps = Now
With Range("A1").Font
If .ColorIndex = 2 Then
.ColorIndex = 0
Else
.ColorIndex = 2
End If
End With
Application.OnTime Temps + 1 / 86400, "Clignote"
End Sub
oublie ma réponse, alpha, même avec ma bonne mesure, j'ai comme le sentiment que ce n'est pas bon du tout... jps (qui retourne se coucher)
Alpha wrote:
Très sympa ta proc Nicolas, mais peut-on faire clignoter 3 secondes seulement ? Merci Alpha
"Nicolas B." a écrit dans le message de
news:
Salut fred,
Il faut pour cela passer par macro :
Sub Clignote() Temps = Now With Range("A1").Font If .ColorIndex = 2 Then .ColorIndex = 0 Else .ColorIndex = 2 End If End With Application.OnTime Temps + 1 / 86400, "Clignote" End Sub