saber, carlos, kim,andré, le forum.
effectivement ça ne fonctionnait pas j'avais oublié les majuscules
, voila le bout de code qui fonctionne
Private Sub Worksheet_Change(ByVal Target As Range)
Dim couleur As Byte
If Not Application.Intersect(Target, Range('A1:L50')) Is Nothing Then
Select Case UCase(Target.Text)
Case 'PARIS': couleur = 19
Case 'NANTES': couleur = 35
Case 'ROUEN': couleur = 15
Case 'EVRY': couleur = 39
Case 'VERSAILLES': couleur = 18
End Select
Target.Interior.ColorIndex = couleur
End If
End Sub
petite procédure pour saber
1 tu copies ce code
2 tu vas dans ta feuille
3 tu clic droit et tu choisis 'visualiser le code'
4 tu colles ce code sur l'écran de droite
5 c'est terminé, ça fonctionne
si tu désires changer les couleurs tu changes les numéros (je crois qu'il y a 56 possibilités
si tu veux changer le nom des villes, il te suffit d'écrire entre les guillemets
dernière info j'ai défini la plage (A1:L50) (dans le haut du code) tu peux bien sur l'élargir à ta guise.
je te mets le fichier joint pour t'aider.
je traîne dans le coin alors n'hésite pas si tu veux d'autres informations
A+ [file name=couleurselonvaleurtexte_20050517083534.zip size=7157]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/couleurselonvaleurtexte_20050517083534.zip[/file]