XL 2010 Colorier en VBA

eduraiss

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

mapomme

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

Pièces jointes

  • eduraiss- colorier condition- v1.xlsm
    16.5 KB · Affichages: 6
Dernière édition:

eduraiss

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

Discussions similaires

Réponses
28
Affichages
921
Réponses
3
Affichages
550

Statistiques des forums

Discussions
311 720
Messages
2 081 924
Membres
101 841
dernier inscrit
ferid87