Sélection plages par boutons
touroul
Messages postés
526
Date d'inscription
Statut
Membre
Dernière intervention
-
touroul Messages postés 526 Date d'inscription Statut Membre Dernière intervention -
touroul Messages postés 526 Date d'inscription Statut Membre Dernière intervention -
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
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
-
Bonjour,
comment tu fais un copié-collé sur une sélection multiple ?
eric
-
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 -
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 -
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 ...
