Couleur

Bonjour a tous

voici mon problème:

dans ce contexte cela ne fonctionne pas ,mais la version en vert fonctionne ou est mon erreur ???

Sub couleur_Ligne()

If Range("A2").Value = "France" Then Range("A2:D2").Interior.Color = 65535

If Range("A2").Value = "Belgique" Then Range("A2:D2").Interior.Color = 5296274

If Range("A2").Value = "Maroc" Then Range("A2:D2").Interior.Color = 255

If Range("A2").Value = "suisse" Then Range("A2:D2").Interior.Color = 15773696

'Range("A2:D2").Interior.Color = 65535

'Range("A3:D3").Interior.Color = 5296274

'Range("A4:D4").Interior.Color = 255

'Range("A5:D5").Interior.Color = 15773696

End Sub

avec ceci vous pourriez mieux m aidé

merci a vous

Bonsoir,

2 raisons pour lesquelles cela ne fonctionne pas :

• casse différente (majuscule/minuscule) : FRANCE n'est pas égal à France
• espace à la fin des pays [FRANCE] n'est pas égal à [FRANCE]

2 solutions :

• rendre les données cohérentes
• modifier la macro

 If Trim(UCase(Range("A2").Value)) = "FRANCE" Then Range("a2:D2").Interior.Color = 255

Trim : supprime les espaces en début et fin

UCase : met en majuscules.

Bonne soirée

Bouben

Bonjour diego07, bouben

Une autre version mais qui ne fonctionne que sur la colonne A, je ne vois pas comment étendre la fonction aux autres colonnes ?

Amicalement

Pierrot