Aide pour modifier formule

[pascal_tie]

Bonjour,

J'utilise cette macro pour colorier mes cellules en fonction du nom inscrit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B5:B900]) Is Nothing And Target.Count = 1 Then
Select Case (Target.Value)
Case "Poussin"
Target.Interior.ColorIndex = 38
Case "Benjamin"
Target.Interior.ColorIndex = 4
Case "Minime"
Target.Interior.ColorIndex = 6
Case "Cadet"
Target.Interior.ColorIndex = 24
Case "Junior"
Target.Interior.ColorIndex = 8
Case "Senior Région 1"
Target.Interior.ColorIndex = 19
Case "Senior Région 2"
Target.Interior.ColorIndex = 3
Case "Senior N 3"
Target.Interior.ColorIndex = 36
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub

Maintenant je souhaite la modifiée pour que mes cellules vides soient hachurées.

Je vous remercie de votre aide.

Pascal

 

[Compte Supprimé 979]

Re : Aide pour modifier formule

Bonsoir Pascal Tie,

Tu peux utiliser l'enregistreur de macro pour avoir la réponse
Menu -> Outils -> Macro -> Nouvelle macro

A+

 

[job75]

Re : Aide pour modifier formule

Bonsoir,

A la fin fin de votre macro, essayez :

Target.Interior.Pattern = xlSolid
Range(Range("B5"), Range("B65536").End(xlUp)).SpecialCells(xlCellTypeBlanks).Interior.Pattern = xlUp

A+

Edit 1 : bonsoir Bruno, j'ai en effet utilisé (un peu) l'enregistreur de macros...
Edit 2 : j'ai rajouté la 1ère ligne pour effacer les hachures de Target

 

[pascal_tie]

Re : Aide pour modifier formule

Bonjour,

Merci pour vos réponses. Je vais encore vous demander votre aide, je veux me servir du code fournir pour pouvoir hachure ma feuille de match voir le fichier joint.

Merci

Pascal