Changer la couleur de remplissage VBA 2010

Résolu/Fermé
Veerus Messages postés 11 Date d'inscription mercredi 15 mai 2013 Statut Membre Dernière intervention 16 mars 2015 - 15 mai 2013 à 06:43
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 15 mai 2013 à 11:10
Bonjour à tous.
Je souhaiterais changer la couleur de remplissage d'une case (a,1) en fonction de deux cases (a,2) et (a,3) : si une de ces deux cases (a,2) et (a,3) n'est pas vide, alors il me faudrait mettre une couleur de remplissage dans ma case (a,1).

Jusque là, j'ai produit les lignes suivantes :

If valeur = Cells(a, 2) <> "" or valeur = Cells(a, 3) <> "" Then
Cell(a, 1).Interior.Color = RGB(200, 160, 35)

Je n'ai jamais programmé sur VBA donc je ne sais ni où poser cette macro ni comment la lancer pour vérifier qu'elle marche. Toute aide sera la bienvenue.
Bonne journée,
Veerus !

5 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
15 mai 2013 à 08:55
Bonjour,

point de detail:

Cells(a, 2)----> a c'est une variable ecrite quelque part ou c'est la cellule Cells(2,1) pour A2

et pourquoi du vba et pas une mise en forme conditionnelle (pas la couleur en rgb).
0
Veerus Messages postés 11 Date d'inscription mercredi 15 mai 2013 Statut Membre Dernière intervention 16 mars 2015
15 mai 2013 à 10:40
Bonjour et merci de ce 1er retour. En fait, c'est bien la cellule A2 que je voulais travailler.
Je ré-écrirais donc le code suivant :

If valeur = Cells(1, 2) <> "" or valeur = Cells(1, 3) <> "" Then
Cell(1, 1).Interior.Color = RGB(200, 160, 35)


Cependant, je m'étais tenté à la mise en forme conditionnelle mais je ne pense pas pouvoir colorier une cellule en fonction de ce qu'il y a dans d'autres cellules. A moins que j'aie raté un passage !
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
Modifié par eriiic le 15/05/2013 à 10:49
Bonjour,

Cependant, je m'étais tenté à la mise en forme conditionnelle mais je ne pense pas pouvoir colorier une cellule en fonction de ce qu'il y a dans d'autres cellules. A moins que j'aie raté un passage !
Oui.
Sélectionner A1:A10 par exemple et pour la MFC passer par 'La formule est' : =$B1&$C1<>""


eric


Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 15/05/2013 à 10:51
Re,

2007-2010

click A1, accueil, mise en forme.....,nouvelle regle, utiliser formule

formule pour MFC: =OU(A2<>"";A3<>"")

choisir le format
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Veerus Messages postés 11 Date d'inscription mercredi 15 mai 2013 Statut Membre Dernière intervention 16 mars 2015
15 mai 2013 à 11:03
Great ! Merci pour le tip. J'avais mal interprété le "Appliquer une mise en forme aux valeurs pour lesquelles cette formule est vraie" !
Merci bcp !
Veerus
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
15 mai 2013 à 11:10
ok, je met en résolu pour toi (en haut vers ton titre, pour la prochaine fois)
eric
0