• Initiateur de la discussion Initiateur de la discussion zed
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Z

zed

Guest
comment allez au dela de trois pour une mise ne forme conditionnelle.J'ai regarder la fonction cellule mais ...

florent
 
Voici une solution avec une macro que j'ai trouvé sur ce forum


Option Explicit

'Couleur manuelle
Const Noir = 1
Const Blanc = 2
Const Rouge = 3
Const Vert = 4
Const Bleu = 5
Const Jaune = 6
Const Violet = 7

Sub Change_Couleurs(Plage As Range)
Dim Cel As Range
For Each Cel In Plage
With Cel
Select Case .Value
'test en cas de cellule vide :
Case ""
.Interior.ColorIndex = Violet

.Interior.ColorIndex = Vert
Case 11 To 20
.Interior.ColorIndex = Jaune
Case 21 To 30
.Interior.ColorIndex = Rouge
Case 31 To 40
.Interior.ColorIndex = Bleu
End Select
End With
Next Cel
End Sub

Sub Test_Couleur()
Change_Couleurs Range("A1:C10")
End Sub
 
Voila une autre macro qu'il faut dans la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Case "ZAZA"
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Case "ZEZETTE"
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Case "JEAN-PAUL"
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case "PAUL"
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Select

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
199
  • Question Question
Microsoft 365 Excel graphique
Réponses
3
Affichages
292
Retour