copie bouton

[angoul]

bonjour,

j'ai creer plusieur bouton virement, cheque, etc...
Private Sub btcheque_Click()
lblpayement = "Chèque"
End Sub

quand je clique sur le bouton cheque il m'affice bien le mot cheque dans un userform

mais sa se complique quand je demande de copier de l'userform vers excel
car il me copie rien ou n'importe quoi.

voila le code
"WrbCaisse.Worksheets("recap vente").Cells(iNbrArt + 2, 3) = lblpayement"

merci de votre aide

 

[bqtr]

Re : copie bouton

Bonjour,

C'est quoi lblpayement, c'est un contrôl Label ?
Dans ce cas tu dois procéder comme ceci pour récupérer son contenu :

WrbCaisse.Worksheets("recap vente").Cells(iNbrArt + 2, 3) = lblpayement.Caption

A+

 

[angoul]

Re : copie bouton

merci de ton aide, c'est bien un label enfin je pense, je suis pas trop caller VBA
mais helas sa marche pas.

 

[bqtr]

Re : copie bouton

Re,

Avec ton fichier c'est plus clair, quoique 🙄

Ta ligne de code est bonne, en fait si ça ne fonctionne pas c'est que tu dois clicker sur le bouton Chèque après avoir rempli ton TextBox quantité.
Dans ce cas c'est trop tard les données sont déjà envoyées sur la feuille.
Et comme le Label est vide, rien ne s'inscrit sur la feuille.

Fait un essai, click sur le bouton Chèque en premier et rempli les Textbox ensuite, tu verras c'est bon.

Par contre je ne comprends pas ta variable iNbrArt dans tout les cas elle sera égale à 0 puis 1 (iNbrArt = iNbrArt + 1).
Sur la feuille recap vente c'est toujours la ligne 3 qui sera complétée 😕

A+