Copier coller avec macro ?

Bonsoir, j'aimerai que quand je clique sur un bouton macro correspondant à une ligne de matériel sur la feuille 1 qu'elle se copie les une a la suite des autres sur la feuille 2.

Merci à vous.

Bonsoir,

Sub Commander()
    Dim LgC, i%
    i = CInt(Replace(Application.Caller, "C_", ""))
    LgC = ActiveSheet.Range("A" & i).Resize(, 3).Value
    With [CommandMat]
        .Cells(.Rows.Count, 1).Resize(, 3).Value = LgC
    End With
End Sub

Boutons renommés.

Plage cible nommée (nom dynamique)

La macro est affectée à tous les boutons.

Cordialement.

Merci il y aurait une autre macro ? car sur mon autre tableau elle bloque ici :

i = CInt(Replace(Application.Caller, "C_", "")) « rectangle 6 »

Et aussi j’aimerai que ne soit pas copié deux fois la même ligne si par exemple on clique deux fois sur le même bouton.

Merci.

Bonjour,

Si tu ne renommes pas tes boutons, ça ne peut pas marcher... !

J'ai choisi des noms simples : C_ suivi du numéro de ligne

ce qui permet à la macro en identifiant le bouton appelant d'avoir simultanément la ligne à reproduire.

Ta question n'était pas très élaborée au départ, si tu définis de façon exhaustive comment cela doit fonctionner on pourra ajouter les éléments nécessaires;

Exemple : pour ne pas reproduire 2 fois ou plus la même ligne, on peut désactiver le bouton qui a déclenché la macro, et qui n'aura donc plus d'effet...

Ce qui suppose une procédure pour réactiver les boutons, à quel moment ? dans quelles conditions ?... D'où la nécessité d'approfondir ta réflexion conceptuelle pour une réalisation plus élaborée qui y corresponde !

Cordialement.

Je fournirai un autre tableau plus adapté d'ici peu.