Spin textebox et format

Le
StDonat
Bonjour,
J’utilise dans un userform un spinbutton pour incrémenter un textebox. Mais
je voudrais que le Textebox affiche un format du styme « 01 ans »
Pour cela j’ai procédé ainsi :
Private Sub Spin_Duree_Change()
Txt_Duree.Value = Format(Spin_Duree.Value, "00 ans")
End Sub
Mon problème arrive ensuite avec :
Private Sub Txt_Duree_Change()
If Txt_Duree.Value = "" Or Txt_Duree.Value = 0 Then
Spin_Duree.Value = 0
Else
Spin_Duree.Value = Txt_Duree.Value
End If
End Sub
Le Format associe a mon texte box gêne… Comment l’enlever ?
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Mishell
Le #17366661
Bonjour.
Utilise plutôt la fonction Vba VAL.

Private Sub Txt_Duree_Change()

Spin_Duree.Value = Val(Txt_Duree.Value)


End Sub

Mishell

"StDonat" news:
Bonjour,
J'utilise dans un userform un spinbutton pour incrémenter un textebox.
Mais
je voudrais que le Textebox affiche un format du styme « 01 ans »
Pour cela j'ai procédé ainsi :
Private Sub Spin_Duree_Change()
Txt_Duree.Value = Format(Spin_Duree.Value, "00 ans")
End Sub
Mon problème arrive ensuite avec :
Private Sub Txt_Duree_Change()
If Txt_Duree.Value = "" Or Txt_Duree.Value = 0 Then
Spin_Duree.Value = 0
Else
Spin_Duree.Value = Txt_Duree.Value
End If
End Sub
Le Format associe a mon texte box gêne. Comment l'enlever ?
Merci



StDonat
Le #17366621
Merci it's good

"Mishell" wrote:

Bonjour.
Utilise plutôt la fonction Vba VAL.

Private Sub Txt_Duree_Change()

Spin_Duree.Value = Val(Txt_Duree.Value)


End Sub

Mishell

"StDonat" news:
> Bonjour,
> J'utilise dans un userform un spinbutton pour incrémenter un textebox.
> Mais
> je voudrais que le Textebox affiche un format du styme « 01 ans »
> Pour cela j'ai procédé ainsi :
> Private Sub Spin_Duree_Change()
> Txt_Duree.Value = Format(Spin_Duree.Value, "00 ans")
> End Sub
> Mon problème arrive ensuite avec :
> Private Sub Txt_Duree_Change()
> If Txt_Duree.Value = "" Or Txt_Duree.Value = 0 Then
> Spin_Duree.Value = 0
> Else
> Spin_Duree.Value = Txt_Duree.Value
> End If
> End Sub
> Le Format associe a mon texte box gêne. Comment l'enlever ?
> Merci
>





Fredo P
Le #17368101
Peut être cela,pas essayé.

private sub textbox1.change()
TextBox1.value=Format(TextBox1.Text, "00"" ans""")
end sub
"StDonat" news:
Bonjour,
J'utilise dans un userform un spinbutton pour incrémenter un textebox.
Mais
je voudrais que le Textebox affiche un format du styme « 01 ans »
Pour cela j'ai procédé ainsi :
Private Sub Spin_Duree_Change()
Txt_Duree.Value = Format(Spin_Duree.Value, "00 ans")
End Sub
Mon problème arrive ensuite avec :
Private Sub Txt_Duree_Change()
If Txt_Duree.Value = "" Or Txt_Duree.Value = 0 Then
Spin_Duree.Value = 0
Else
Spin_Duree.Value = Txt_Duree.Value
End If
End Sub
Le Format associe a mon texte box gêne. Comment l'enlever ?
Merci



Publicité
Poster une réponse
Anonyme