Coller dans la cellule active

Bonjour ,

j ai une petite macro simple a faire , mais impossible de la trouver ;(

Je souhaite faire une macro pour affecter sur un bouton , et cette macro doit copier le contenu de la cellule D7

et ensuite copier le contenu dans la cellule active ( donc pas une cellule prédéfinie d avance) .

exemple : si je click sur la cellule c12 j appuie ensuite sur mon bouton cela copiera donc le contenu de d7 et le collera dans c12

je click ensuite sur c 16 avec le même bouton ( donc même macro ) le contenue de d7 copier dans c16 ect ...

en gros on connait le contenu ( d7) mais jamais la destination a l'avance , celle ci sera la cellule sur laquelle j ai besoin .

j espère avoir été clair :p

merci d'avance

Bonjour,

Avec cette ligne :

Sub test
Activecell = Range("D7").value
end sub

NB : vous pourriez aussi faire sans bouton.... A voir si intérêt et dans ce cas, peut-être savoir aussi sur quelle plage de cellule vous voulez cette action.

Si ok

Cordialement

Bonjour,

Pour coller toutes les propriétés de D7 :

Sub Copie()
  Range("D7").Copy ActiveCell
End Sub

Daniel

du coup petite chose que j' ai oublié de préciser c est le contenu de ma cellule ...

c est une validation de donnée par liste !

et "dan" je pense que ta macro ne prend pas ce paramètre en compte , puisque ça ne copie pas la liste de validation .

par contre daniel c est ok :) parfait

merci beaucoup