Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Enlever un Format

Enlever un Format

14 réponses
Avatar
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Daniel.C
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


Avatar
Daniel.C
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




Avatar
StDonat
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





Avatar
Daniel.C
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











Avatar
StDonat
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
>>
>>
>>





Avatar
Daniel.C
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


















Avatar
StDonat
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
>>>>
>>>>
>>>>
>>
>>
>>





Avatar
Daniel.C
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

























Avatar
Daniel.C
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

























Avatar
Patrick BASTARD
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" a écrit dans le message de
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 ?


1 2