problème bouton macro copier coller

[Salocin]

Bonjour tout le monde 😎,

Je suis pas très doué sur Excel et encore moins sur les codes VBA
je travaille sur un projet de plan de nettoyage planifié. Je cherche à assigner une macro à un bouton qui me permette de copier le contenu d'une cellule (qui sera dans une colonne masquée) vers une autre cellule d'une autre colonne (visible), le tout sur la même feuille.

Mon problème est le suivant je n'arrive pas à affecteravec une seule macro, un bouton pour copier dans une cellule correspondante.

je m'explique, par exemple le bouton placé en A1 permet de copier le contenu de B1 vers C1.

Est-il possible de créer une seule macro qui permette en cliquant sur A2 de copier B2 vers C2, en cliquant sur A3, de copier B3 vers C3, etc...? Je sais faire ce que je désire mais seulement en créant une macro spécifique pour un bouton, mais l'opération est très longue pour tout un tableau.

J'espère avoir été suffisamment clair

Voici mon ébauche de code VBA

Range("K41").Select
Selection.Copy
Range("L41").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Merci d'avance de votre aide 🙂

 

[Pierrot93]

Re : problème bouton macro copier coller

Bonjour,

regarde ceci, en espérant que cela puisse t'aider ..;

With Sheets("nomfeuilleSource")
    Sheets("nomfeuilledestination").Cells(.ActiveCell.Row, 3) = .Cells(.ActiveCell.Row, 2)
End With

bonne soirée
@+