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 :

selectionner la valeur d'une variable au clavier


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    201
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 201
    Par défaut selectionner la valeur d'une variable au clavier
    Bonjour, j'aimerai savoir comment faire pour entrer une variable(mon épaisseur) sur un userform pour selectionner la veleur de l'epaisseur qu'on désire. Voici le code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Public Sub BRH()
    Dim Lwa As Single, Lws As Single, Lwscorr As Single, Lp As Single
     
    Lwscorr = Lws - (20 * Log(épaisseur / 0.2))
     
     
     
     
    End Sub
    Lwa et Lws sont des données dans une feuilles excel et je voudrai faire varier l'épaisseur à ma guise sur un userform. Quelqu'un peut il m'aider? Merci.

  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 : 52
    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
    Bonjour,

    Si par la, tu veux donner la possibilité à l'utilisateur de saisir une épaisseur, tu peux utiliser un textbox.
    A moins que je n'ai pas saisie ton besoin

  3. #3
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    Bonjour,

    Si tu souhaites simplement afficher une boîte de dialogue pour saisir l’épaisseur, tu peux utiliser la fonction InputBox.
    Voici un exemple avec la valeur Lws indiquée en A2.
    L’épaisseur est inscrite en B2 et Lwscorr en C2.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub BRH()
    Dim Lwa As Single, Lws As Single, Lwscorr As Single, Lp As Single
        Lws = Range("A2")
        épaisseur = InputBox("Veuillez indiquer l'épaisseur (mm)", "DIMENSION", 1)
        Lwscorr = Lws - (20 * Log(épaisseur / 0.2))
        Range("B2") = épaisseur
        Range("C2") = Lwscorr
    End Sub
    Cordialement.

  4. #4
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    201
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 201
    Par défaut
    Merci beaucoup pour votre aide et désolé de ne répondre que maintenant.
    En fait je souhaiterai entrer au clavier la valeur de l'épaisseur sur un userform en offrant à l'utilisateur la possiblité de choisir à travers une gamme d'épaisseur allant disons de 1 cm à 20 cm. Je suis entrain de créer un outil
    Merci encore.

    il faut ajouter que Lws est une plage de valeurs (20 valeurs)avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Lws=Range("feuil1!F5:F25)

  5. #5
    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 : 52
    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
    Si lws est une plage de cellules, déclares la en type Range à la place de Single

  6. #6
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    201
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 201
    Par défaut
    Merci mais j'aimerais pouvoir offrir à l'utilisateur le choix parmis plusieurs type de parois (béton, brique,etc..) qu'il selectionnerai et en fonction de sa selection et l'epaisseur qu'il donnera , je renverrai un calcul derriere pour determiner, sans l'afficher à l'utilisateur, la fréquence critique de la paroi que j'utiliserai dans la suite de mon programme. pour ce faire j'ai déja répertorié dans une feuille les caractéritiques de plusieurs matériaux (masse volumique, coefficient de poisson, etc...) dont j'ai besoin pour calculer cette fréquence critique. en utilisant une interface userform ce serait génial mais comment faire? merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XSL] Comment modifier la valeur d'une variable?
    Par sorcer1 dans le forum XSL/XSLT/XPATH
    Réponses: 8
    Dernier message: 17/02/2010, 13h26
  2. récupération d'une valeur dans une variable
    Par jh0483 dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 17/08/2005, 09h49
  3. Réponses: 2
    Dernier message: 16/08/2005, 09h43
  4. afficher dans une boite de dialogue la valeur d'une variable
    Par micknic dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 10/07/2005, 09h25
  5. Intercepter le changement de valeur d'une variable
    Par Captain_JS dans le forum C++Builder
    Réponses: 5
    Dernier message: 07/01/2005, 08h04

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