XL 2010 Colorier en VBA

[eduraiss]

Bonjour le forum
J'ai de gros problème avec la mise en forme conditionnelle qui disparait je ne sais pas pourquoi sauf que ma feuille se protége ou se déprotége suivant l'utilisation de certains code
j'essai de trouver une solution en VBA
Ci-dessous je voudrais utiliser le code recherche et si la conditions et vrai alors je colorie en rouge les cellules de la colonne C2:C1500 et si c'est faux pas de couleur
merci de votre aide

Sub test()
With Sheets("Suivi des comptes")

Range("j2").Value = WorksheetFunction.VLookup(.Range("C2").Value, Sheets("Noms produits").Range("f2:k50"), 4, False) > WorksheetFunction.VLookup(.Range("C2").Value, Sheets("Noms produits").Range("f2:k50"), 5, False)

End With
End Sub

 

[mapomme]

Bonsoir @eduraiss ,

Manque un petit fichier... Une piste sans doute inadaptée ?:

Sub test()
Dim Ok As Boolean
With Sheets("Suivi des comptes")
  .Range("C2:C1500").Interior.ColorIndex = xlColorIndexNone
  Ok = WorksheetFunction.VLookup(.Range("C2").Value, Sheets("Noms produits").Range("f2:k50"), 4, False) > _
       WorksheetFunction.VLookup(.Range("C2").Value, Sheets("Noms produits").Range("f2:k50"), 5, False)
  If Ok Then .Range("C2:C1500").Interior.Color = RGB(255, 0, 0)
End With
End Sub

 

[eduraiss]

Re le forum
Bonjour mapomme
Merci pour cette réponse, mais j'ai un bug ci-dessous

.Range("C2:C1500").Interior.ColorIndex = xlColorIndexNone

 

[mapomme]

mais j'ai un bug ci-dessous

Cette affirmation ne nous aide guère. Quelle est le numéro d'erreur? Que dit Excel ? Où est le petit fichier de test ?

 

[eduraiss]

erreur d execution 1004
erreur définie par l application ou par l'objet

 

[mapomme]

Re,

Testez (pas à pas) la procédure Test de Module1. Elle fonctionne chez moi (pour ce que j'en ai compris).
Que se passe-t-il chez vous ?

PS: je travaille aussi sur Excel 2010.

 

[eduraiss]

Merci une nouvelle fois
je me suis mal exprimer, désolé, il me semble que le code me te en rouge toute la colonne C2:C1500 alors que ce n'est pas cela

pour chaque cellule de la colonne C le code doit voir si le résultat de la recherche est vrai ou faux et mettre en rouge si c'est vrai

 

[mapomme]

Re,

Je m'en doutais un peu mais comme il n'y a pas de fichier test, et que je n'ai pas l'intention d'en créer un ex nihilo (ça c'est le boulot du demandeur), je vais arrêter ici. A moins d'une bonne surprise...

 

[eduraiss]

voici un fichier exemple

Merci

 

[mapomme]

Re,

pPus le temps ce soir 🙁. A demain soir 😉

 

[JBARBE]

Re le forum
Bonjour mapomme
Merci pour cette réponse, mais j'ai un bug ci-dessous

.Range("C2:C1500").Interior.ColorIndex = xlColorIndexNone

Bonjour à tous, toutes, mapomme, eduraiss,
essai :
.Range("C2:C1500").Interior.ColorIndex = xlNone
pour effacer la couleur interne !
Bonne soirée !

 

[eduraiss]

Re le forum

Bonsoir JBARBE

J'ai renvoyé un fichier ericV1 il est est plus parlant que les posts du début