COMMENT FAIRE CLIGNOTER UN CHIFFRE LORSQ CE DERNIER EST DIFFERENT
2 réponses
gobinche
Bonjour,
J'ai dressé un tableau excell , et mis une ligne de vérification , qui
précise que ce total doit être égal à 0 pour contrôle. Or, iIl arrive qe ce
total soit égal a -1 ou -2,-3....aussi j'aimerais faire clinoter ce chiffre
(lorqu'il est différent de 0) afin d' attirer l'attention de la personne qui
a rentré des informations erronnées dans le tableau.
Merci d'avance pour chacun de vous qui lira mon message
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
Jacquouille
Bonjour A lire dans Excelabo (le sitaflo) : celleule clignotantes. Bonne chance -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"gobinche" a écrit dans le message de news:
Bonjour,
J'ai dressé un tableau excell , et mis une ligne de vérification , qui précise que ce total doit être égal à 0 pour contrôle. Or, iIl arrive qe ce total soit égal a -1 ou -2,-3....aussi j'aimerais faire clinoter ce chiffre (lorqu'il est différent de 0) afin d' attirer l'attention de la personne qui a rentré des informations erronnées dans le tableau.
Merci d'avance pour chacun de vous qui lira mon message
Bonjour
A lire dans Excelabo (le sitaflo) : celleule clignotantes.
Bonne chance
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"gobinche" <gobinche@discussions.microsoft.com> a écrit dans le message de
news: 79EF14DD-F561-408C-AAE0-421CB4201F3B@microsoft.com...
Bonjour,
J'ai dressé un tableau excell , et mis une ligne de vérification , qui
précise que ce total doit être égal à 0 pour contrôle. Or, iIl arrive qe
ce
total soit égal a -1 ou -2,-3....aussi j'aimerais faire clinoter ce
chiffre
(lorqu'il est différent de 0) afin d' attirer l'attention de la personne
qui
a rentré des informations erronnées dans le tableau.
Merci d'avance pour chacun de vous qui lira mon message
Bonjour A lire dans Excelabo (le sitaflo) : celleule clignotantes. Bonne chance -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"gobinche" a écrit dans le message de news:
Bonjour,
J'ai dressé un tableau excell , et mis une ligne de vérification , qui précise que ce total doit être égal à 0 pour contrôle. Or, iIl arrive qe ce total soit égal a -1 ou -2,-3....aussi j'aimerais faire clinoter ce chiffre (lorqu'il est différent de 0) afin d' attirer l'attention de la personne qui a rentré des informations erronnées dans le tableau.
Merci d'avance pour chacun de vous qui lira mon message
PMO
Bonjour,
Une piste en VBA en espérant que vous n'en soyez pas novice.
Copiez le code ci-dessous dans le code évènementiel de la feuille concernée et MODIFIEZ la valeur de la constante MA_LIGNE (ex: si votre ligne de contrôle est la ligne 30 alors Const MA_LIGNE As Long = 30)
'*********************** '### Adapter la constante MA_LIGNE ### Const MA_LIGNE As Long = 15 'ligne clinotante Dim STOPPER As Boolean
Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage As Range Dim C As Range Dim R As Range Dim switch As Boolean Dim SourceColor As Long Dim mColor As Long Set Plage = Range(Cells(MA_LIGNE, 1), _ Cells(MA_LIGNE, 256)) For Each C In Plage If Not IsEmpty(C) And _ IsNumeric(C) And _ C <> 0 Then If R Is Nothing Then Set R = C Else Set R = Union(R, C) End If End If Next C If R Is Nothing Then Exit Sub
STOPPER = False SourceColor = R.Interior.Color mColor = 16711680 'par défaut If mColor = SourceColor Then _ mColor = mColor 2 Do DoEvents switch = Not (switch) If switch Then R.Interior.Color = SourceColor Else R.Interior.Color = mColor End If Loop Until STOPPER R.Interior.Color = SourceColor End Sub
Private Sub Worksheet_SelectionChange _ (ByVal Target As Range) STOPPER = True End Sub '***********************
CELA FAIT Si une cellule (ou plusieurs cellules) de la ligne MA_LIGNE est est non vide et numérique et a une valeur différente de 0 alors cette cellule clignote par changement de couleur de fonds. Pour interrompre le clignotement il suffit de cliquer dans une autre cellule que celle sélectionnée.
RESTRICTION Les cellules de la ligne MA_LIGNE doivent avoir, à l'origine, la même couleur de fonds pour que la macro puisse la restituer en fin de vie.
Cordialement. -- PMO Patrick Morange
Bonjour,
J'ai dressé un tableau excell , et mis une ligne de vérification , qui précise que ce total doit être égal à 0 pour contrôle. Or, iIl arrive qe ce total soit égal a -1 ou -2,-3....aussi j'aimerais faire clinoter ce chiffre (lorqu'il est différent de 0) afin d' attirer l'attention de la personne qui a rentré des informations erronnées dans le tableau.
Merci d'avance pour chacun de vous qui lira mon message
Bonjour,
Une piste en VBA en espérant que vous n'en soyez pas novice.
Copiez le code ci-dessous dans le code évènementiel de
la feuille concernée et MODIFIEZ la valeur de la constante MA_LIGNE
(ex: si votre ligne de contrôle est la ligne 30 alors
Const MA_LIGNE As Long = 30)
'***********************
'### Adapter la constante MA_LIGNE ###
Const MA_LIGNE As Long = 15 'ligne clinotante
Dim STOPPER As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim C As Range
Dim R As Range
Dim switch As Boolean
Dim SourceColor As Long
Dim mColor As Long
Set Plage = Range(Cells(MA_LIGNE, 1), _
Cells(MA_LIGNE, 256))
For Each C In Plage
If Not IsEmpty(C) And _
IsNumeric(C) And _
C <> 0 Then
If R Is Nothing Then
Set R = C
Else
Set R = Union(R, C)
End If
End If
Next C
If R Is Nothing Then Exit Sub
STOPPER = False
SourceColor = R.Interior.Color
mColor = 16711680 'par défaut
If mColor = SourceColor Then _
mColor = mColor 2
Do
DoEvents
switch = Not (switch)
If switch Then
R.Interior.Color = SourceColor
Else
R.Interior.Color = mColor
End If
Loop Until STOPPER
R.Interior.Color = SourceColor
End Sub
Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)
STOPPER = True
End Sub
'***********************
CELA FAIT
Si une cellule (ou plusieurs cellules) de la ligne MA_LIGNE est
est non vide et numérique et a une valeur différente de 0 alors
cette cellule clignote par changement de couleur de fonds.
Pour interrompre le clignotement il suffit de cliquer dans une autre
cellule que celle sélectionnée.
RESTRICTION
Les cellules de la ligne MA_LIGNE doivent avoir, à l'origine, la
même couleur de fonds pour que la macro puisse la restituer
en fin de vie.
Cordialement.
--
PMO
Patrick Morange
Bonjour,
J'ai dressé un tableau excell , et mis une ligne de vérification , qui
précise que ce total doit être égal à 0 pour contrôle. Or, iIl arrive qe ce
total soit égal a -1 ou -2,-3....aussi j'aimerais faire clinoter ce chiffre
(lorqu'il est différent de 0) afin d' attirer l'attention de la personne qui
a rentré des informations erronnées dans le tableau.
Merci d'avance pour chacun de vous qui lira mon message
Une piste en VBA en espérant que vous n'en soyez pas novice.
Copiez le code ci-dessous dans le code évènementiel de la feuille concernée et MODIFIEZ la valeur de la constante MA_LIGNE (ex: si votre ligne de contrôle est la ligne 30 alors Const MA_LIGNE As Long = 30)
'*********************** '### Adapter la constante MA_LIGNE ### Const MA_LIGNE As Long = 15 'ligne clinotante Dim STOPPER As Boolean
Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage As Range Dim C As Range Dim R As Range Dim switch As Boolean Dim SourceColor As Long Dim mColor As Long Set Plage = Range(Cells(MA_LIGNE, 1), _ Cells(MA_LIGNE, 256)) For Each C In Plage If Not IsEmpty(C) And _ IsNumeric(C) And _ C <> 0 Then If R Is Nothing Then Set R = C Else Set R = Union(R, C) End If End If Next C If R Is Nothing Then Exit Sub
STOPPER = False SourceColor = R.Interior.Color mColor = 16711680 'par défaut If mColor = SourceColor Then _ mColor = mColor 2 Do DoEvents switch = Not (switch) If switch Then R.Interior.Color = SourceColor Else R.Interior.Color = mColor End If Loop Until STOPPER R.Interior.Color = SourceColor End Sub
Private Sub Worksheet_SelectionChange _ (ByVal Target As Range) STOPPER = True End Sub '***********************
CELA FAIT Si une cellule (ou plusieurs cellules) de la ligne MA_LIGNE est est non vide et numérique et a une valeur différente de 0 alors cette cellule clignote par changement de couleur de fonds. Pour interrompre le clignotement il suffit de cliquer dans une autre cellule que celle sélectionnée.
RESTRICTION Les cellules de la ligne MA_LIGNE doivent avoir, à l'origine, la même couleur de fonds pour que la macro puisse la restituer en fin de vie.
Cordialement. -- PMO Patrick Morange
Bonjour,
J'ai dressé un tableau excell , et mis une ligne de vérification , qui précise que ce total doit être égal à 0 pour contrôle. Or, iIl arrive qe ce total soit égal a -1 ou -2,-3....aussi j'aimerais faire clinoter ce chiffre (lorqu'il est différent de 0) afin d' attirer l'attention de la personne qui a rentré des informations erronnées dans le tableau.
Merci d'avance pour chacun de vous qui lira mon message