Coder un bouton dans VBA

Bonjour à tous
J'ai créé un bouton "commandbutton" dans une feuille excel et je souhaiterais
que si j'appuie sur le bouton le contenu de la cellule D14 apparaisse dans la cellule B2 Je débute dans VBA:roll: Merci d'avance pour votre aide

bonjour,
je te propose ca :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() With Sheets("feuil1") .Cells(14, 4).Copy Destination:=.Cells(2, 2) End With End Sub

---

dis moi si ca te convient

bonjour domimog et le forum,

si tu veut transférer que la valeur et non le format,

Code:

---

1 2 3

Private Sub CommandButton1_Click() Sheets("Feuil1").Range("B2") = Sheets("Feuil1").Range("D14") End Sub

---

la syntaxe peut être aussi comme ça,

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() With Sheets("Feuil1") .Range("B2") = .Range("D14") End With End Sub

---

bonjour domimog dodo28 isabelle le forum

un code dans ce style peut être suffisant !! dans certains cas

Code:

---

[b2] = [d14]

---

copy avec le format

Code:

---

[d14].Copy [b2]

---

Bonsoir à tous
Merci à Dodo28,sbazzz,et Laeticia :ccool:
J'ai essayé la solution de Laeticia qui propose la syntaxe la plus simple pour moi
qui débute et ça fonctionne exactement comme je le souhaitais
Je vais maintenant tester les autres codes pour comprendre A bientôt

Bonjour à tous
Ce matin j'essaye les codes proposés par Dodo28 et Sbazzz mais je n'obtiens
pas de résultat Je pense que je ne sait pas modifier la syntaxe J'ai modifié le non
de la feuille sans résultat (erreur"exécution9") J'avance à petit pas mais sans votre aide je n'irais pas bien loin!

re,l'instruction with tu l'utilises quand tu fait reference a une autre feuille dans ton cas c'est pas la peine

autrement dans with il faut mettre le nom de la feuille
exemple

Code:

---

1 2 3

With Sheets("janvier (2)") .Range("d2") = .Range("g10") End With

---

Merci Laetitia!

Je n'avais pas compris que si la feuille est renommée c'est ce non qui est utilisé
Merci encore et à bientôt