modifier la couleur de cellule en fonction du texte d'une colonn Résolu/Fermé

Question

Bonjour a vous,

Voilà, ca fait un moment que je cherche, et je sèche un peu.

J'essaie de modifier le format d'une cellule en fonction du fait si elle contient ou non le texte compris dans une des cellules d'une autre feuille.
J'ai essayé avec les mises en formes conditionnelles, mais cela ne fonctionne pas.

Pour préciser ma demande j'ai dans la feuille 1 sur la colonne 1 le nom de mes fournisseurs
Sur la feuille 2 colonne 5, j'ai mes différentes commandes avec le nom du fournisseur en question.
Sur les feuilles j'ai des en tête et ne souhaites pas prendre en compte les 1ere lignes.
Je souhaites mettre en évidence le fait d'avoir un nouveau fournisseur.
i.e. : si le texte contenu dans la cellule de la colonne 5 feuille 2 n'est pas égale au texte contenu dans celllule de la colonne 1, celle-ci se mets en rouge.

J'ai déjà en ligne de commande :

li = Range("e65000").End(xlUp).Row
ly = Range("a65000").End(xlUp).Row

For i = 5 To li
For y = 11 To ly
 
If Range("e" & i) <> Sheets("1.3 - Coordonnée fournisseur").Range("A" & y) Then
 Range("e" & i).Interior.Color = 3 'rouge
else : Range("e" & i).Interior.Color = 0
Next y
Next i

End If


J'espère avoir été asses clair dans mes explications pour me faire comprendre.
Et si vous avez d'autres pistes que la voie que je suis en train de prendre, faites vous plaisir!
Merci d'avance pour vos réponses.

via55 · Answer

Bonjour

Cela doit être possible par MFC pourtant (à condition de nommer la plage des fournisseurs pou pouvoir l'utiliser dans une formule de MFC sur une autre feuille)
Postes un exemple de ton fichier (allégé et anonymé si nécessaire) sur monpartage.fr, fais créer un lien, copies le et reviens le coller ici, on aura une base de travail

Cdlmnt
Via
 
"L'imagination est plus importante que le savoir."    A. Einstein

steve · Answer

Bonjour Gyom,

Dans ton code VBA, le deux-points « : » après le else est en trop, car
en le laissant, ça signifie : « sinon rien » ; puis exécuter l'instruction
suivante (après le deux-points).

Pour les couleurs que tu veux mettre, au lieu de .Color, il faut que
tu utilises .ColorIndex

Essaye ce code VBA :

Option Explicit

Sub Essai()

Dim li As Long, ly As Long, i As Long, y As Long

li = Range("E" & Rows.Count).End(xlUp).Row
  ly = Range("A" & Rows.Count).End(xlUp).Row

For i = 5 To li
    For y = 11 To ly
      With Range("E" & i)
        If .Value <> Worksheets("1.3 - Coordonnée fournisseur").Range("A" & y) Then
          .Interior.ColorIndex = 3 ' rouge
        Else
          .Interior.ColorIndex = xlNone
        End If
      End With
    Next y
  Next i

End Sub

Couleur xlNone : Aucune couleur
(ce qui est différent de Blanc).

Merci de me dire si ça te convient.

Cordialement

Modifier la couleur de cellule en fonction du texte d'une colonn

2 réponses

Discussions similaires