Motif cellule

Bonjour à toutes et à tous,

je cherche une VBA qui lorsque je clic dans une cellule, cette cellule devient hachuré (en bleu par exemple) puis avec un nouveau clic elle redeviens normale.

J'ai ce code mais toute la cellule change de couleur. Comment l'adapter pour juste hachurer.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Not Application.Intersect(Target, Range("J4:L4")) Is Nothing Then

With Target

If Selection.Interior.ColorIndex = 48 Then

Selection.Interior.ColorIndex = xlNone

Else

Selection.Interior.ColorIndex = 48

End If

End With

End If

End Sub

Merci beaucoup

Bonjour Forbelin,

Ton code est OK pour de la couleur, pour le hachurage, il suffit d'utiliser l'enregistreur de macro

A+

Bonjour,

Merci pour ce message mais je ne comprend pas ce que tu dis.

Merci

Voici ton code un peu modifié avec ta demande de hachurage.

Cordialement

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("J4:L4")) Is Nothing Then

With Target.Interior
    If .Pattern = xlLightUp Then
    .Pattern = xlNone
      Else
    .Pattern = xlLightUp
    End If
End With

End If
End Sub

Merci beaucoup, c'est exactement çà.

Encore une petite chose. Quel serait le code pour pouvoir choisir la couleur du motif

Merci encore.

Christophe

Modifie ci dessous .patterncolor avec la couleur que tu veux :

vbred (rouge)

vbgreen (vert)

etc....

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("J4:L4")) Is Nothing Then

With Target.Interior
If .Pattern = xlLightUp Then
.Pattern = xlNone
Else
.PatternColor = vbRed
.Pattern = xlLightUp
End If
End With

End If
End Sub

Salut Fortbelin,

fortbelin a écrit :

Bonjour,

Merci pour ce message mais je ne comprend pas ce que tu dis.

Merci

Pour ta culture personnelle ,

sur Excel tu peux arriver à faire beaucoup de code toi même en utilisant "l'enregistreur de macros"

Pour cela dans 2003, menu -> Outils -> Macros -> Nouvelle macro

Dans 2007, après avoir personnalisé le Ruban (Fichier -> Options -> Personnaliser le ruban) et cocher l'onglet Développeur

Onglet Développeur -> Volet Code -> Enregistrer une macro

Ensuite il te suffit d'effectuer toutes les actions souhaitées

Tu arrête l'enregistreur de macro et tu as ton code, qu'il faut nettoyer

Voilà

A+