Copie Coller dans une autre feuille

[fd.30]

Bonjour,

J’ai un tableau excel qui comporte 2 feuilles : feuil1 et feuil2

En feuil1 : j’ai une liste de 300 noms ; et j’ai besoin de reporter certains noms dans ma feuil2.

Je voudrais donc une macro qui

- copie les cellules qui sont sélectionnées dans la feuil1
- et colle les noms en feuil2, à la suite… (chaque collage est positionné à la suite des collages précédents, la ligne d’en dessous).


Merci d’avance de votre aide
Bonne journée

FD

[skoobi]

Bonjour,

As-tu regardé les discussions similaires au bas de cette page?
Tu trouveras surement quelque chose d'approchant.

[fd.30]

Merci Skoobi, mais je n'ai pas vraiment trouver mon bonheur avec les liens en dessous.

Je cherche le code qui me permet de :

- copier n'importe qu'elle cellule ou plage de cellule (feuil1) ; la sélection des cellules est déterminée par la souris, c'est à dire : copie des cellules actives (cellules noircies).

- coller les cellules actives de la feuil1 vers la feuil2 dans les premières cellules vides de la colonne A de la feuil2.

Merci de votre aide

[Staple1600]

Bonjour fd.30, Skoobi, le fil

A coller dans un module Standard
(ALT+F11-> Insertion->Module -> coller la macro ci-dessous)

Sub copie_selection_vers_feuilleII()
 'adapté de: macro originale: SelectByValue
'auteur: Jacob Hilderbrand
Dim Plg As Range
Dim Plg_OK As Range
Dim Cell As Object
Set Plg = Selection
For Each Cell In Plg
    If Not IsEmpty(Cell) Then
        If Plg_OK Is Nothing Then
            Set Plg_OK = Range(Cell.Address)
        Else
            Set Plg_OK = Union(Plg_OK, Range(Cell.Address))
        End If
    End If
Next
Plg_OK.Copy Sheets("Feuil2").Range("A1")
End Sub