XL 2010 COMMENT ECRIRE LA VALEUR D'UN TEXTBOX DANS UNE CELLULE D'UNE FEUILLE

[anbar]

Bonjour

Private Sub TextQuantite_Change()
je voudrais que vous m'aidez SVP à faire un code vba pour voir si j'ai activé la feuil2 genre
if feuil2 n'est pas activée then
msgbox("veuiller activer la feuil2 avant de commencer la saisie").
else
[B2] = TextQuantite
end if
End Sub


ca c'est le code pour enregistrer la saisie
Private Sub Buttonajouter_Click()
Feuil2.Rows("2:2").Insert shift:=xlDown, copyOrigin:=xlFormatFromLeftOrAbove
Unload UserForm1
Load UserForm1
UserForm1.Show
End Sub

Un grand merci à tout le monde

 

[cp4]

Bonsoir Anbar,

Il n'est pas nécessaire d'activer la feuille pour transférer la textbox vers la feuille.
Avec un petit fichier ça serait mieux.

Feuil2.Range("B2")=Me.TextQuantite 'sans activé la feuil2

Bonne soirée.

 

[Dranreb]

Bonsoir.
Feuil2.Range("B2")=CDbl(Me.TextQuantite) 'sans activé la feuil2
Sinon il risque de l'écrire sous forme de texte.

 

[cp4]

Bonsoir.
Feuil2.Range("B2")=CDbl(Me.TextQuantite) 'sans activé la feuil2
Sinon il risque de l'écrire sous forme de texte.

Exact mon cher Dranreb. J'admire ta rigueur de codage.
Bonne soirée.

 

[anbar]

Merci cp4 pour le temps que vous m'avez accordé.
c'est très simple et parfait.

Bonne soirée.

 

[anbar]

Bonsoir.
Feuil2.Range("B2")=CDbl(Me.TextQuantite) 'sans activé la feuil2
Sinon il risque de l'écrire sous forme de texte.

 

[anbar]

un grand Merci
ca marche parfaitement.

bonne soirée