IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Pourcentage dans une UserForm


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Webmaster
    Inscrit en
    Juillet 2007
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webmaster
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2
    Par défaut Pourcentage dans une UserForm
    Bonjour,
    Je suis nouveau et la question que je me pose, je ne l'ai pas trouvée sur le forum. Si elle existe, merci de m'indiquer où elle se trouve !
    Je vais essayer d'être simple. Dans ma UserForm, j'ai une TextBox dans laquelle doit être saisie une valeur en pourcentage (par exemple 0.32%) : ControlSource : P!S12, ma cellule S12 de ma feuille P en question est formatée en pourcentage. Dans ma boite de dialogue, je saisis en % et ça marche. Quand je reviens pour une autre saisie, la cellule de ma boite de dialogue indique 0.0032. Y-a t' il un moyen pour que cette valeur apparaisse en pourcentage ?
    Merci pour votre réponse

    Jack78

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Tu peux utiliser ce bout de code. Par contre, je ne suis pas sur que le ControlSource fonctionne toujours ou ne gene

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        TextBox1.Text = Replace(TextBox1.Text, " %", "")
        TextBox1.Text = Format(Val(TextBox1.Text) / 100, "##0.00 %")
    End Sub

  3. #3
    Candidat au Club
    Homme Profil pro
    Webmaster
    Inscrit en
    Juillet 2007
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webmaster
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2
    Par défaut
    Merci jfontaine pour ta réponse rapide.

    J'ai essayé ta solution mais ça n'a rien donné. Mon pourcentage apparait toujours en décimale dans ma boite de dialogue.

    En fait, je ne pense pas qu'il soit possible de faire apparaitre un valeur en pourcentage dans une boite de dialogue, sauf si la cellule liée est formatée en texte. De cette manière, le texte saisi dans la TextBox (ou ComboBox) reste tel qu'il a été saisi. Reste à traiter la valeur de la cellule liée (ControlSource) avec la fonction CNUM.

    Si qqun a une autre solution, je suis preneur.

    Jack78

  4. #4
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Pourtant ce code me donne bien une format correct sur mon poste

  5. #5
    Membre Expert
    Avatar de zazaraignée
    Profil pro
    Étudiant
    Inscrit en
    Février 2004
    Messages
    3 174
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2004
    Messages : 3 174
    Par défaut
    une valeur en pourcentage (par exemple 0.32%) : ControlSource : P!S12, ma cellule S12 de ma feuille P en question est formatée en pourcentage. Dans ma boite de dialogue, je saisis en % et ça marche. Quand je reviens pour une autre saisie, la cellule de ma boite de dialogue indique 0.0032.
    parce que 0.32%, ça fait bien 0.0032. Calcule ça comme tu voudra, ce sera toujours ça.

Discussions similaires

  1. la division par zero pour effectuer un pourcentage dans une requete
    Par VIRGINIE87 dans le forum Requêtes et SQL.
    Réponses: 12
    Dernier message: 24/05/2007, 22h44
  2. [VBA-E] Problème pour faire une boucle dans une userform
    Par Garlim dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 02/05/2007, 23h10
  3. [VBA-E] Evenement associé au bouton crée dans une userform
    Par AH... dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 09/02/2007, 14h06
  4. [VBA-W et/ou E]Tirer un trait dans une userform
    Par Mut dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/12/2006, 08h14
  5. [VBa-E] Object Ole "image bitmap" dans une Userform?
    Par gootsu dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 10/07/2006, 14h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo