Macro selectionnant une plage de 500 cellules
Résolu/Fermé
romanza
Messages postés
250
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
10 avril 2023
-
4 sept. 2014 à 15:28
romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 - 4 sept. 2014 à 21:57
romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 - 4 sept. 2014 à 21:57
A voir également:
- Macro selectionnant une plage de 500 cellules
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Excel additionner des cellules - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- 500 mb - Forum SFR
8 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
4 sept. 2014 à 15:42
4 sept. 2014 à 15:42
Bonjour,
Avec l'enregistreur de macro:
Avec l'enregistreur de macro:
Range("A1:A500").Select
Selection.Copy
romanza
Messages postés
250
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
10 avril 2023
2
4 sept. 2014 à 16:20
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
4 sept. 2014 à 16:37
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
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
4 sept. 2014 à 16:38
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
4 sept. 2014 à 16:44
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
Messages postés
250
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
10 avril 2023
2
4 sept. 2014 à 17:03
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
4 sept. 2014 à 17:06
4 sept. 2014 à 17:06
Bonjour
supprime le Sub macro1()
supprime le Sub macro1()
Iama
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
4 sept. 2014 à 17:12
4 sept. 2014 à 17:12
Quand tu n'en a plus besoin, tu met un apostrophe ' devant Private Sub qui alors devient vert
romanza
Messages postés
250
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
10 avril 2023
2
4 sept. 2014 à 17:10
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
4 sept. 2014 à 19:27
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
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
Modifié par eriiic le 4/09/2014 à 19:05
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
4 sept. 2014 à 19:12
4 sept. 2014 à 19:12
Re eriiic
toujours plus court!
cordialement
toujours plus court!
cordialement
romanza
Messages postés
250
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
10 avril 2023
2
4 sept. 2014 à 21:57
4 sept. 2014 à 21:57
Merci à tous
