Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel petite variante, procédure d'Excelabo

petite variante, procédure d'Excelabo

8 réponses
Avatar
DC
Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!

Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans le
code Feuille, fonctionne très bien, seulement petit inconvénient pour moi,
j'aimerais que l'action de clignotement se passe dans la cellule au dessus
de la cellule active,

Explication : je rentre une valeur dans la cellule active et la cellule au
dessus dispose d'une formule qui affiche un différentiel avec une troisième
cellule et c'est, cette différence, qui lorsqu'elle affiche une valeur
négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Clément Marcotte
Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans le
code Feuille, fonctionne très bien, seulement petit inconvénient pour moi,
j'aimerais que l'action de clignotement se passe dans la cellule au dessus
de la cellule active,


Activecell.offset(0,1) au lieu de Activecell


"DC" a écrit dans le message de news:
43a6eb51$0$19723$
Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!


Explication : je rentre une valeur dans la cellule active et la cellule au
dessus dispose d'une formule qui affiche un différentiel avec une
troisième cellule et c'est, cette différence, qui lorsqu'elle affiche une
valeur négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC




Avatar
Pounet95
Bonsoir,
Vite fait à la lecture en diagonale ....

set plage¬tivecell.offset(-1,0)

si la cellule active n'est pas en ligne 1 bien sûr !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"DC" a écrit dans le message de news:
43a6eb51$0$19723$
Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!

Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans le
code Feuille, fonctionne très bien, seulement petit inconvénient pour moi,
j'aimerais que l'action de clignotement se passe dans la cellule au dessus
de la cellule active,

Explication : je rentre une valeur dans la cellule active et la cellule au
dessus dispose d'une formule qui affiche un différentiel avec une
troisième cellule et c'est, cette différence, qui lorsqu'elle affiche une
valeur négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC




Avatar
Pounet95
Bonjour Clément,

DC voulait la cellule au dessus, pas celle immédiatement à droite !
:o))))

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Clément Marcotte" a écrit dans le message
de news:
Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans le
code Feuille, fonctionne très bien, seulement petit inconvénient pour
moi, j'aimerais que l'action de clignotement se passe dans la cellule au
dessus de la cellule active,


Activecell.offset(0,1) au lieu de Activecell


"DC" a écrit dans le message de news:
43a6eb51$0$19723$
Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!


Explication : je rentre une valeur dans la cellule active et la cellule
au dessus dispose d'une formule qui affiche un différentiel avec une
troisième cellule et c'est, cette différence, qui lorsqu'elle affiche une
valeur négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC








Avatar
Clément Marcotte
Et puis, en plus, Michel Gaboly t'as fourni un exemplke avec Offset, il y a
quelques heures à peine.


"DC" a écrit dans le message de news:
43a6eb51$0$19723$
Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!

Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans le
code Feuille, fonctionne très bien, seulement petit inconvénient pour moi,
j'aimerais que l'action de clignotement se passe dans la cellule au dessus
de la cellule active,

Explication : je rentre une valeur dans la cellule active et la cellule au
dessus dispose d'une formule qui affiche un différentiel avec une
troisième cellule et c'est, cette différence, qui lorsqu'elle affiche une
valeur négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC




Avatar
PMO
Bonjour,

Essayez le code modifié

Sub Clignotement()
If ActiveCell.Row = 1 Then Exit Sub
Set plage = Range(ActiveCell.Address).Offset(-1, 0)
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond
End Sub

Cordialement.
--
PMO
Patrick Morange



Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!

Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans le
code Feuille, fonctionne très bien, seulement petit inconvénient pour moi,
j'aimerais que l'action de clignotement se passe dans la cellule au dessus
de la cellule active,

Explication : je rentre une valeur dans la cellule active et la cellule au
dessus dispose d'une formule qui affiche un différentiel avec une troisième
cellule et c'est, cette différence, qui lorsqu'elle affiche une valeur
négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC





Avatar
Clément Marcotte
Bonjour,

Oupss! N'empêche qu'Offset est expliqué dans l'aide.

Des fois on dirait que F1 est en option dans Office.


"Pounet95" a écrit dans le message de news:

Bonjour Clément,

DC voulait la cellule au dessus, pas celle immédiatement à droite !
:o))))

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Clément Marcotte" a écrit dans le message
de news:
Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans le
code Feuille, fonctionne très bien, seulement petit inconvénient pour
moi, j'aimerais que l'action de clignotement se passe dans la cellule au
dessus de la cellule active,


Activecell.offset(0,1) au lieu de Activecell


"DC" a écrit dans le message de news:
43a6eb51$0$19723$
Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!


Explication : je rentre une valeur dans la cellule active et la cellule
au dessus dispose d'une formule qui affiche un différentiel avec une
troisième cellule et c'est, cette différence, qui lorsqu'elle affiche
une valeur négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC











Avatar
DC
Bonsoir à tous.......................Bonsoir Clément et Pounet95,

Merci de vos réponses, rapides et positives........C'est Sympa...!!

En effet, c'est parfait, çà fonctionne à merveille,.....Merci du savoir
faire...!!,.......que vous diffusez bénévolement,....bonne soirée...!!

Cordialement.............un grand Merci...!!...............DC

"Pounet95" a écrit dans le message de news:

Bonsoir,
Vite fait à la lecture en diagonale ....

set plage¬tivecell.offset(-1,0)

si la cellule active n'est pas en ligne 1 bien sûr !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"DC" a écrit dans le message de news:
43a6eb51$0$19723$
Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!

Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans le
code Feuille, fonctionne très bien, seulement petit inconvénient pour
moi, j'aimerais que l'action de clignotement se passe dans la cellule au
dessus de la cellule active,

Explication : je rentre une valeur dans la cellule active et la cellule
au dessus dispose d'une formule qui affiche un différentiel avec une
troisième cellule et c'est, cette différence, qui lorsqu'elle affiche une
valeur négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC







Avatar
Jacquouille
M'enfin, Clément !
Tu sais bien que la saison de F1 est terminée. Non ? -))

--
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.

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Oupss! N'empêche qu'Offset est expliqué dans l'aide.

Des fois on dirait que F1 est en option dans Office.


"Pounet95" a écrit dans le message de news:

Bonjour Clément,

DC voulait la cellule au dessus, pas celle immédiatement à droite !
:o))))

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Clément Marcotte" a écrit dans le
message de news:
Voici une procédure d'Excelabo ( Serge Garneau N° 784 ) qui mise dans
le code Feuille, fonctionne très bien, seulement petit inconvénient
pour moi, j'aimerais que l'action de clignotement se passe dans la
cellule au dessus de la cellule active,


Activecell.offset(0,1) au lieu de Activecell


"DC" a écrit dans le message de news:
43a6eb51$0$19723$
Bonsoir à tous,....................Excel 2000 sur XP

Merci de me lire.................Bonne Soirée...!!


Explication : je rentre une valeur dans la cellule active et la cellule
au dessus dispose d'une formule qui affiche un différentiel avec une
troisième cellule et c'est, cette différence, qui lorsqu'elle affiche
une valeur négative actionne le clignotement,
'---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value < 0 Then Call Clignotement
End If
End Sub

Sub Clignotement()

Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 2000
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond

End Sub
'---------------------------------------------------
Salutations!...............Merci d'avance...!!...........DC