Macro selectionnant une plage de 500 cellules

Bonjour,

Avec l'enregistreur de macro:

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

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

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

Bonjour,

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

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

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

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

Merci à tous