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

Signaler
Messages postés
207
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
22 décembre 2016
-
Messages postés
207
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
22 décembre 2016
-
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





8 réponses

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

Avec l'enregistreur de macro:

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

Messages postés
207
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
22 décembre 2016
2
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
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
Messages postés
16263
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
26 octobre 2020
3 053
Bonjour,

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

Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
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
Messages postés
207
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
22 décembre 2016
2
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Bonjour
supprime le Sub macro1()
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Quand tu n'en a plus besoin, tu met un apostrophe ' devant Private Sub qui alors devient vert
Messages postés
207
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
22 décembre 2016
2
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Bonjour
Mettre un bouton sur le menu, je ne sais pas le faire.
Messages postés
23596
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020
6 424
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
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Re eriiic
toujours plus court!

cordialement
Messages postés
207
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
22 décembre 2016
2
Merci à tous