click

[analyseaux]

Bonjour

Grace à l'amabilité d'un des membres du forum j'ai reçu ce code ci-dessus qui me permet à chaque click d'avoir le bleu le rouge et le noir en gras de la valeur inscrite sur la cellule. Ce code est valable pour toute la feuille alors que j'aurais aimé pour cette fois ci que cela se fait que sur une plage bien determinée (p8:eq2027) et ajouter deux autres couleurs le marron et le vert foncé.

MERCI POUR VOTRE COLLABORATION OH COMBIEN PRECIEUSE.

CODE FEUILLE
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.Font
.ColorIndex = IIf(.ColorIndex = xlAutomatic, 5, IIf(.ColorIndex = 5, 3, xlAutomatic))
.Bold = IIf(.ColorIndex = xlAutomatic, 0, 1)
End With
Cancel = True
Bold = True
End Sub

 

[kjin]

Re : click

Bonjour,
Tu souhaites ajouter 2 couleurs, mais est-ce au pifomètre !?
Pour limiter la plage à A1:A10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A10") is nothing then exit sub
'la suite du code

A+
kjin

 

[analyseaux]

Re : click

Pas du tout... chacune des couleurs suggere une intepretation bien précise en quelque sorte un code entre les differents acteurs responsable du fichier.
En completant le code je n'ai point reussi.
CI JOINT FICHIER

 

[kjin]

Re : click

Re,
Bah on est pas plus avancé mais bon...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Cancel = True
With Target.Font
Select Case .ColorIndex
    Case Is = xlAutomatic
        .ColorIndex = 5
    Case 5
        .ColorIndex = 3
    Case 3
        .ColorIndex = 53
    Case 53
        .ColorIndex = 10
    Case Else
        .ColorIndex = xlAutomatic
    End Select
    .Bold = IIf(.ColorIndex = xlAutomatic, 0, 1)
End With

End Sub

A+
kjin

 

[camarchepas]

Re : click

Bonjour à tous,

Comme cela peut être ?

 

[analyseaux]

Re : click

merci à vous deux j'ai retenu celle de Kjin...Elle est tout à fait appropriée