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 :

selections de cellules [Toutes versions]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre Expert
    Avatar de Igloobel
    Homme Profil pro
    Développeur ERP - VBA et Formateur bureautique
    Inscrit en
    Septembre 2005
    Messages
    1 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Développeur ERP - VBA et Formateur bureautique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 871
    Billets dans le blog
    1
    Par défaut selections de cellules
    Bonjour à tous

    Voilà je cherche à connaitre toutes les adresses de chaque cellule sélectionnées.

    exemple je selectionne de B4 jusqu'à B7 (4 cellules donc) et je veux pouvoir récupérer 2-4; 2-5; 2-6; 2-7.

    j'ai penser au target de Worksheet_SelectionChange :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        MsgBox Target.Row & " - " & Target.Column
     
    End Sub
    ceci me donne l'adresse de la cellule active donc 2-4 et c'est tout.

    je me doute qu'il faut utiliser le for each mais je ne connais pas la collection qui convient.


    J'ai cherché dans la FAQ, les tutoriels, et sources sans trop trouver.

    Merci d'avance pour votre aide

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Regarde si ceci te convient :
    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
    23
     
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
        Dim I As Long
        Dim J As Long
        Dim Adr As String
     
        For I = 1 To Target.Columns.Count
     
            For J = 1 To Target.Rows.Count
     
                Adr = Adr & Target.Column + I - 1 & "-" & Target.Row + J - 1 & Chr(13)
     
                'vire le Chr(13) de fin
                Adr = Left(Adr, Len(Adr) - 1)
     
            Next J
     
        Next I
     
        MsgBox Adr
     
    End Sub
    Hervé.

  3. #3
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Il n'y as rien à faire target te renvoi l'ensemble des plages sélectionnées..

    que veut-tu faire ensuite ..?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim c As Range
      Dim st As String
     
      For Each c In Target
        st = st & c.Row & "," & c.Column & "/"
      Next
      MsgBox " Plage sélectionné : " & vbCrLf & Target.Address & vbCrLf & "Cellules : " & vbCrLf & st
    End Sub

  4. #4
    Membre Expert
    Avatar de Igloobel
    Homme Profil pro
    Développeur ERP - VBA et Formateur bureautique
    Inscrit en
    Septembre 2005
    Messages
    1 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Développeur ERP - VBA et Formateur bureautique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 871
    Billets dans le blog
    1
    Par défaut
    Merci Theze pour ta methode mais celle de bbil est exactement ce que je cherchais.

    Merci à tous les deux pour votre rapidité

    Je cherchais cette collection target que je ne connaissais pas

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

Discussions similaires

  1. interdir un selection des cellules StringGrid
    Par fomazou dans le forum C++Builder
    Réponses: 3
    Dernier message: 14/12/2006, 13h19
  2. Pb de selection de cellule pour mettre en couleur
    Par Dexor dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 24/08/2006, 16h47
  3. Lancer une procedure par selection de cellule
    Par Kaory dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 19/06/2006, 17h04
  4. [VBA-E]deplacer une selection de cellules
    Par richou dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/03/2006, 12h50
  5. [VBA-E]Interdire la selection de cellule dans une feuille
    Par Tartenpion dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 09/03/2006, 23h24

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