Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
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

4 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
Bon. J'ai testé avec un userform. Pas d eproblème. Le fichier de test
est là :
http://cjoint.com/?fgbYhtgV0j
Le code (à mettre dans le userform) est toujours le même.
Daniel

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
Misange
StDonat a écrit :
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 ?



Bonjour

Télécharge le fichier sur le pc au lieu de l'ouvrir avec l'explorateur.
Si tu es avec 2007, enregistre le dans un emplacement approuvé ou bien
autorise les macros.

--
Misange migrateuse
http://www.excelabo.net : Participez à un travail collaboratif sur excel !
Avatar
StDonat
Désolé de vous répondre si tard, mais maintenant que j’ai changé d’endroit
j’arrive enfin à récupérer les fichiers avec le code.(le firewall ou quelque
chose d’en le genre, de ma boite bloque le code vba ?!!!)
Toujours est –il que les 2 fichiers proposé ne arche pas vraiment… en fait
il marche pour afficher +0.1km mais jamais il n’affiche +0.2km +.03km…..
Le Userform n’affiche que 2 valeurs +0.1km et -0.1km ?!!!!
Mais est il possible d’avoir la réponse a la question titre du sujet :
Comment enlever un format ?


"Daniel.C" wrote:

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
Daniel.C
Private Sub SpinDistance_SpinDown()
TxtDistance.Value = Val(TxtDistance.Value) - 1 / 10
End Sub

Private Sub SpinDistance_SpinUp()
TxtDistance.Value = Val(TxtDistance.Value) + 1 / 10
End Sub
Daniel

Désolé de vous répondre si tard, mais maintenant que j’ai changé d’endroit
j’arrive enfin à récupérer les fichiers avec le code.(le firewall ou quelque
chose d’en le genre, de ma boite bloque le code vba ?!!!)
Toujours est –il que les 2 fichiers proposé ne arche pas vraiment… en fait
il marche pour afficher +0.1km mais jamais il n’affiche +0.2km +.03km…..
Le Userform n’affiche que 2 valeurs +0.1km et -0.1km ?!!!!
Mais est il possible d’avoir la réponse a la question titre du sujet :
Comment enlever un format ?


"Daniel.C" wrote:

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
































1 2