Macro selectionnant une plage de 500 cellules [Résolu/Fermé]

Question

Macro selectionnant une plage de 500 cellules [Résolu/Fermé]

Signaler

romanza

Messages postés: 207
Date d'inscription: samedi 27 janvier 2007
Statut: Membre
Dernière intervention: 22 décembre 2016

- 4 sept. 2014 à 15:28
romanza

Messages postés: 207
Date d'inscription: samedi 27 janvier 2007
Statut: Membre
Dernière intervention: 22 décembre 2016

- 4 sept. 2014 à 21:57

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

Afficher la suite

A voir également:

Macro selectionnant une plage de 500 cellules
Macro selectionnant une plage de 500 cellules ✓ - Forum - Excel
Quel signe de ponctuation faut-il ajouter lorsque l’on sélectionne une plage de cellules non contiguës dans une formule ? - Articles
Sélectionner une plage de cellule vba ✓ - Forum - VB / VBA
Sélectionner une plage de cellule vba avec cells ✓ - Forum - VB / VBA
Quel signe de ponctuation faut-il ajouter lorsque l’on sélectionne une plage de cellules contiguës dans une formule ? - Articles

8 réponses

Posez votre question

cs_Le Pivert · Answer 1 · 2014-09-04T15:42:47+0200

Réponse 1 / 8

cs_Le Pivert

Messages postés: 6987
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 26 octobre 2020

562
4 sept. 2014 à 15:42

Bonjour,

Avec l'enregistreur de macro:

 Range("A1:A500").Select
    Selection.Copy

romanza · Answer 2 · 2014-09-04T16:20:06+0200

Réponse 2 / 8

romanza

Messages postés: 207
Date d'inscription: samedi 27 janvier 2007
Statut: Membre
Dernière intervention: 22 décembre 2016

2
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

Iama · Answer 3 · 2014-09-04T16:37:47+0200

Réponse 3 / 8

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

bonjour

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 · Answer 4 · 2014-09-04T16:38:05+0200

Réponse 4 / 8

michel_m

Messages postés: 16263
Date d'inscription: lundi 12 septembre 2005
Statut: Contributeur
Dernière intervention: 26 octobre 2020

3 053
4 sept. 2014 à 16:38

Bonjour,

et où colles tu les 500 lignes ?
Tu copies que les valeurs ou tout(valeur,format...) ?

Signaler

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

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

romanza · Answer 5 · 2014-09-04T17:03:07+0200

Réponse 5 / 8

romanza

Messages postés: 207
Date d'inscription: samedi 27 janvier 2007
Statut: Membre
Dernière intervention: 22 décembre 2016

2
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

Signaler

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

Bonjour
supprime le Sub macro1()

Signaler

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

Quand tu n'en a plus besoin, tu met un apostrophe ' devant Private Sub qui alors devient vert

romanza · Answer 6 · 2014-09-04T17:10:43+0200

Réponse 6 / 8

romanza

Messages postés: 207
Date d'inscription: samedi 27 janvier 2007
Statut: Membre
Dernière intervention: 22 décembre 2016

2
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

Signaler

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

Bonjour
Mettre un bouton sur le menu, je ne sais pas le faire.

eriiic · Answer 7 · 2014-09-04T19:05:08+0200

Réponse 7 / 8

eriiic

Messages postés: 23596
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 26 octobre 2020

6 424
Modifié par eriiic le 4/09/2014 à 19:05

Bonjour,

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

Signaler

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

Re eriiic
toujours plus court!

cordialement

romanza · Answer 8 · 2014-09-04T21:57:45+0200

Réponse 8 / 8

romanza

Messages postés: 207
Date d'inscription: samedi 27 janvier 2007
Statut: Membre
Dernière intervention: 22 décembre 2016

2
4 sept. 2014 à 21:57

Merci à tous

Votre réponse