Copier une cellule à l'aide d'un bouton/macro Résolu/Fermé

Question

Bonjour,

Voilà je souhaiterai, en cliquant sur un bouton qui répond à une macro, qu'une cellule située en D3 de la page précédente (par rapport à la feuille active où se trouve le bouton) soit copiée en F3 de ma page active.

J'ai essayé la formule suivante :

Sub Copier_Cellule ()
ActiveWorkbook.Sheets(feuille).Range("F3").Value=ActiveWorkbook.Sheets(feuille -1).Range("D3").Value
End sub

Est-ce le terme "value" qui ne correspond pas ?

je précise que le genre de cellule que je veux copier comporte du texte, genre :
"50 cr + 75 dos + 104N r : 10 secondes"

Merci d'avance de votre aide.
Boris.

pilas31 · Answer

Bonjour,

Il manque juste l'initialisation du numéro de feuille :

Sub Copier_Cellule()
feuille = ActiveSheet.Index
ActiveWorkbook.Sheets(feuille).Range("F3").Value = ActiveWorkbook.Sheets(feuille - 1).Range("D3").Value
End Sub

A+

Copier une cellule à l'aide d'un bouton/macro

1 réponse

Discussions similaires