IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Discussion :

Donner la couleur (interieur) à une cellule en fonction du texte d'une autre cellule


Sujet :

VBA

  1. #1
    Candidat au Club
    Homme Profil pro
    Consultant CRM
    Inscrit en
    Août 2015
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant CRM

    Informations forums :
    Inscription : Août 2015
    Messages : 1
    Points : 4
    Points
    4
    Par défaut Donner la couleur (interieur) à une cellule en fonction du texte d'une autre cellule
    Bonjour à tous,

    Je suis nouveau sur le forum, et je dois vous dire que j'apprends beaucoup !

    Cependant mes connaissances n'étant que tres limité, je viens à vous avec le probleme suivant:

    L'idée ce serait de pouvoir donner une couleur à une cellule, en fonction du texte d'une autre cellule . Sans passer par la Mise en forme conditionnelle.( il me faut absolument une macro ou un proceder excel standard)

    Par exemple:

    Que la cellule A1 prenne la couleur rouge si dans la colonne D1 il y a marqué "marche ", s'il y a marqué " en traitement " la cellule A1 prend la couleur bleue. etc etc.

    Si vous pouviez m'aider ce serait une grande aide,je me suis beaucoup renseigné et il n'ya que la MFC ( methode ne me convenant pas du tout).

    Voici un exemple excel


    Bon j'ai trouvé

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Option Explicit
     
    Sub  name ()
     
    Dim i As Long
     
     
    For i = 1 To Range("D65000").End(xlUp).Row
     
    If Range("D" & i) = "en marche" Then Range("A" & i & ":" & "A" & i).Interior.Color = 255 'rouge
    If Range("D" & i) = "len traitement" Then Range("A" & i & ":" & "A" & i).Interior.Color = 6299648 'Bleu
    If Range("D" & i) = "" Then Range("A" & i & ":" & "J" & i).Interior.Color = xlNone
    Next i
    End Sub
    Cordialement
    Fichiers attachés Fichiers attachés

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 14
    Dernier message: 09/04/2014, 07h31
  2. Réponses: 2
    Dernier message: 04/05/2012, 07h50
  3. Réponses: 10
    Dernier message: 31/07/2009, 10h38
  4. Concaténer fonction et texte dans une cellule
    Par Dsphinx dans le forum Excel
    Réponses: 4
    Dernier message: 07/08/2007, 09h16
  5. [VBA-E] Lancement d'une macro en fonction du contenu d'une cellule
    Par Zak Blayde dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 30/01/2007, 15h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo