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 24581 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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  2. 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
  3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    2007-2010

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

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

    choisir le format
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. 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
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      ok, je met en résolu pour toi (en haut vers ton titre, pour la prochaine fois)
      eric
      0