Macro selectionnant une plage de 500 cellules
Résolu
romanza
Messages postés
249
Date d'inscription
Statut
Membre
Dernière intervention
-
romanza Messages postés 249 Date d'inscription Statut Membre Dernière intervention -
romanza Messages postés 249 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais connaître le code vba permettant, lorsque je clique sur une cellule, de me sélectionner cette cellule et les 499 cellules du dessous et d'ajouter dans la macro la fonction copier.
Merci à vous
Je souhaiterais connaître le code vba permettant, lorsque je clique sur une cellule, de me sélectionner cette cellule et les 499 cellules du dessous et d'ajouter dans la macro la fonction copier.
Merci à vous
A voir également:
- Macro selectionnant une plage de 500 cellules
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel pour additionner plusieurs cellules - Guide
- Formate pour taxer client 500€ - Forum PDF
- Image de manchots sur une image de plage ✓ - Forum Graphisme
- Verrouiller cellules excel - Guide
8 réponses
Merci du retour
Mais cela sélectionne uniquement les 500 cellules sous A1.
Si je clique en D8, ce n'est pas la plage D8 D508 qui se sélectionne
Romanza
Mais cela sélectionne uniquement les 500 cellules sous A1.
Si je clique en D8, ce n'est pas la plage D8 D508 qui se sélectionne
Romanza
bonjour
A mettre dans le code feuille
A mettre dans le code feuille
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ls = Target.Row
col = Target.Column
Range(Cells(ls, col), Cells(ls + 499, col)).Select
Selection.Copy
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci pour vos retours.
Il s'agit en fait de copier à la fois 500 adresses email sur Excel et de les copier dans la barre d'adresse d'Outlook
Quand je mets ce code j'ai un retour "End Sub attendu" et cela ne marche pas.
Je pense que je n'ai pas compris la manière d'insérer le code
Sub macro1()
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ls = Target.Row
col = Target.Column
Range(Cells(ls, col), Cells(ls + 499, col)).Select
Selection.Copy
End Sub
Il s'agit en fait de copier à la fois 500 adresses email sur Excel et de les copier dans la barre d'adresse d'Outlook
Quand je mets ce code j'ai un retour "End Sub attendu" et cela ne marche pas.
Je pense que je n'ai pas compris la manière d'insérer le code
Sub macro1()
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ls = Target.Row
col = Target.Column
Range(Cells(ls, col), Cells(ls + 499, col)).Select
Selection.Copy
End Sub
Oui J'ai pigé cela fonctionne en cliquant droit. C'est tout bon.
Peux-tu m'indiquer comment je peut affecter cette commande à un bouton dans le menu
merci
Peux-tu m'indiquer comment je peut affecter cette commande à un bouton dans le menu
merci
Bonjour,
en un peu plus court :
Appelé d'un bouton :
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
en un peu plus court :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Resize(500).Copy
End Sub
Appelé d'un bouton :
Sub copie500()
ActiveCell.Resize(500).Copy
End Sub
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci