couleur cellule sous condition

  • Initiateur de la discussion Initiateur de la discussion tiaggo
  • 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 !

T

tiaggo

Guest
bonjour
je souhaiterais faire une macro qui me permettre de colorier une cellule en fonction de la valeur saisie dans cette cellule (cf doc joint) 😕

merci d'avance pour vos réponses 🙂
 

Pièces jointes

Re : couleur cellule sous condition

Bonjour Efge
Je suis très interressé par votre macro
Comment faire pour mettre en couleur la Police et non la cellule?
Merci d'avance
Cordialement
Jorisphi
-----------------------------
Regardez l'exemple, à répéter pour chaque cas et à adapter à votre tableau si il est plus grand.
Cordialement[/QUOTE]
 
Re : couleur cellule sous condition

Bonjour
test cela:
Code:
Sub Couleurs()
For i = 8 To 14
For j = 2 To 8
    If Cells(i, j).Value = "paul" Then
        Cells(i, j).Font.ColorIndex = 3
    End If
    If Cells(i, j).Value = "robert" Then
        Cells(i, j).Font.ColorIndex = 46
    End If
    If Cells(i, j).Value = "jacques" Then
        Cells(i, j).Font.ColorIndex = 22
    End If
    If Cells(i, j).Value = "michel" Then
        Cells(i, j).Font.ColorIndex = 33
    End If
Next j
Next i
End Sub
 
Re : couleur cellule sous condition

Bonjour CB60
Grand merci, cela fonctionne......
Juste une question, (Je suis débutant en VBA)
Que placer dans ma Worksheet pour que cette macro fonctionne lors de l'ouverture de la feuille ?.....

Grand merci pour votre répnse
Cordialement
Jorisphi

-----------------
Bonjour
test cela
Sub Couleurs()
For i = 8 To 14
For j = 2 To 8
If Cells(i, j).Value = "paul" Then
Cells(i, j).Font.ColorIndex = 3
End If
If Cells(i, j).Value = "robert" Then
Cells(i, j).Font.ColorIndex = 46
End If
If Cells(i, j).Value = "jacques" Then
Cells(i, j).Font.ColorIndex = 22
End If
If Cells(i, j).Value = "michel" Then
Cells(i, j).Font.ColorIndex = 33
End If
Next j
Next i
End Sub
[/CODE][/QUOTE]
 
Re : couleur cellule sous condition

Re
Par macro à mettre dans le Thisworkbook:

Private Sub Workbook_Open()
For i = 8 To 14
For j = 2 To 8
If Cells(i, j).Value = "paul" Then
Cells(i, j).Font.ColorIndex = 3
End If
If Cells(i, j).Value = "robert" Then
Cells(i, j).Font.ColorIndex = 46
End If
If Cells(i, j).Value = "jacques" Then
Cells(i, j).Font.ColorIndex = 22
End If
If Cells(i, j).Value = "michel" Then
Cells(i, j).Font.ColorIndex = 33
End If
Next j
Next i
End Sub
Le Thisworkbook est dans le projet de votre classeur.
Il suffit de double-cliker dessus et de copier coller la macro.
Enregister le fichier, le fermer puis à chaque ouverture la macro se lancera automatiquement
Cordialement
 
- 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
7
Affichages
304
Réponses
10
Affichages
410
Retour