Le clignotement alourdi le fonctionnement du fichier
Pour l'obtenir malgré tout tu peux mettre dans le VBA de la feuille ces lignes :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = "Mot" Then Target.Style = "Flash" Run ("Clignotement") Else Target.Style = "Normal" Run ("Clignotement") End If End Sub
Puis créer une macro "Clignotement" dans laquelle tu mets ces lignes :
NextTime = Now + TimeValue("00:00:01") With ActiveWorkbook.Styles("Flash").Interior If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6 End With Application.OnTime NextTime, "Clignotement"
Enfin tu ajoutes le style "Flash" dans :
format/style/Flash/ajouter
Actualises les lignes :
If Target = "Mot" Then
du mot que tu souhaites pour ce clignotement
et
If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6
des couleurs pour ce clignotement
Fais des essais et dis moi !!!!!!
Salut à toi
Le clignotement alourdi le fonctionnement du fichier
Pour l'obtenir malgré tout tu peux mettre dans le VBA de la feuille ces
lignes :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "Mot" Then
Target.Style = "Flash"
Run ("Clignotement")
Else
Target.Style = "Normal"
Run ("Clignotement")
End If
End Sub
Puis créer une macro "Clignotement" dans laquelle tu mets ces lignes :
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Interior
If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6
End With
Application.OnTime NextTime, "Clignotement"
Enfin tu ajoutes le style "Flash" dans :
format/style/Flash/ajouter
Actualises les lignes :
If Target = "Mot" Then
du mot que tu souhaites pour ce clignotement
et
If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6
Le clignotement alourdi le fonctionnement du fichier
Pour l'obtenir malgré tout tu peux mettre dans le VBA de la feuille ces lignes :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = "Mot" Then Target.Style = "Flash" Run ("Clignotement") Else Target.Style = "Normal" Run ("Clignotement") End If End Sub
Puis créer une macro "Clignotement" dans laquelle tu mets ces lignes :
NextTime = Now + TimeValue("00:00:01") With ActiveWorkbook.Styles("Flash").Interior If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6 End With Application.OnTime NextTime, "Clignotement"
Enfin tu ajoutes le style "Flash" dans :
format/style/Flash/ajouter
Actualises les lignes :
If Target = "Mot" Then
du mot que tu souhaites pour ce clignotement
et
If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6
des couleurs pour ce clignotement
Fais des essais et dis moi !!!!!!
Charlyp
merci de ta prompte réponse, pour ne pas alourdir le fichier y aurait-il un autre moyen pour attirer l'attention sur ces cellules?
"FFO" a écrit dans le message de news:
Salut à toi
Le clignotement alourdi le fonctionnement du fichier
Pour l'obtenir malgré tout tu peux mettre dans le VBA de la feuille ces lignes :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = "Mot" Then Target.Style = "Flash" Run ("Clignotement") Else Target.Style = "Normal" Run ("Clignotement") End If End Sub
Puis créer une macro "Clignotement" dans laquelle tu mets ces lignes :
NextTime = Now + TimeValue("00:00:01") With ActiveWorkbook.Styles("Flash").Interior If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6 End With Application.OnTime NextTime, "Clignotement"
Enfin tu ajoutes le style "Flash" dans :
format/style/Flash/ajouter
Actualises les lignes :
If Target = "Mot" Then
du mot que tu souhaites pour ce clignotement
et
If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6
des couleurs pour ce clignotement
Fais des essais et dis moi !!!!!!
merci de ta prompte réponse, pour ne pas alourdir le fichier y aurait-il un
autre moyen pour attirer l'attention sur ces cellules?
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
B4BC0DE1-CE24-4D53-8623-34F7D2714118@microsoft.com...
Salut à toi
Le clignotement alourdi le fonctionnement du fichier
Pour l'obtenir malgré tout tu peux mettre dans le VBA de la feuille ces
lignes :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "Mot" Then
Target.Style = "Flash"
Run ("Clignotement")
Else
Target.Style = "Normal"
Run ("Clignotement")
End If
End Sub
Puis créer une macro "Clignotement" dans laquelle tu mets ces lignes :
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Interior
If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6
End With
Application.OnTime NextTime, "Clignotement"
Enfin tu ajoutes le style "Flash" dans :
format/style/Flash/ajouter
Actualises les lignes :
If Target = "Mot" Then
du mot que tu souhaites pour ce clignotement
et
If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6
merci de ta prompte réponse, pour ne pas alourdir le fichier y aurait-il un autre moyen pour attirer l'attention sur ces cellules?
"FFO" a écrit dans le message de news:
Salut à toi
Le clignotement alourdi le fonctionnement du fichier
Pour l'obtenir malgré tout tu peux mettre dans le VBA de la feuille ces lignes :
Private Sub Worksheet_Change(ByVal Target As Range) If Target = "Mot" Then Target.Style = "Flash" Run ("Clignotement") Else Target.Style = "Normal" Run ("Clignotement") End If End Sub
Puis créer une macro "Clignotement" dans laquelle tu mets ces lignes :
NextTime = Now + TimeValue("00:00:01") With ActiveWorkbook.Styles("Flash").Interior If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6 End With Application.OnTime NextTime, "Clignotement"
Enfin tu ajoutes le style "Flash" dans :
format/style/Flash/ajouter
Actualises les lignes :
If Target = "Mot" Then
du mot que tu souhaites pour ce clignotement
et
If .ColorIndex = 6 Then .ColorIndex = 7 Else .ColorIndex = 6
des couleurs pour ce clignotement
Fais des essais et dis moi !!!!!!
FFO
Rebonjour à toi
Tu peux mettre une couleur de fond dans ces cellules et de plus un compteur en A1 par exemple qui comptabiliserait le nombre de ces cellules
Pour celà mets ces lignes dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "Mot" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Else Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 End If End If End Sub
Actualises la ligne :
If Target = "Mot" Then
du Mot que tu souhaites
Changes : Range("A1") si tu veux une autre cellule pour le compteur
Fais des essais et dis moi !!!!!
Rebonjour à toi
Tu peux mettre une couleur de fond dans ces cellules et de plus un compteur
en A1 par exemple qui comptabiliserait le nombre de ces cellules
Pour celà mets ces lignes dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A1").Address Then
If Target = "Mot" Then
Target.Interior.ColorIndex = 6
Range("A1") = Range("A1") + 1
Else
Target.Interior.ColorIndex = xlNone
Range("A1") = Range("A1") - 1
End If
End If
End Sub
Actualises la ligne :
If Target = "Mot" Then
du Mot que tu souhaites
Changes : Range("A1") si tu veux une autre cellule pour le compteur
Tu peux mettre une couleur de fond dans ces cellules et de plus un compteur en A1 par exemple qui comptabiliserait le nombre de ces cellules
Pour celà mets ces lignes dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "Mot" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Else Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 End If End If End Sub
Actualises la ligne :
If Target = "Mot" Then
du Mot que tu souhaites
Changes : Range("A1") si tu veux une autre cellule pour le compteur
Fais des essais et dis moi !!!!!
FFO
rebonjour à toi
Un petit plus avec la mise en couleur rouge du compteur si il est supérieur à 0 Dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "Mot" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Range("A1").Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 If Range("A1") = 0 Then Range("A1").Interior.ColorIndex = xlNone End If End If End If End Sub
Peut être mieux
Dis moi !!!!!
rebonjour à toi
Un petit plus avec la mise en couleur rouge du compteur si il est supérieur
à 0
Dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A1").Address Then
If Target = "Mot" Then
Target.Interior.ColorIndex = 6
Range("A1") = Range("A1") + 1
Range("A1").Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = xlNone
Range("A1") = Range("A1") - 1
If Range("A1") = 0 Then
Range("A1").Interior.ColorIndex = xlNone
End If
End If
End If
End Sub
Un petit plus avec la mise en couleur rouge du compteur si il est supérieur à 0 Dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "Mot" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Range("A1").Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 If Range("A1") = 0 Then Range("A1").Interior.ColorIndex = xlNone End If End If End If End Sub
Peut être mieux
Dis moi !!!!!
Charlyp
j'ai mis le code, ai changé "mot" par "à livrer!"
rien ne se passe, une cellule comportant ce mot, reste idem avant et rien dans la cellule A1
"FFO" a écrit dans le message de news:
Rebonjour à toi
Tu peux mettre une couleur de fond dans ces cellules et de plus un compteur en A1 par exemple qui comptabiliserait le nombre de ces cellules
Pour celà mets ces lignes dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "Mot" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Else Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 End If End If End Sub
Actualises la ligne :
If Target = "Mot" Then
du Mot que tu souhaites
Changes : Range("A1") si tu veux une autre cellule pour le compteur
Fais des essais et dis moi !!!!!
j'ai mis le code, ai changé "mot" par "à livrer!"
rien ne se passe, une cellule comportant ce mot, reste idem avant et rien
dans la cellule A1
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
97C7AEE9-8BF0-4866-802B-CC603F9E2F45@microsoft.com...
Rebonjour à toi
Tu peux mettre une couleur de fond dans ces cellules et de plus un
compteur
en A1 par exemple qui comptabiliserait le nombre de ces cellules
Pour celà mets ces lignes dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A1").Address Then
If Target = "Mot" Then
Target.Interior.ColorIndex = 6
Range("A1") = Range("A1") + 1
Else
Target.Interior.ColorIndex = xlNone
Range("A1") = Range("A1") - 1
End If
End If
End Sub
Actualises la ligne :
If Target = "Mot" Then
du Mot que tu souhaites
Changes : Range("A1") si tu veux une autre cellule pour le compteur
rien ne se passe, une cellule comportant ce mot, reste idem avant et rien dans la cellule A1
"FFO" a écrit dans le message de news:
Rebonjour à toi
Tu peux mettre une couleur de fond dans ces cellules et de plus un compteur en A1 par exemple qui comptabiliserait le nombre de ces cellules
Pour celà mets ces lignes dans le VBA de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "Mot" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Else Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 End If End If End Sub
Actualises la ligne :
If Target = "Mot" Then
du Mot que tu souhaites
Changes : Range("A1") si tu veux une autre cellule pour le compteur
J'ai légèrement modifié le code pour l'améliorer mais qui devait fonctionner en l'état :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "à livrer!" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Else If Target.Interior.ColorIndex = 6 Then Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 End If End If End If End Sub
Récupères le document et ouvres le
En Feuil1 écrits n'importe où sauf en A1 le mot "à livrer!"
J'ai légèrement modifié le code pour l'améliorer mais qui devait fonctionner
en l'état :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A1").Address Then
If Target = "à livrer!" Then
Target.Interior.ColorIndex = 6
Range("A1") = Range("A1") + 1
Else
If Target.Interior.ColorIndex = 6 Then
Target.Interior.ColorIndex = xlNone
Range("A1") = Range("A1") - 1
End If
End If
End If
End Sub
Récupères le document et ouvres le
En Feuil1 écrits n'importe où sauf en A1 le mot "à livrer!"
J'ai légèrement modifié le code pour l'améliorer mais qui devait fonctionner en l'état :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "à livrer!" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Else If Target.Interior.ColorIndex = 6 Then Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 End If End If End If End Sub
Récupères le document et ouvres le
En Feuil1 écrits n'importe où sauf en A1 le mot "à livrer!"
Constates le résultat et dis moi !!!!!
Charlyp
en ayant mis ce code,
j'ai -4 dans A1 sans écrire "à livrer!" dans aucune cellule de la feuille, si je l'écris 1fois dans une cellule de la feuille ladite cellule se colore en jaune et en A1 j'ai -3
J'ai légèrement modifié le code pour l'améliorer mais qui devait fonctionner en l'état :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "à livrer!" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Else If Target.Interior.ColorIndex = 6 Then Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 End If End If End If End Sub
Récupères le document et ouvres le
En Feuil1 écrits n'importe où sauf en A1 le mot "à livrer!"
Constates le résultat et dis moi !!!!!
en ayant mis ce code,
j'ai -4 dans A1 sans écrire "à livrer!" dans aucune cellule de la feuille,
si je l'écris 1fois dans une cellule de la feuille ladite cellule se colore
en jaune et en A1 j'ai -3
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
876E83BA-650D-4316-9ABD-D8886D8678DC@microsoft.com...
J'ai légèrement modifié le code pour l'améliorer mais qui devait
fonctionner
en l'état :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A1").Address Then
If Target = "à livrer!" Then
Target.Interior.ColorIndex = 6
Range("A1") = Range("A1") + 1
Else
If Target.Interior.ColorIndex = 6 Then
Target.Interior.ColorIndex = xlNone
Range("A1") = Range("A1") - 1
End If
End If
End If
End Sub
Récupères le document et ouvres le
En Feuil1 écrits n'importe où sauf en A1 le mot "à livrer!"
j'ai -4 dans A1 sans écrire "à livrer!" dans aucune cellule de la feuille, si je l'écris 1fois dans une cellule de la feuille ladite cellule se colore en jaune et en A1 j'ai -3
J'ai légèrement modifié le code pour l'améliorer mais qui devait fonctionner en l'état :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("A1").Address Then If Target = "à livrer!" Then Target.Interior.ColorIndex = 6 Range("A1") = Range("A1") + 1 Else If Target.Interior.ColorIndex = 6 Then Target.Interior.ColorIndex = xlNone Range("A1") = Range("A1") - 1 End If End If End If End Sub
Récupères le document et ouvres le
En Feuil1 écrits n'importe où sauf en A1 le mot "à livrer!"
Constates le résultat et dis moi !!!!!
FFO
Rebonjour à toi
Tes dernières constatations confirment que celà fonctionne Il faut tout simplement mettre le compteur à 0 au départ en le saisissant manuellement en A1
Essaies et dis moi !!!!!
Rebonjour à toi
Tes dernières constatations confirment que celà fonctionne
Il faut tout simplement mettre le compteur à 0 au départ en le saisissant
manuellement en A1
Tes dernières constatations confirment que celà fonctionne Il faut tout simplement mettre le compteur à 0 au départ en le saisissant manuellement en A1
Essaies et dis moi !!!!!
Charlyp
bonjour, oui cela fonctionne comme ça merci, je viens de penser, au lieu d'avoir le compteur en A1, ne peut-on pas avoir une fenetre flottante affichant ce résultat, près de la cellule active du moment?
"FFO" a écrit dans le message de news:
Rebonjour à toi
Tes dernières constatations confirment que celà fonctionne Il faut tout simplement mettre le compteur à 0 au départ en le saisissant manuellement en A1
Essaies et dis moi !!!!!
bonjour,
oui cela fonctionne comme ça merci, je viens de penser, au lieu d'avoir le
compteur en A1, ne peut-on pas avoir une fenetre flottante affichant ce
résultat, près de la cellule active du moment?
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4011B1E1-E42D-4949-8CE0-2170C41BBE16@microsoft.com...
Rebonjour à toi
Tes dernières constatations confirment que celà fonctionne
Il faut tout simplement mettre le compteur à 0 au départ en le saisissant
manuellement en A1
bonjour, oui cela fonctionne comme ça merci, je viens de penser, au lieu d'avoir le compteur en A1, ne peut-on pas avoir une fenetre flottante affichant ce résultat, près de la cellule active du moment?
"FFO" a écrit dans le message de news:
Rebonjour à toi
Tes dernières constatations confirment que celà fonctionne Il faut tout simplement mettre le compteur à 0 au départ en le saisissant manuellement en A1
Essaies et dis moi !!!!!
FFO
Rebonjour à toi On peut mettre une boîte de dialogue donnant le nombre de cellules et un message avec ces lignes à rajouter dans le VBA de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Range("A1") > 0 Then MsgBox (Range("A1") & " Message") End If End Sub
Le compteur doit être maintenu en A1
Actualises la ligne :
MsgBox (Range("A1") & " Message")
en remplaçant le mot Message par le message que tu souhaites voir afficher en plus du compteur Range("A1")
Rebonjour à toi
On peut mettre une boîte de dialogue donnant le nombre de cellules et un
message avec ces lignes à rajouter dans le VBA de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("A1") > 0 Then
MsgBox (Range("A1") & " Message")
End If
End Sub
Le compteur doit être maintenu en A1
Actualises la ligne :
MsgBox (Range("A1") & " Message")
en remplaçant le mot Message par le message que tu souhaites voir afficher
en plus du compteur Range("A1")
Rebonjour à toi On peut mettre une boîte de dialogue donnant le nombre de cellules et un message avec ces lignes à rajouter dans le VBA de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Range("A1") > 0 Then MsgBox (Range("A1") & " Message") End If End Sub
Le compteur doit être maintenu en A1
Actualises la ligne :
MsgBox (Range("A1") & " Message")
en remplaçant le mot Message par le message que tu souhaites voir afficher en plus du compteur Range("A1")