XL 2010 Colorier en VBA

eduraiss

XLDnaute Impliqué
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

XLDnaute Barbatruc
Supporter XLD
Bonsoir @eduraiss ,

Manque un petit fichier... Une piste sans doute inadaptée ?:
Code:
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

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

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

eduraiss

XLDnaute Impliqué
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

XLDnaute Barbatruc
Supporter XLD
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...
 

JBARBE

XLDnaute Barbatruc
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

XLDnaute Impliqué
Re le forum

Bonsoir JBARBE

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

Discussions similaires


Haut Bas