Selection par macro

Bonjour all,

Cela devrait te convenir.

En faites il faut commencer par la selection de l'utilisateur pour ne pas la perdre, et ensuite copier les en-tetes des colonnes !

++

Creepy [file name=selection_20050503163726.zip size=7327]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/selection_20050503163726.zip[/file]

Une bosse avec Creepy, tant pis je te propose une solution quand même. reste à voir comment et quand tu veux appeller la macro.
Je vais regarder le code de Creepy ..

Sub MultipleRangeCopy()
Dim r1, r2, plusieursPlages As Range
Sheets('Feuil1').Activate
Set r1 = Range('A1:C1') ' c'est les titres
Set r2 = Selection 'c'est ta sélection
Set plusieursPlages = Union(r1, r2)
plusieursPlages.Copy Sheets('Feuil2').Range('A1') ' copie sur la feuille 2

End Sub


Vois si ça convient.

A++

EDITION!!!

l'activation de la feuille 1 est là pour s'assurer l'union des 2 plage; Tu peux bien sûr ajouter 'Application.CutCopyMode = False' à la fin
A+++

Message édité par: luki, à: 03/05/2005 16:58

Re,
une solution plus souple, simplement à partir d'un double clic sur une cellule, une plage de la même largeur que les titres est sélectionnée et copiée.
Si la plage des titres change, il faut adapter ' set Titres = range( ??)'
à mettre dans le module 1:

Sub MultiplageCopy()
Dim ActiveLine As Range, Titres As Range, Tout As Range

Set Titres = Range('A1:C1')
Set ActiveLine = Range(Cells(ActiveCell.Row, Titres.Column), Cells(ActiveCell.Row, Titres.Columns.Count))
Set Tout = Union(Titres, ActiveLine)
Tout.Copy Sheets('Feuil2').Range('A1')
Application.CutCopyMode = False
End Sub

à mettre dans le module de la feuille 1:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
MultiplageCopy
End Sub

Nota Bene : Le code pourrait être épuré, je n'ai pas utilisé trop de raccourcis pour qu'il reste compréhensible.

EDITION POUR CREEPY!!!
l'enregistreur marche bien 😉 il a seulement tendance à ajouter beaucoup de lignes inutiles! Ton code épuré (un peu)pourrait devenir ceci:

Sub Selections()
Selection.Copy Sheets('Feuil2').Range('A2')
Sheets('Feuil1').Range('a1:c1').Copy Sheets('Feuil2').Range('A1')
Application.CutCopyMode = False
End Sub

Tu peux écrire dans la même ligne , la source ET la destination.

A++

Message édité par: luki, à: 03/05/2005 17:34

Message édité par: luki, à: 03/05/2005 17:39