Macro pour coller les cellules actives dans la ligne 1 ?

Bonjour Forum !

J'ai besoin d'une macro qui colle une copie des cellules sélectionnées sur la ligne 1 (sans changer de colonne).

Pour y arriver, il faut vérifier aussi que la sélection ne comporte pas de cellules sur plus d'une ligne.

Mais je ne sais pas faire....

Quelqu'un pourrait-il m'aider siouplé ?

Merci !!!!

Bonjour

Un truc du genre

Sub Macro2()
    Selection.Copy Range("A1")
    Application.CutCopyMode = False
End Sub

si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Cordialement

Bonjour,

Merci pour ta réponse rapide.

J'ai 2 soucis avec ton code :

– les cellules ne sont pas copiées dans leur colonne d'origine

– je veux limiter le copier/coller à une seule ligne-source (d'où le besoin d'un test pour vérifier si la sélection tient sur une ligne), et une seule ligne de destination (la ligne 1).

J'ai aussi oublié de préciser que, si possible, j'aimerais que la macro marche avec des sélections discontinues.

Voilà.

Merci.

Re,

essaie ceci :

Sub copie_selections_multiples()
Dim cel As Range
With Sheets("Feuil1")
If Selection.Rows.Count > 1 Then MsgBox "la sélection comporte plus d'une ligne !": Exit Sub
    For Each cel In Selection
        Cells(cel.Row, cel.Column).Copy Cells(1, cel.Column)
    Next
End With
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse

Cordialement

Merci Dan, c'est nickel !!!