Macro selectionnant une plage de 500 cellules
Résolu/Fermé
romanza
romanza
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
romanza
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
A voir également:
- Macro selectionnant une plage de 500 cellules
- Macro selectionnant une plage de 500 cellules ✓ - Forum - Excel
- Vba selectionner une plage de cellule avec variable ✓ - Forum - VB / VBA
- Vba sélectionner une plage à partir de la cellule active ✓ - Forum - VB / VBA
- Macro effacer une plage de cellules ✓ - Forum - VB / VBA
- Sélectionner une plage de cellule vba - Forum - VB / VBA
8 réponses
cs_Le Pivert
4 sept. 2014 à 15:42
- Messages postés
- 7743
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 9 mai 2022
4 sept. 2014 à 15:42
Bonjour,
Avec l'enregistreur de macro:
Avec l'enregistreur de macro:
Range("A1:A500").Select Selection.Copy
romanza
4 sept. 2014 à 16:20
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
4 sept. 2014 à 16:20
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
Iama
4 sept. 2014 à 16:37
- Messages postés
- 319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
4 sept. 2014 à 16:37
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
michel_m
4 sept. 2014 à 16:38
- Messages postés
- 16568
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 14 mai 2022
4 sept. 2014 à 16:38
Bonjour,
et où colles tu les 500 lignes ?
Tu copies que les valeurs ou tout(valeur,format...) ?
et où colles tu les 500 lignes ?
Tu copies que les valeurs ou tout(valeur,format...) ?
Iama
4 sept. 2014 à 16:44
- Messages postés
- 319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
4 sept. 2014 à 16:44
Bonjour michel_m
Tout, sur une autre feuille en utilisant, je pense.
Pas sur la même, ou alors il faut jouer de clavier
Alain
Tout, sur une autre feuille en utilisant, je pense.
Pas sur la même, ou alors il faut jouer de clavier
Alain
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
romanza
4 sept. 2014 à 17:03
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
4 sept. 2014 à 17:03
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
Iama
4 sept. 2014 à 17:06
- Messages postés
- 319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
4 sept. 2014 à 17:06
Bonjour
supprime le Sub macro1()
supprime le Sub macro1()
Iama
4 sept. 2014 à 17:12
- Messages postés
- 319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
4 sept. 2014 à 17:12
Quand tu n'en a plus besoin, tu met un apostrophe ' devant Private Sub qui alors devient vert
romanza
4 sept. 2014 à 17:10
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
4 sept. 2014 à 17:10
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
Iama
4 sept. 2014 à 19:27
- Messages postés
- 319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
4 sept. 2014 à 19:27
Bonjour
Mettre un bouton sur le menu, je ne sais pas le faire.
Mettre un bouton sur le menu, je ne sais pas le faire.
eriiic
Modifié par eriiic le 4/09/2014 à 19:05
- Messages postés
- 24381
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 16 mai 2022
Modifié par eriiic le 4/09/2014 à 19:05
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
Iama
4 sept. 2014 à 19:12
- Messages postés
- 319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
4 sept. 2014 à 19:12
Re eriiic
toujours plus court!
cordialement
toujours plus court!
cordialement
romanza
4 sept. 2014 à 21:57
- Messages postés
- 250
- Date d'inscription
- samedi 27 janvier 2007
- Statut
- Membre
- Dernière intervention
- 4 octobre 2021
4 sept. 2014 à 21:57
Merci à tous