Enlever un Format

Le
StDonat
Bonjour,
J'ai un textbox que j'incremente par un spin button.
Pb je veux afficher un format!
J'ai ecris cela qui fonctionne trés bien:
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
End Sub
Mais voila impossible d'incrementer pas pas de 1/10!
Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19259011
Bonjour.
En mettant la propriété "SmallChange" du spinbutton à 1 :

Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub
Cordialement.
Daniel

Bonjour,
J'ai un textbox que j'incremente par un spin button.
Pb je veux afficher un format!
J'ai ecris cela qui fonctionne trés bien:
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
End Sub
Mais voila impossible d'incrementer pas pas de 1/10!
Merci de votre aide


Daniel.C
Le #19259001
ou :
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0
Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0
Km")
End Sub
Daniel


Bonjour.
En mettant la propriété "SmallChange" du spinbutton à 1 :

Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub
Cordialement.
Daniel

Bonjour,
J'ai un textbox que j'incremente par un spin button.
Pb je veux afficher un format!
J'ai ecris cela qui fonctionne trés bien:
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
End Sub
Mais voila impossible d'incrementer pas pas de 1/10!
Merci de votre aide




StDonat
Le #19259961
Bonjour Daniel,
Merci pour tes propositions mais elle ne marchent pas vraiement!
le compteur s'arrete à 0.1km.
Pour moi le probléme vient de la fonction Val qui ne trouve pas le
séparateur","....

"Daniel.C" wrote:

ou :
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0
Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0
Km")
End Sub
Daniel


> Bonjour.
> En mettant la propriété "SmallChange" du spinbutton à 1 :
>
> Private Sub SpinDistance_SpinDown()
> TxtDistance.Value = Format(Val(TxtDistance.Value) - _
> SpinDistance.SmallChange / 10, "0.0 Km")
> End Sub
>
> Private Sub SpinDistance_SpinUp()
> TxtDistance.Value = Format(Val(TxtDistance.Value) + _
> SpinDistance.SmallChange / 10, "0.0 Km")
> End Sub
> Cordialement.
> Daniel
>
>> Bonjour,
>> J'ai un textbox que j'incremente par un spin button.
>> Pb je veux afficher un format!
>> J'ai ecris cela qui fonctionne trés bien:
>> Private Sub SpinDistance_SpinDown()
>> TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
>> End Sub
>>
>> Private Sub SpinDistance_SpinUp()
>> TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
>> End Sub
>> Mais voila impossible d'incrementer pas pas de 1/10!
>> Merci de votre aide





Daniel.C
Le #19259931
Bonjur
Regarde le classeur suivant :
http://cjoint.com/?fgadGtqWoE
Daniel

Bonjour Daniel,
Merci pour tes propositions mais elle ne marchent pas vraiement!
le compteur s'arrete à 0.1km.
Pour moi le probléme vient de la fonction Val qui ne trouve pas le
séparateur","....

"Daniel.C" wrote:

ou :
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0
Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0
Km")
End Sub
Daniel


Bonjour.
En mettant la propriété "SmallChange" du spinbutton à 1 :

Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub
Cordialement.
Daniel

Bonjour,
J'ai un textbox que j'incremente par un spin button.
Pb je veux afficher un format!
J'ai ecris cela qui fonctionne trés bien:
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
End Sub
Mais voila impossible d'incrementer pas pas de 1/10!
Merci de votre aide











StDonat
Le #19260651
Merci mias lorsque je recupére le fichier il n'y a pas de code associé!
En plus,j'ai oublié de préciser que tous cela ce passe dans un Userform!


"Daniel.C" wrote:

Bonjur
Regarde le classeur suivant :
http://cjoint.com/?fgadGtqWoE
Daniel

> Bonjour Daniel,
> Merci pour tes propositions mais elle ne marchent pas vraiement!
> le compteur s'arrete à 0.1km.
> Pour moi le probléme vient de la fonction Val qui ne trouve pas le
> séparateur","....
>
> "Daniel.C" wrote:
>
>> ou :
>> Private Sub SpinDistance_SpinDown()
>> TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0
>> Km")
>> End Sub
>>
>> Private Sub SpinDistance_SpinUp()
>> TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0
>> Km")
>> End Sub
>> Daniel
>>
>>
>>> Bonjour.
>>> En mettant la propriété "SmallChange" du spinbutton à 1 :
>>>
>>> Private Sub SpinDistance_SpinDown()
>>> TxtDistance.Value = Format(Val(TxtDistance.Value) - _
>>> SpinDistance.SmallChange / 10, "0.0 Km")
>>> End Sub
>>>
>>> Private Sub SpinDistance_SpinUp()
>>> TxtDistance.Value = Format(Val(TxtDistance.Value) + _
>>> SpinDistance.SmallChange / 10, "0.0 Km")
>>> End Sub
>>> Cordialement.
>>> Daniel
>>>
>>>> Bonjour,
>>>> J'ai un textbox que j'incremente par un spin button.
>>>> Pb je veux afficher un format!
>>>> J'ai ecris cela qui fonctionne trés bien:
>>>> Private Sub SpinDistance_SpinDown()
>>>> TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
>>>> End Sub
>>>>
>>>> Private Sub SpinDistance_SpinUp()
>>>> TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
>>>> End Sub
>>>> Mais voila impossible d'incrementer pas pas de 1/10!
>>>> Merci de votre aide
>>
>>
>>





Daniel.C
Le #19264711
Le code se trouve dans le module feuille (Feuil1).
Daniel

Merci mias lorsque je recupére le fichier il n'y a pas de code associé!
En plus,j'ai oublié de préciser que tous cela ce passe dans un Userform!


"Daniel.C" wrote:

Bonjur
Regarde le classeur suivant :
http://cjoint.com/?fgadGtqWoE
Daniel

Bonjour Daniel,
Merci pour tes propositions mais elle ne marchent pas vraiement!
le compteur s'arrete à 0.1km.
Pour moi le probléme vient de la fonction Val qui ne trouve pas le
séparateur","....

"Daniel.C" wrote:

ou :
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0
Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0
Km")
End Sub
Daniel


Bonjour.
En mettant la propriété "SmallChange" du spinbutton à 1 :

Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub
Cordialement.
Daniel

Bonjour,
J'ai un textbox que j'incremente par un spin button.
Pb je veux afficher un format!
J'ai ecris cela qui fonctionne trés bien:
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
End Sub
Mais voila impossible d'incrementer pas pas de 1/10!
Merci de votre aide


















StDonat
Le #19264701
Désolé mais je confirme que dans le fichier il n'y a pas de code.. mais peut
etre cela provient il de mon anti virus ?

"Daniel.C" wrote:

Le code se trouve dans le module feuille (Feuil1).
Daniel

> Merci mias lorsque je recupére le fichier il n'y a pas de code associé!
> En plus,j'ai oublié de préciser que tous cela ce passe dans un Userform!
>
>
> "Daniel.C" wrote:
>
>> Bonjur
>> Regarde le classeur suivant :
>> http://cjoint.com/?fgadGtqWoE
>> Daniel
>>
>>> Bonjour Daniel,
>>> Merci pour tes propositions mais elle ne marchent pas vraiement!
>>> le compteur s'arrete à 0.1km.
>>> Pour moi le probléme vient de la fonction Val qui ne trouve pas le
>>> séparateur","....
>>>
>>> "Daniel.C" wrote:
>>>
>>>> ou :
>>>> Private Sub SpinDistance_SpinDown()
>>>> TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0
>>>> Km")
>>>> End Sub
>>>>
>>>> Private Sub SpinDistance_SpinUp()
>>>> TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0
>>>> Km")
>>>> End Sub
>>>> Daniel
>>>>
>>>>
>>>>> Bonjour.
>>>>> En mettant la propriété "SmallChange" du spinbutton à 1 :
>>>>>
>>>>> Private Sub SpinDistance_SpinDown()
>>>>> TxtDistance.Value = Format(Val(TxtDistance.Value) - _
>>>>> SpinDistance.SmallChange / 10, "0.0 Km")
>>>>> End Sub
>>>>>
>>>>> Private Sub SpinDistance_SpinUp()
>>>>> TxtDistance.Value = Format(Val(TxtDistance.Value) + _
>>>>> SpinDistance.SmallChange / 10, "0.0 Km")
>>>>> End Sub
>>>>> Cordialement.
>>>>> Daniel
>>>>>
>>>>>> Bonjour,
>>>>>> J'ai un textbox que j'incremente par un spin button.
>>>>>> Pb je veux afficher un format!
>>>>>> J'ai ecris cela qui fonctionne trés bien:
>>>>>> Private Sub SpinDistance_SpinDown()
>>>>>> TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
>>>>>> End Sub
>>>>>>
>>>>>> Private Sub SpinDistance_SpinUp()
>>>>>> TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
>>>>>> End Sub
>>>>>> Mais voila impossible d'incrementer pas pas de 1/10!
>>>>>> Merci de votre aide
>>>>
>>>>
>>>>
>>
>>
>>





Daniel.C
Le #19264681
Là, on est mal.
Daniel

Désolé mais je confirme que dans le fichier il n'y a pas de code.. mais peut
etre cela provient il de mon anti virus ?

"Daniel.C" wrote:

Le code se trouve dans le module feuille (Feuil1).
Daniel

Merci mias lorsque je recupére le fichier il n'y a pas de code associé!
En plus,j'ai oublié de préciser que tous cela ce passe dans un Userform!


"Daniel.C" wrote:

Bonjur
Regarde le classeur suivant :
http://cjoint.com/?fgadGtqWoE
Daniel

Bonjour Daniel,
Merci pour tes propositions mais elle ne marchent pas vraiement!
le compteur s'arrete à 0.1km.
Pour moi le probléme vient de la fonction Val qui ne trouve pas le
séparateur","....

"Daniel.C" wrote:

ou :
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0
Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0
Km")
End Sub
Daniel


Bonjour.
En mettant la propriété "SmallChange" du spinbutton à 1 :

Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub
Cordialement.
Daniel

Bonjour,
J'ai un textbox que j'incremente par un spin button.
Pb je veux afficher un format!
J'ai ecris cela qui fonctionne trés bien:
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
End Sub
Mais voila impossible d'incrementer pas pas de 1/10!
Merci de votre aide

























Daniel.C
Le #19264671
Copie le code posté hier et mets-le dans le code de la feuille. Je
teste sur un userform...
Daniel

Désolé mais je confirme que dans le fichier il n'y a pas de code.. mais peut
etre cela provient il de mon anti virus ?

"Daniel.C" wrote:

Le code se trouve dans le module feuille (Feuil1).
Daniel

Merci mias lorsque je recupére le fichier il n'y a pas de code associé!
En plus,j'ai oublié de préciser que tous cela ce passe dans un Userform!


"Daniel.C" wrote:

Bonjur
Regarde le classeur suivant :
http://cjoint.com/?fgadGtqWoE
Daniel

Bonjour Daniel,
Merci pour tes propositions mais elle ne marchent pas vraiement!
le compteur s'arrete à 0.1km.
Pour moi le probléme vient de la fonction Val qui ne trouve pas le
séparateur","....

"Daniel.C" wrote:

ou :
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0
Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0
Km")
End Sub
Daniel


Bonjour.
En mettant la propriété "SmallChange" du spinbutton à 1 :

Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + _
SpinDistance.SmallChange / 10, "0.0 Km")
End Sub
Cordialement.
Daniel

Bonjour,
J'ai un textbox que j'incremente par un spin button.
Pb je veux afficher un format!
J'ai ecris cela qui fonctionne trés bien:
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1, "0.0 Km")
End Sub
Mais voila impossible d'incrementer pas pas de 1/10!
Merci de votre aide

























Patrick BASTARD
Le #19264651
Bonjour.

Le fichier, téléchargé chez moi, comporte bien du code en Feuil1 :

Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Format(Val(TxtDistance.Value) - 1 / 10, "0.0 Km")
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Format(Val(TxtDistance.Value) + 1 / 10, "0.0 Km")
End Sub

--
Bien ,

Patrick BASTARD
patrick.bastardchezdbmail.com

"StDonat" news:
Désolé mais je confirme que dans le fichier il n'y a pas de code.. mais
peut
etre cela provient il de mon anti virus ?


Publicité
Poster une réponse
Anonyme