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

Macros et VBA Excel Discussion :

couleur cellules en rapport a une autre cellule [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    magasinier
    Inscrit en
    Janvier 2012
    Messages
    62
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : magasinier
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Janvier 2012
    Messages : 62
    Par défaut couleur cellules en rapport a une autre cellule
    Bonsoir le forum

    Comment mettre plusieurs cellules en ( bleu , rouge , jaune , vert , orange ou violet ) Cellules : D12 à L12 / D14 / D16 à H16 / D18 à M18 / D20 à M20 / D22 à M22 / D24 à M24 / D26 à F26 / D28 à E28 / I28 à L28 / D30 / H30 / L30 / D38 à E38 / I38 à K38 / D40 à L40 / D42 / I42 à L42 / D44 à F44 / K44 et L44 / D46 à M46 / D48 à M48 .Toutes ces cellules doivent se mettre en bleu si dans la cellule I6 il y a le chiffre 2 , s'il y a 3 c'est en rouge ,s'il y a 4 c'est en jaune , vert pour le 5 , orange pour le 6 et violet pour le 7 et aucune couleur pour le 1 . Il faudrait aussi que pour les couleurs bleu et vert la police soit en blanc.
    merci pour vos réponses

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Ci dessous un bout de code à compléter.
    J'ai mis un peu de tes cellules et mis le traitement pour 2 et 3

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rg As Range
     
    If Target.Address(False, False) = "I16" Then
     
        Set rg = Union(Range("D12:L12"), Range("D14"), Range("D16:H16"))
        Select Case Target.Value
            Case 2
                rg.Interior.ColorIndex = 5
                rg.Font.ColorIndex = 2
            Case 3
                rg.Interior.ColorIndex = 3
                rg.Font.ColorIndex = 1
        End Select
    End If
     
    End Sub

  3. #3
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Quel est ta version d'Excel?
    Renomme ta plage de données PLAGE et utilise les mise en forme conditionnelles avec formules ...

  4. #4
    Membre confirmé
    Homme Profil pro
    magasinier
    Inscrit en
    Janvier 2012
    Messages
    62
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : magasinier
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Janvier 2012
    Messages : 62
    Par défaut
    re bonsoir,

    merci pour le code je vais l'essayer

    excel 2003 mais je ne comprend pas
    Renomme ta plage de données PLAGE et utilise les mise en forme conditionnelles avec formules
    j'ai mis un exemple en piece jointe

    RE
    Jérome,
    Je ne sais pas ou mettre le code que tu m'as indiquer
    Peut tu STPlait me l'indiquer dans le fichier joint [1er message]
    merci BCP

  5. #5
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Sur Excel 2003, tu as la possibilité de seulement 3 conditions pour la mise en forme conditionnelle.
    Je retire donc ma proposition.

  6. #6
    Membre confirmé
    Homme Profil pro
    magasinier
    Inscrit en
    Janvier 2012
    Messages
    62
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : magasinier
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Janvier 2012
    Messages : 62
    Par défaut
    merci quand meme

    mais a tu vu mon exemple en pièce jointe [ message 1]
    ( je m'explique peut être mal )

  7. #7
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Ci joint ton fichier avec le code en place.
    J'ai remplacé l'objet formulaire "zone de liste" par une liste de validation dans la cellule I6 (liée à la plage nommée Plage_NA)

    Couleurs cellules.xls

  8. #8
    Membre confirmé
    Homme Profil pro
    magasinier
    Inscrit en
    Janvier 2012
    Messages
    62
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : magasinier
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Janvier 2012
    Messages : 62
    Par défaut
    bonsoir jérome, le forum

    Désolé pour la réponse tardive
    merci pour ton aide ça fonctionne a merveille.

    cela mérite 2

    juste un oouuppss:
    A la place des chiffres 1,2,3,4,5,6 et 7 j'aimerais mettre du texte
    je fait comment???
    Merci Jérome si tu as une réponse

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

Discussions similaires

  1. Réponses: 11
    Dernier message: 13/03/2014, 20h01
  2. Réponses: 2
    Dernier message: 13/04/2009, 19h25
  3. [XL-2003] Contenu d une cellule comme référence d une autre Cellule
    Par Utopsya dans le forum Excel
    Réponses: 4
    Dernier message: 02/04/2009, 08h30
  4. Récupérer la couleur d'une cellule et l'affecter à une autre
    Par Prue dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/08/2008, 17h04

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