Userform vers cellule, conserver format cellule

[troopers87]

Bonjour à tous,

j'ai un tout petit problème qui, je pense ne nécessite pas de fichier joint :

J'ai un Userform qui permet d'insérer la valeur saisie dans la textbox qui se nomme "montant" ; dans la cellule A2 de la feuille1. Voici le code, tout simple, que j'ai actuellement :

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

Malheureusement, le format de la cellule de destination est en euros et ce format est tout bonnement supprimé lors de l'insertion de la valeur par le Userform.

Est-il possible d'éviter cela ?

Merci d'avance! !

 

[kjin]

Re : Userform

Bonjour,

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

A+
kjin

 

[Pierrot93]

Re : Userform

Bonjour,

essaie avec une fonction de conversion :

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

bon après midi
@+

Edition : re Kjin🙂

 

[troopers87]

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 😉

 

[troopers87]

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% ?

 

[Pierrot93]

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" ?

 

[troopers87]

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...

 

[Pierrot93]

Re : Userform vers cellule, conserver format cellule

Re,

oui mais dans la textbox tu saisie quoi ?

 

[troopers87]

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 🙂

 

[Pierrot93]

Re : Userform vers cellule, conserver format cellule

Re,

essaye ceci, nom du "textbox" à adapter :

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

 

[troopers87]

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...

 

[Pierrot93]

Re : Userform vers cellule, conserver format cellule

Re,

ton fichier en retour, fonctionne chez moi sous 2003

 

[Pierrot93]

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"....

 

[troopers87]

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 !