Vba - Boucle (colonne en colonne) + colorer cellules

Résolu
mimilendo35 -  
Franchy71 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voilà j'aimerais colorer les cellules dont les valeurs sont supérieures aux valeurs données en feuille "Données" à l'aide d'un VBA. Par exemple, pour la colonne pomme, j'aimerais que les cellules dont la valeur est supérieure à 5 soit colorées et ainsi de suite pour chaque colonne (d'où l'utilisation de la boucle for).
Je n'arrive pas à mettre en place mon "If" .. et je ne sais pas si le début est juste.

Je vous envoie mon fichier : http://www.cjoint.com/c/FDwjdaupH7n

Merci d'avance :)

A voir également:

3 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour
Hélas !
avec l'exemple extrèmement simplifié et bidon que tu donnes , on ne peut pas faire grand chose pour toi....

 Michel
0
mimilendo35
 
J'aimerais juste avoir un début de quelque chose..Il ne faut pas faire attention au contenu.
Et mon véritable fichier n'étant pas celui là (les données étant confidentiels, je ne peux pas le transférer) d'où les données quelques peu bidons !

Merci
0
Franchy71 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   3
 
Bonjour,

Je ne comprends pas pourquoi tu n'utilises pas de Mise en Forme Cond. ?
0
mimilendo35
 
Dans mon vrai fichier, j'ai 794 colonnes à traiter.
J'ai essayé via la formule =ET(B2>Cell;1;ESTNUM(B2)) mais cela ferait beaucoup de règles pour la mise en forme conditionnelle puisque chaque colonne sera comparée à une valeur
0
Franchy71 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   3
 
tu dois pouvoir le faire en une fois sur les 794 colonnes je t'envoie le fichier je l'ai fait en une fois sur les 3 colonnes.


Le lien a été crée : https://www.cjoint.com/c/FDwkjS4MFBt
0
mimilendo35 > Franchy71 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention  
 
C'était si simple et je n'y avais pas pensé !
0
Franchy71 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   3
 
de rien !
0
mimilendo35 > Franchy71 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention  
 
Petit problème, dans mon vrai fichier, parfois au lieu d'un chiffre, j'ai "NR" d'écrit, et la mise en forme le surligne également...
0
mimilendo35 > mimilendo35
 
Je pense que c'est bon avec cette formule :

=ET(B2>Données!A$2;B2<>"NR")
0