Macro selectionnant une plage de 500 cellules

Résolu/Fermé

romanza Messages postés 249 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 - 4 sept. 2014 à 15:28
romanza Messages postés 249 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 - 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

A voir également:

Macro selectionnant une plage de 500 cellules
Formule excel pour additionner plusieurs cellules - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Formate pour taxer client 500€ ✓ - Forum Consommation & Internet
Image de manchots sur une image de plage - Forum Musique / Radio / Clip

8 réponses

Réponse 1 / 8

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
4 sept. 2014 à 15:42

Bonjour,

Avec l'enregistreur de macro:

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

Réponse 2 / 8

romanza Messages postés 249 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 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

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

Réponse 4 / 8

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
4 sept. 2014 à 16:38

Bonjour,

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

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

romanza Messages postés 249 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 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

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()

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

Réponse 6 / 8

romanza Messages postés 249 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 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

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.

Réponse 7 / 8

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 249
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

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

Réponse 8 / 8

romanza Messages postés 249 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 2
4 sept. 2014 à 21:57

Merci à tous

Discussions similaires

taxe foncière pour locataire

le frigo ne marche pas....

500mb ça correspond à quoi

Résolution d'une image 500 pixels largeur

Dechiffrer une image caché