Sélection d'une plage excel souris

Résolu
bonjour à tous

j'avais vu sur un sujet du forum (6 mois) qu'il était possible par VBA de demander et de récupérer l'adresse d'une sélection faite à la souris ou au clavier.
je n'arrive plus à retrouver ce sujet ni l'info en aide excel ou sur le net, alors que je voudrais l'utiliser, aussi si quelqu'un peut me redonner l'adresse du sujet je l'en remercie par avance.

5 réponses

  1. salut le gentil cambrioleur,

    c'est évident que c'était : Plage.Worksheet.Name
    mais comme j'oubliais de mettre Worksheet je n'ai pas réussi à trouver, ême en compliquant inutilement.

    merci beaucoup pour le rappel.

    je suis en train de réaliser un pointage entre plusieurs feuilles et cette fonction est importante pour le confort d'utilisation afin de marquer la zone choisie en la liant à la cellule de départ.
    0
    1. re:

      voilà, je ne connaissais pas cette façon de faire, alors j'aurai
      appris quelque chose :

      Sub SaisiePlage()

      Dim Plage As Range

      Set Plage = Application.InputBox("Choix de cellule(s)", Type:=8)

      MsgBox Plage.Address
      MsgBox Plage.Worksheet.Name

      End Sub

      Lupin
      0
      1. salut

        j'ai enfin retrouvé la fonction :
        Application.InputBox(prompt:="choix", Type:=8)
        qui permet de choisir une plage mais lorsque je change de feuille je ne récupére pas le nom de la feuille concernée dans 'address', ce qui est normal, mais où puis-je l'avoir ?
        0
        1. salut le gentil cambrioleur,

          en fait, c'est une procédure vba pour demander de choisir dans un input
          une cellule ou une plage pour pouvoir effectuer une action sur le choix.

          je l'avais récupérée, mais je n'arrive pas à mettre la main dessus alors que je veux l'employer.
          Merci d'avance.
          0
          1. Salut,

            Je n'ai pas l'adresse, mais pour récupérer la plage sélectionnée
            en cours :

            Dim Plage As Range
            Set Plage = ActiveWindow.RangeSelection

            Lupin
            0