Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
salut fhoest
oui je connait bien la MFC mais je souhaiterais faire une macro , avec la possibilité de 8 ou 9 couleurs, ce que ne me permet pas la MFC ;-)
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]
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
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]
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.