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

  1. #1
    Membre à l'essai
    Inscrit en
    avril 2009
    Messages
    39
    Détails du profil
    Informations forums :
    Inscription : avril 2009
    Messages : 39
    Points : 22
    Points
    22
    Par défaut Coloration ligne Automatique suivant condition
    Bonjour à tous,

    je cherche à automatiser un fichier de suivi dans Excel. Actuellement je suis en train d'essayer de mettre au point un code me permettant de colorier une ligne en une certaine couleur suivant le critère qui est indiqué dans une colonne.

    Voici le code que j'ai créé:

    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
    Sub Bouton2_Cliquer()
     
    'coloration ligne suivant statut
     
    Dim ligne As Integer
     
    For ligne = 6 To 150
        If (Cells(2, ligne).Value = "fermé") Then
        With Rows(ligne).Select
            .Color = RGB(166, 166, 166)
        End With
        End If
     
        If (Cells(2, ligne).Value = "ouvert") Then
        With Rows(ligne).Select
            .Color = RGB(0, 176, 80)
        End With
        End If
     
    Next ligne
     
    End Sub
    Ce code n'est pas fonctionnel actuellement. Pourriez-vous m'indiquer où son mes erreurs svp?

    Merci d'avance

  2. #2
    Expert confirmé Avatar de Patrice740
    Homme Profil pro
    Retraité
    Inscrit en
    mars 2007
    Messages
    2 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Gironde (Aquitaine)

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

    Informations forums :
    Inscription : mars 2007
    Messages : 2 453
    Points : 5 590
    Points
    5 590
    Par défaut
    Bonjour,
    Citation Envoyé par My_DiDi Voir le message
    Pourriez-vous m'indiquer où son mes erreurs svp?
    L'erreur c'est d'utiliser VBA alors qu'une MFC suffirait.
    Il faut toujours penser Excel avant d'envisager VBA.
    Cordialement,
    Patrice
    Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.

    Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur

  3. #3
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    novembre 2003
    Messages
    17 149
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 17 149
    Points : 49 421
    Points
    49 421
    Billets dans le blog
    92
    Par défaut
    Salut.

    Je plussoie Patrice, tant sur la remarque générale concernant Excel que sur l'utilisation de la mise en forme conditionnelle qui fait partie des outils natifs d'Excel et qui a été remise en évidence dans le ruban en intégrant l'onglet Accueil. L'avantage d'utiliser la Mise en Forme Conditionnelle (MFC) est que si tu changes la valeur d'une cellule, sa MFC sera adaptée en temps réel(1) alors qu'avec une solution VBA, tu devras relancer le code (sauf écoute de l'évènement Change, mais nous n'en sommes pas là).

    Le code que tu donnes, ainsi que la boucle, me laisse penser que tu n'utilises pas les tableaux structurés. Ce serait pourtant une bonne chose.


    Voici ce que tu pourrais réaliser sur base d'un tableau structuré dont tu sélectionnes la plage de données (te mettre en A2 puis CTRL+A). Tu vas en MFC via l'onglet Accueil/Mise en forme conditionnelle/Nouvelle règle, tu choisis "Utiliser une formule" et tu saisis la formule =($B2="Fermé") (Attention, tant le $ que le fait que A2 soit actif ont leur importance ici).


    Nom : 2021-03-05_174433.png
Affichages : 25
Taille : 167,2 Ko



    Pour info, dans ton code, tu as inversé les lignes et les colonnes dans Cells(2, Ligne), il n'est pas nécessaire de sélectionner une cellule pour jouer avec, et en général, pour itérer sur les lignes d'une feuille, on utilise un entier long pour ne pas être limité à 32.767 lignes



    (1) En cas de calcul manuel, il faudra parfois le recalcul pour adapter la MFC selon la configuration du classeur.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

Discussions similaires

  1. Réponses: 5
    Dernier message: 30/01/2020, 18h14
  2. Cacher des lignes automatiquement selon condition
    Par Almenor dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 11/09/2018, 15h14
  3. [WD17] numérotation ligne automatique avec condition
    Par Mikiady dans le forum WinDev
    Réponses: 10
    Dernier message: 11/11/2015, 13h00
  4. [XL-2007] Insertion de lignes automatiques avec copie suivant condition
    Par Toresupra dans le forum Excel
    Réponses: 4
    Dernier message: 20/03/2015, 15h23
  5. [XL-2007] Copie Ligne suivant conditions (suite)
    Par alpilon dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 27/11/2009, 10h29

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