Salut le Forum,
Il est toujours temps de vous souhaiter mes meilleurs voeux 2012.
Perso, j'en ai un que je souhaiterais voir être exhaussé grâce à vous.
Je voudrais copier-coller une sélection multiple de LIGNES ENTIERES, d'un classeur vers un autre. A priori, aucun problème ...
Sub MultiRow()
'Copie GLOBALE de sélection multiple de différentes lignes entières
'Reprise des lignes sélectionnées
Range("4:4,6:6,8:8").Select
'Copiage
Selection.Copy
'Activation du deuxième Classeur ouvert devant recevoir les copies
Windows("Classeur2").Activate
'Dernière ligne non vide (accueil des copies)
Last = Sheets(1).Range("A65536").End(xlUp).Row
'Correctif pour la toute première ligne
If Sheets(1).Range("A65536").End(xlUp).Value <> "" Then Last = Last + 1
Range("A" & Last).Select
'Collage
ActiveSheet.Paste
'Retour au Classeur source
Windows("Classeur1").Activate
'Fin de Copier-Coller
Application.CutCopyMode = False
Range("A1").Select
End Sub
Sauf que : dans le code
'Reprise des lignes sélectionnées
Range("4:4,6:6,8:8").Select
Comment entrer automatiquement les valeurs appropriées dans Range("xxxxx").select lorsque l'utilisateur fait sa sélection par les Clic+Ctrl habituels ?
J'ai bien essayé par ActiveCell.row associé à une valeur de cellule en bout de ligne, puis par Worksheet_SelectionChange ou Worksheet_Activate...
J'ai aussi voulu tenter (bêtement!) de lancer par macro l'éditeur de macro pour "récupérer" la sélection de l'utilisateur. Echec!
Bref, je patauge! Qui aurait une idée SVP ?
Merci
Cordialement
Rataxes64