macro selectionnant une plage de 500 cellulesRésolu/Fermé

Question

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





Configuration: Windows XP / Firefox 10.0.2

cs_Le Pivert · Answer

Bonjour,

Avec l'enregistreur de macro:

 Range("A1:A500").Select
    Selection.Copy

romanza · Answer

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

bonjour

A mettre dans le code feuille

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)ls = Target.Rowcol = Target.ColumnRange(Cells(ls, col), Cells(ls + 499, col)).Select    Selection.CopyEnd Sub

michel_m · Answer

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

romanza · Answer

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

romanza · Answer

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

eriiic · Answer

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

romanza · Answer

Merci à tous

Macro selectionnant une plage de 500 cellules

8 réponses

Newsletters