Userform vers cellule, conserver format cellule

K

kjin

XLDnaute Barbatruc

• 13 Novembre 2012

• #2

Re : Userform

Bonjour,

Code:

Sheets("feuille1").Range("A2").Value = CCur(montant)

A+
kjin

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2012

• #3

Re : Userform

Bonjour,

essaie avec une fonction de conversion :

Code:

Sheets("feuille1").Range("A2").Value = CDbl(montant)

bon après midi
@+

Edition : re Kjin🙂

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 14 Novembre 2012

• #4

Re : Userform vers cellule, conserver format cellule

Bonjour à vous deux et merci pour vos réponses,

personnellement, je préfère les possibilités offertes par Pierrot93 car elle permet de conserver le format existant dans la cellule et non d'imposer un format en €. Par contre, cette deuxième possibilité peut s'avérer utile si on ne veut pas généraliser.

Merci encore et à bientôt 😉

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 14 Novembre 2012

• #5

Re : Userform vers cellule, conserver format cellule

Up ! Nouveau problème qui est directement lié à cette question, j'ai aussi un pourcentage, est-il possible de forcer le format à être en pourcentage et donc d'interpréter un 0,20 en 20% ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Novembre 2012

• #6

Re : Userform vers cellule, conserver format cellule

Bonjour,

peux tu préciser ce qui va être saisie dans le "textbox", 20% ou 20 ? la cellule de destination est bien au format "pourcentage" ?

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 14 Novembre 2012

• #7

Re : Userform vers cellule, conserver format cellule

Hum, je pense qu'un fichier est nécessaire ici car je pense avoir un cas particulier.

En fait, je construis un fichier de gestion des comptes. Pour avoir une présentation plus fluide, j'ai un format du type : "Objectif : "##% qui permet d'avoir : Objectif : 20%, par exemple.

Le problème est que lorsque le UserForm renvoit la valeur 0,20 je perds ma mise en forme.

Note : j'espère que l'USF sera bien enregistré, car dans un précédent post, je n'arrivais pas à l'intégrer au fichier Excel que j'envoyais sur le site...

 

Pièces jointes

• Test pourcentage avec format personnalisé.xlsm

  27.8 KB · Affichages: 52

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Novembre 2012

• #8

Re : Userform vers cellule, conserver format cellule

Re,

oui mais dans la textbox tu saisie quoi ?

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 14 Novembre 2012

• #9

Re : Userform vers cellule, conserver format cellule

Je voudrais pouvoir saisir 20% et que ce soit inséré dans la cellule B2 sans affecter son format 🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Novembre 2012

• #10

Re : Userform vers cellule, conserver format cellule

Re,

essaye ceci, nom du "textbox" à adapter :

Code:

Range("B2").Value = CDbl(Replace(TextBox1, "%", "")) / 100

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 14 Novembre 2012

• #11

Re : Userform vers cellule, conserver format cellule

D'accord, à quoi sert le CDbl exactement ?

EDIT : heu, non, chaque saisie que je fais provoque une erreur...

 

Dernière édition: 14 Novembre 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Novembre 2012

• #12

Re : Userform vers cellule, conserver format cellule

Re,

ton fichier en retour, fonctionne chez moi sous 2003

 

Pièces jointes

• classeur1.xlsm

  18.4 KB · Affichages: 73
• classeur1.xlsm

  18.4 KB · Affichages: 78
• classeur1.xlsm

  18.4 KB · Affichages: 97

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Novembre 2012

• #13

Re : Userform vers cellule, conserver format cellule

Re,

"CDbl" permet de convertir une chaine de caractère de type "string" sous la forme de nombres à virgule flottante. Les données stockées dans les contrôles activex étant toujours de type "string"....

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 15 Novembre 2012

• #14

Re : Userform vers cellule, conserver format cellule

Bonjour et merci pour ton attention,

effectivement, c'est une erreur de ma part, j'ai fait une erreur en copiant ton code. Du coup, ça marche impec' c'est génial 😉

Merci beaucoup, pierrot !

 

Vote positif 0 Vote négatif