Discussion :

[domimog]

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 Merci d'avance pour votre aide

[dodo28]

bonjour,
je te propose ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sabzzz]

bonjour domimog et le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
With Sheets("Feuil1")
.Range("B2") = .Range("D14")
End With
End Sub

[laetitia]

bonjour domimog dodo28 isabelle le forum

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[b2] = [d14]

copy avec le format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[d14].Copy [b2]

[domimog]

Bonsoir à tous
Merci à Dodo28,sbazzz,et Laeticia
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

[domimog]

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!

[laetitia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[domimog]

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