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 :

retrouver numero de ligne d'une sélection multiple


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de Oh!Tofocus
    Profil pro
    Inscrit en
    Août 2007
    Messages
    217
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 217
    Par défaut retrouver numero de ligne d'une sélection multiple
    Suite a ma demande d'hier pour déterminer la premiere ligne et la derniere ligne d'une sélection
    http://www.developpez.net/forums/sho...d.php?t=504489
    je me trouve devant un autre probleme:

    Si je fais une selection multiple ( ex: B3,B6,B7,B13,B20)
    je voudrais pouvoir récupérer les numeros de ligne sélectionnées dans une macro ( ici ex: 3,6,7,13,20)

    pour la premiere OK
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    premiere_ligne = Selection.Row

    mais pour les autres lignes la solution de alsimbad ne marche que pour une selection groupée
    et de plus je voudrais récupérer toutes les references de ligne sélectionées !

    Help !
    petit exercice pour les pros du Forum.

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Essaye ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub test()
    Dim c As Range
    For Each c In Selection
    result = result & "  " & c.Row
    Next
    MsgBox result
    End Sub

  3. #3
    Membre chevronné
    Inscrit en
    Janvier 2008
    Messages
    483
    Détails du profil
    Informations forums :
    Inscription : Janvier 2008
    Messages : 483
    Par défaut
    Bonjour
    seulement pour la colonne B
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox Join(Split(Selection.Address, "$B$"), "")
    Bonne journée

    Abed _H

  4. #4
    Membre confirmé Avatar de Oh!Tofocus
    Profil pro
    Inscrit en
    Août 2007
    Messages
    217
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 217
    Par défaut
    Super
    ça marche nickel

    merci

  5. #5
    Membre confirmé Avatar de Oh!Tofocus
    Profil pro
    Inscrit en
    Août 2007
    Messages
    217
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 217
    Par défaut
    ça marche pour la réponse de fring

    mais pour Abed_H
    je ne comprend pas bien ce code
    j'ai une erreur de compilation sur split ???

Discussions similaires

  1. Réponses: 2
    Dernier message: 28/02/2007, 20h20
  2. Glisser/Déposer une sélection multiple
    Par mxh77 dans le forum 4D
    Réponses: 1
    Dernier message: 28/09/2006, 11h41
  3. Réponses: 2
    Dernier message: 24/08/2006, 11h33
  4. Réponses: 5
    Dernier message: 04/07/2006, 11h19
  5. Recuperer le numero de ligne d'une exception Python
    Par chrdou dans le forum Général Python
    Réponses: 4
    Dernier message: 28/02/2005, 16h58

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