Bonjour
J'aimerais attribuer une couleur à certaines cellules simplement en cliquant
dessus
Y a t il une formule de mise en forme qui le permette?
Merci de votre aide
Pierre
Bonjour J'aimerais attribuer une couleur à certaines cellules simplement en cli quant dessus Y a t il une formule de mise en forme qui le permette? Merci de votre aide Pierre
On 1 août, 15:15, "Pierre" <pierre.gr...@freesbee.fr> wrote:
Bonjour
J'aimerais attribuer une couleur à certaines cellules simplement en cli quant
dessus
Y a t il une formule de mise en forme qui le permette?
Merci de votre aide
Pierre
Bonjour J'aimerais attribuer une couleur à certaines cellules simplement en cli quant dessus Y a t il une formule de mise en forme qui le permette? Merci de votre aide Pierre
Pierre
Merci Mais comment faire pour que la couleur reste? Pierre
Merci
Mais comment faire pour que la couleur reste?
Pierre
Merci Mais comment faire pour que la couleur reste? Pierre
Jacky
Bonsoir,
Un clique dans le plage [a1:J10] la cellule devient rouge , si elle est déjà rouge on enlève le rouge A mettre dans le module de la feuille en question. '--------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo fin Application.EnableEvents = False Set plage = [a1:j10] ' à adapter If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = Abs(Target.Interior.ColorIndex = xlNone) * 3 ' ***** 3 =rouge à adapter***** Target.Offset(0, 1).Activate End If fin: Application.EnableEvents = True End Sub '------------------ Voir ici http://www.cijoint.fr/cjlink.php?file=cj200908/cijuaxomhQ.xls -- Salutations JJ
"Pierre" a écrit dans le message de news: 4a744003$0$12640$
Bonjour J'aimerais attribuer une couleur à certaines cellules simplement en cliquant dessus Y a t il une formule de mise en forme qui le permette? Merci de votre aide Pierre
Bonsoir,
Un clique dans le plage [a1:J10] la cellule devient rouge , si elle est déjà
rouge on enlève le rouge
A mettre dans le module de la feuille en question.
'---------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fin
Application.EnableEvents = False
Set plage = [a1:j10] ' à adapter
If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then
Target.Interior.ColorIndex = Abs(Target.Interior.ColorIndex = xlNone) * 3
' ***** 3 =rouge à adapter*****
Target.Offset(0, 1).Activate
End If
fin:
Application.EnableEvents = True
End Sub
'------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200908/cijuaxomhQ.xls
--
Salutations
JJ
"Pierre" <pierre.grxxx@freesbee.fr> a écrit dans le message de news:
4a744003$0$12640$ba4acef3@news.orange.fr...
Bonjour
J'aimerais attribuer une couleur à certaines cellules simplement en
cliquant dessus
Y a t il une formule de mise en forme qui le permette?
Merci de votre aide
Pierre
Un clique dans le plage [a1:J10] la cellule devient rouge , si elle est déjà rouge on enlève le rouge A mettre dans le module de la feuille en question. '--------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo fin Application.EnableEvents = False Set plage = [a1:j10] ' à adapter If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = Abs(Target.Interior.ColorIndex = xlNone) * 3 ' ***** 3 =rouge à adapter***** Target.Offset(0, 1).Activate End If fin: Application.EnableEvents = True End Sub '------------------ Voir ici http://www.cijoint.fr/cjlink.php?file=cj200908/cijuaxomhQ.xls -- Salutations JJ
"Pierre" a écrit dans le message de news: 4a744003$0$12640$
Bonjour J'aimerais attribuer une couleur à certaines cellules simplement en cliquant dessus Y a t il une formule de mise en forme qui le permette? Merci de votre aide Pierre