valeur par defaut dans TextBox

Bonsoir le Forum,
Est ce possible d'avoir une valeur par defaut
je m'explique a partir d'un Userform et d'un TextBox je copie la valeur du TextBox dans une cellule mais est il possible a l'ouverture de la Userform d'avoir une valeur (de 30 par exemple) par defaut dans le TextBox

Voici le code

Code:

---

1 2 3 4 5

Private Sub CommandButton2_Click() Application.ScreenUpdating = False Range("BG1").Value = Val(Me.TextBox15.Value) Application.ScreenUpdating = True End Sub

---

D'avance merci de votre aide

Code:

---

1 2 3

private sub userform_initialize() me.textbox1.value=30 end sub

---

Bonsoir Mercatog,
Ou dois je ecrire ta reponse SVP
Merci

Bonsoir,
Je supplée mercatog, tu colles son code après avoir (dans l'éditeur VBA) cliqué 2 fois sur l'USF concerné ou click droit et "code" . Changes "textbox1" par le nom de ton textbox.

PS : à moins que tu ais déjà un code dans l'évènement "initialize", ce qui m'étonnerai, vu ta question

bonsoir Dominique,
merci je viens de m'apercevoir qu'il manquait sub après private
merci :ccool:
Cdt

Je n'avais pas fait gaffe dans le code de mercatog qui a du te répondre vite fait, mais apprends à regarder les évènements que tu peux choisir en haut à droite pour éviter ce risque d'erreur.
bonne nuit