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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Mishell
Bonjour. Utilise plutôt la fonction Vba VAL.
Private Sub Txt_Duree_Change()
Spin_Duree.Value = Val(Txt_Duree.Value)
End Sub
Mishell
"StDonat" wrote in message 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
Bonjour.
Utilise plutôt la fonction Vba VAL.
Private Sub Txt_Duree_Change()
Spin_Duree.Value = Val(Txt_Duree.Value)
End Sub
Mishell
"StDonat" <StDonat@discussions.microsoft.com> wrote in message
news:9D708302-3C36-472B-8152-439DB012695B@microsoft.com...
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
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
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" wrote in message 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 >
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" <StDonat@discussions.microsoft.com> wrote in message
news:9D708302-3C36-472B-8152-439DB012695B@microsoft.com...
> 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" wrote in message 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
Peut être cela,pas essayé.
private sub textbox1.change() TextBox1.value=Format(TextBox1.Text, "00"" ans""") end sub "StDonat" a écrit dans le message de 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
Peut être cela,pas essayé.
private sub textbox1.change()
TextBox1.value=Format(TextBox1.Text, "00"" ans""")
end sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 9D708302-3C36-472B-8152-439DB012695B@microsoft.com...
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
private sub textbox1.change() TextBox1.value=Format(TextBox1.Text, "00"" ans""") end sub "StDonat" a écrit dans le message de 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