Sélection plages par boutons

Bonjour le forum !

Voici ce que je cherche à faire aujourd'hui :

Dans un tableau extrait d'un CSV, j'ai besoin d'ajouter derrière chaque ligne en colonne L un bouton sélectionnant la plage de la ligne où le bouton est placé, cellules B à K.
Çà, j'ai pu le faire par la macro suivante :

Sub SélectionLigne2()
Application.SendKeys ("^")
Range("B2:K2").Select
End Sub

Par contre j'aurais besoin de conserver les sélections précédentes, pour pouvoir copier plus tard des lignes non contigües choisies manuellement. Application.SendKeys ("^") ne me le fait pas, la vilaine.

Puis-je vous demander de l'aide SVP .

un exemple : https://www.cjoint.com/?DIhjzmY2nrw

D'avance merci

5 réponses

  • Votes
  • Date
  • Date décroissante
  1. Salut.

    Merci pour vos propositions. Je suis en train d'adapter. Je ferai un reply.
    Eric : je comprends pas trop ta question ... dans le cadre d'une macro ?
    Sinon, une copie d'une sélection multiple ne pose pas de problème : le collage met les lignes collées les unes en dessous des autres, non ?
    Te connaissant tu dois le savoir, il doit y avoir une autre question derrière ...
    1. Contributeur
      Ben j'sais pas.
      Fais un copié-collé d'une sélection multiple et dis-nous.
      Et regarde la proposition de via.

      eric
    2. Bonjour Eriic

      Je viens de voir que le copier-coller sur sélection multiple ne fonctionne que si chaque zone sélectionnée est de taille identique.
      Ex : A1+C1 et A4+B4.
      C'est vrai dans les autres cas message d'erreur.
  2. Contributeur
    Bonjour,

    comment tu fais un copié-collé sur une sélection multiple ?
    eric
    1. Bonjour,

      Une possibilité : https://www.cjoint.com/?0IhoSVHNF9B
      Un double-clic dans n'importe quelle cellule d'une ligne met ou enlève une X en colonne L, par mise en forme conditionnelle la ligne sélectionnée se colore

      Le bouton COPIER copie les lignes sélectionnées dans la seconde feuille

      A adapter à tes besoins

      Cdlmnt

      1. Bonjour GBinforme

        Ça fait une paie ! (Disons 4 ou 5 ...) La forme ?
        Ma rentrée est studieuse, tu vois ...
        Pas mal le code, merci !

        Par contre il ne permet pas de sélectionner des lignes (à chaque fois colonnes B à K) non contigües ...
        Le but est de sélectionner des lignes selon la décision de l'utilisateur :
        ex : sélection de B à K ligne 1
        sélection de B à K ligne 3
        sélection de B à K ligne 8
        Ensuite je copie manuellement ces plages non contigües pour les recopier ailleurs.

        @plus
        1. Contributeur
          Bonjour touroul,

          Application.SendKeys ("^") ne me le fait pas
          Sûrement pas et d'ailleurs il est totalement inutile.

          Je ne pense pas que tu ais besoin d'un bouton. En mettant la macro suivante dans la feuille concernée puis en te positionnant sur la ligne de la colonne M choisie la fonction que tu souhaites se réalise :

          Private Sub Worksheet_SelectionChange(ByVal sel As Range)
          If Not Intersect(sel, Columns("L")) Is Nothing Then
          Cells(sel.Row, "B").Resize(1, 10).Select
          End If
          End Sub

          Ravi d'avoir vu ton message.
          Bon dimanche à toi