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 :

colorer un array en fonction d'un multipage


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    en Formation
    Inscrit en
    Mars 2020
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Lot et Garonne (Aquitaine)

    Informations professionnelles :
    Activité : en Formation

    Informations forums :
    Inscription : Mars 2020
    Messages : 10
    Par défaut colorer un array en fonction d'un multipage
    Bonjour à tous,

    J'arrive à la fin d'un projet, dernière petite étape!

    Je souhaite simplement que lorsque l'utilisateur clique sur un checkbox "ABS" puis sur Valider, la ligne correspondante soit colorée. J'ai tenté le code ci-dessous (entre autres) mais sans succès. Je vous serai reconnaissant de bien vouloir m'indiquer la marche à suivre, mon cerveau est à plat là^^'

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    last_colonne = Sheets("Repart").Range("A1").End(xlToRight).Column
        For f = 1 To 8
            If UserForm_calculer.Controls("CheckBox_name" & f).Value = True Then
                Sheets("Repart").Range("f + 1 : last_colonnne").Interior.Color = RGB(160, 96, 0)
            End If
        Next
    Nom : Capture.final.PNG
Affichages : 376
Taille : 49,4 Ko

    Merci bien!

  2. #2
    Membre Expert
    Inscrit en
    Septembre 2007
    Messages
    1 142
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 142
    Par défaut
    Bonjour
    Citation Envoyé par Orgvba Voir le message
    la ligne correspondante soit colorée. J'ai tenté le code ci-dessous (entre autres) mais sans succès.
    Comme ceci ce devrait être plus efficace :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    last_colonne = Sheets("Repart").Range("A1").End(xlToRight).Column
        For f = 1 To 8
            If UserForm_calculer.Controls("CheckBox_name" & f).Value = True Then
                Sheets("Repart").Cells(f + 1,1).Resize(1, last_colonnne).Interior.Color = RGB(160, 96, 0)
            End If
        Next

  3. #3
    Membre averti
    Homme Profil pro
    en Formation
    Inscrit en
    Mars 2020
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Lot et Garonne (Aquitaine)

    Informations professionnelles :
    Activité : en Formation

    Informations forums :
    Inscription : Mars 2020
    Messages : 10
    Par défaut
    Bonsoir Anasecu,

    Ca fonctionne parfaitement merci beaucoup! Je connaissais pas Resize en plus c'est parfait

    Bonne soirée!

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

Discussions similaires

  1. Passer des Array à la fonction _call()
    Par bobic dans le forum Langage
    Réponses: 1
    Dernier message: 28/11/2010, 01h03
  2. fl.motion.Color - interpolateColor() : recherche cette fonction
    Par Lorenzo77 dans le forum ActionScript 3
    Réponses: 0
    Dernier message: 21/04/2010, 00h14
  3. Réponses: 15
    Dernier message: 16/09/2009, 16h19
  4. Colorer une cellule en fonction de sa valeur
    Par kkingstone dans le forum Excel
    Réponses: 5
    Dernier message: 20/05/2009, 10h44
  5. Réponses: 2
    Dernier message: 18/03/2008, 10h30

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