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 :

Mettre en surbrillant une ligne


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
    Gestion Patrimoniale des Réseaux eau et assainissement
    Inscrit en
    Juillet 2019
    Messages
    38
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Gestion Patrimoniale des Réseaux eau et assainissement

    Informations forums :
    Inscription : Juillet 2019
    Messages : 38
    Par défaut Mettre en surbrillant une ligne
    Bonjour,

    J'ai un tableau avec beaucoup de colonne, et pour facilité le remplissage j'aimerai faire mettre en sur-brillant la LIGNE sur laquel est la ma cellule encours de modification.

    Exemple :
    Si je suis entrain de remplir la ligne L5 je voudrais que toute la ligne 5 soit en sur-brillant

    Si vous avez une idée de la faisabilité de ce projet =)
    Je suis preneur

    merci d'avance de m'accorder votre temps.

    Bonne journée a Tous

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Mettre en surbrillance une ligne, ça ne pose pas de problème.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub Worksheet_Change(ByVal Target as Range) 
         Intersect(ActiveSheet.UsedRange, Target.EntireRow).Interior.Color = RGB(255, 255, 0)
    End Sub
    Ce qui est plus compliqué, c'est de supprimer cette modification de la ligne qui vient d'être quittée.
    On mets remettre l'ensemble des cellule de la feuille à blanc mais ça risque de faire ramer le bouzin.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Sub Worksheet_Change(ByVal Target as Range) 
         ActiveSheet.UsedRange.Interior.ColorIndex = xlColorIndexNone
         Intersect(ActiveSheet.UsedRange, Target.EntireRow).Interior.Color = RGB(255, 255, 0)
    End Sub

Discussions similaires

  1. OLE Word mettre en gras une ligne et repasser en normal
    Par sat83 dans le forum C++Builder
    Réponses: 7
    Dernier message: 18/06/2009, 16h05
  2. Réponses: 4
    Dernier message: 04/03/2009, 15h23
  3. [BO 6.1] Mettre en couleur une ligne sur 2
    Par nawal59 dans le forum Débuter
    Réponses: 4
    Dernier message: 07/08/2008, 08h37
  4. mettre en couleur une ligne gridview
    Par hermine dans le forum ASP.NET
    Réponses: 20
    Dernier message: 21/08/2007, 11h39
  5. [JTable] Mettre en couleur une ligne de ma JTable
    Par cedricbr dans le forum Composants
    Réponses: 3
    Dernier message: 03/03/2006, 12h47

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