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 :

probleme de macros [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    retraite
    Inscrit en
    Avril 2010
    Messages
    325
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Espagne

    Informations professionnelles :
    Activité : retraite
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2010
    Messages : 325
    Par défaut probleme de macros
    Bonsoir
    Je suis sur excel 2007
    j'ai une feuille avec des donnees en U3 a U64 et dans A6 a S16
    je souhaiterais lorsque verifier les donnees dans U3 a U67 ont une couleur remplir le tableau avec les couleurs trouvees dans U3 a U67
    ex: si U3 = couleur jaune voir dans le tableau la cellule avec la meme donnee et lui attribue la couleur jaune.

    ex: A3 contenu (7102), couleur jaune, et voir dans tableau (7102) et lui mettre la meme couleur.
    fichier joint.
    merci
    cris
    Fichiers attachés Fichiers attachés

  2. #2
    Membre averti
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juin 2011
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 75
    Localisation : France, Ariège (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2011
    Messages : 24
    Par défaut Précision SVP
    Bonjour Chris,

    Tel que tu présentes la question cela me semble assez facile:
    sur une action (à définir: bouton, touche fonction,etc.) boucler sur chaque ligne de la plage et, à chaque fois, rechercher la valeur dans le tableau de référence, puis reporter la couleur trouvée en utilisant cells.interior.colorindex, par exemple.

    Avant de te donner un code précis, il faudrait plus de précision car, en regardant l'exemple donné (fichier xlsm) je ne vois aucune couleur dans la plage A6:S16, et en plus des valeurs qui n'ont pas l'air de correspondre (ex: "Accueil")

    Peux tu préciser une peu mieux ce que tu demandes :
    - ou se trouvent les couleurs à reporter
    - s'agit_il de la couleur de fond ou de celle du texte ?
    - dans quelle condition lancer la procédure ?

  3. #3
    Membre éclairé
    Homme Profil pro
    retraite
    Inscrit en
    Avril 2010
    Messages
    325
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Espagne

    Informations professionnelles :
    Activité : retraite
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2010
    Messages : 325
    Par défaut
    J'ai remis mon fichier avec des couleurs
    ex: dans le tableau des cellules sont de couleurs differentes, je souhaterais ex,
    la cel U3 avec comme valeur 7101 en jaune que dans la zone a gauche ou il y a des cellules encadrees que celle ou se trouve 7101 soit mise en couleur jaune, et idem pour les autres cellules de U3 a U67.
    cela me permettrais de verifier les cases non colorisees
    j'attribuerais un bouton a ce code.
    me suis je mieux explique.
    cris
    Fichiers attachés Fichiers attachés

  4. #4
    Membre averti
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juin 2011
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 75
    Localisation : France, Ariège (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2011
    Messages : 24
    Par défaut Voici une macro
    Le principe est donc, pour chaque case de la place A6:S16, de rechercher sa valeur dans la colonne U et, si on trouve, de reporter la couleur de fond dans la cellule en question...

    Je te propose un exemple de code
    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    Sub MarqueCouleurs()
    Dim NBH As Integer
    Dim TH As Variant
    Dim c As Range
     
    ' Mise en mémoire dans un tableau des valeurs à tester
    ' uniquement pour accélérer la boucle de recherche
    ' Attention c'est un tableau à deux dimensions (67,1)
    TH = Range("U1:U67")
    NBH = 67
     
     
    ' on explore toutes les cellules de la plage A6:S16
    For Each c In Range("A6:S16")
        ' on se limite aux cellules non vides
        If c.Value <> "" Then
            'Recherche de la valeur dans le tableau TH
            For i = 3 To NBH
                If TH(i, 1) = c.Value Then
                    ' on a trouvé la valeur de la cellule c
                    ' on reporte la couleur de fond
                    c.Interior.ColorIndex = Cells(i, 21).Interior.ColorIndex
                    Exit For
                End If
            Next
        End If
    Next
     
    End Sub
    J'espère t'avoir aidé...

  5. #5
    Membre éclairé
    Homme Profil pro
    retraite
    Inscrit en
    Avril 2010
    Messages
    325
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Espagne

    Informations professionnelles :
    Activité : retraite
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2010
    Messages : 325
    Par défaut
    merci c'est exactement ce que cherchais.
    a plus
    cris

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

Discussions similaires

  1. Probleme lancement macro excel 2007
    Par nico63vb dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/03/2007, 13h55
  2. Problème de macro
    Par emmablue dans le forum Access
    Réponses: 2
    Dernier message: 19/07/2006, 15h00
  3. [VBA-excel]Probleme de macro pour creer un graphique.
    Par Mugette dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 05/07/2006, 15h42
  4. [VBA-E] Probleme couleur macro
    Par Mugette dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 20/09/2005, 11h11
  5. probleme de macro
    Par wxcnbv dans le forum C
    Réponses: 2
    Dernier message: 14/07/2004, 21h22

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