Changer la couleur de remplissage VBA 2010

Résolu
Veerus Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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   Statut Membre Dernière intervention  
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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   Statut Membre Dernière intervention  
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
ok, je met en résolu pour toi (en haut vers ton titre, pour la prochaine fois)
eric
0