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 :

Surbrillance d'une ligne du tableau en fonction de la sélection d'une cellule et du numéro de ligne [XL-365]


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Décembre 2016
    Messages
    100
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Décembre 2016
    Messages : 100
    Par défaut Surbrillance d'une ligne du tableau en fonction de la sélection d'une cellule et du numéro de ligne
    Bonjour,
    Je cherche à mettre en surbrillance un ligne en fonction de la sélection d'une cellule, et qu'en même temps, cela me donne le numéro de ligne.

    J'ai donc créer deux codes car je n'arrive pas à trouver l'astuce qui me permet de faire les deux(cela met en surbrillance deux lignes au lieu d'une seule) à savoir en fonction de la cellule E4/Activation de la macro/Affectation du numéro de ligne en cellule B1


    Surbrillance en fonction de la sélection d'une cellule dans la ligne
    Lorsque je sélectionne une ligne, le numéro s'affiche en cellule B1


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    'Mettre en surbrillange la ligne du tableau en fonction de la sélection d'une cellule dans la ligne
        If Not Intersect(Target, Range("Listing[[IDENTIFIANT]:[DATE DE FIN]]")) Is Nothing Then
            'On affecte le numéro de ligne sélectionne à la Cellule B1
            Range("B1").Value = Target.Row
     
        End If
     
    End Sub
    Surbrillance en fonction de la sélection d'une cellule définie et après activation de la macro
    Lorsque je rentre une information dans la cellule E4 et activation de la macro


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Not Intersect(Target, Range("A4")) Is Nothing Then
     
            RechercherContact
     
        End If
     
    End Sub
    Je vous envoi le fichier en PJ

    Merci pour votre aide
    Prenez soin de vous, prenez soin de vos proches !
    Tout seul on va plus vite, ensemble on va plus loin. C'est ensemble que nous irons plus loin. C'est ensemble que nous vaincrons ce virus !
    Fichiers attachés Fichiers attachés

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

Discussions similaires

  1. Réponses: 5
    Dernier message: 29/09/2011, 09h35
  2. Mise surbrillance d'une ligne d'un tableau
    Par pc75 dans le forum ASP
    Réponses: 11
    Dernier message: 22/08/2011, 14h22
  3. Mise en surbrillance d'une ligne d'un tableau
    Par pc75 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 0
    Dernier message: 19/08/2011, 16h48
  4. [XL-2007] copier une une ligne d'un tableau en fonction de la valeur de la première cellule
    Par mentat dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/12/2009, 11h49
  5. [javascript]surbrillance d'une ligne de tableau
    Par ep31 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 27/09/2007, 10h28

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