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 :

Option Button avec résultat intégré dans une formule


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Janvier 2003
    Messages
    604
    Détails du profil
    Informations forums :
    Inscription : Janvier 2003
    Messages : 604
    Par défaut Option Button avec résultat intégré dans une formule
    Bonjour,

    Je voudrais que des options buttons que j'ai disposé dans ma feuille, aie
    une influence sur des fonctons dans ma feuille.

    J'ai donc écris une fonction que j'ai inséré dans une cellule mais elle ne donne pas de résultats. (j'ai essayé en mettant la fonction dans le code de feuille ou dans un module appelé "fonction", mais pas mieux)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Function OptionETF() As String
    If OptETF = True Then
        OptionETF = "ok"
    End If
    End Function
    Merci d'avance vous une idée ?

  2. #2
    Membre éprouvé
    Homme Profil pro
    Inscrit en
    Avril 2007
    Messages
    89
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Avril 2007
    Messages : 89
    Par défaut
    Bonjour,

    Je ne comprends pas vraiment le recours à la fonction.
    Dans une Feuil1, j'ai deux cases d'options Casdoption1 et Casdoption2, affectées aux macros correspondantes ci-dessous. Je saisis une valeur en A1 qui sera multipliée par une valeur dépendant du bouton radio activé :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Dim Choix As Integer
    Sub Casdoption1_Clic()
        Choix = 12
        Call MiseEnForme
    End Sub
    Sub Casdoption2_Clic()
        Choix = 20
        Call MiseEnForme
    End Sub
     
    Sub MiseEnForme()
    Feuil1.Range("A2").Formula = "=A1*" & Choix
     
    End Sub
    Quand on clique sur les boutons, la formule de A1 est mise à jour.
    Après il est peut-être plus indiqué de faire du If ou Select avec des valeurs booléennes, mais ça fonctionne comme ça chez moi

    Bonne journée

  3. #3
    Membre éclairé
    Inscrit en
    Janvier 2003
    Messages
    604
    Détails du profil
    Informations forums :
    Inscription : Janvier 2003
    Messages : 604
    Par défaut
    Bonjour,

    En fait j'aurais souhaité avoir une valeur qui soit directement lue dans le boutton sans que l'on ait à cliquer dessus.
    Si ce n'est pas possible je vais peut être donner une valeur par défaut que je mettrais dans le chargement de la feuille, mais je trouve que cela allourdit le code.
    Mais quand je suis sur un UserForm je peux interrger mon OptionButton alors pourquoi pas dans une feuille ?

    Merci de vos idées.

  4. #4
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 128
    Par défaut
    Salut
    Je suis pas sur de bien comprendre ce que tu cherches a faire, mais visiblement, tu cherches à utiliser l’état des Optionboutons directement dans une formule de ta feuille? si c'est bien ça ton soucis, fais un clique droit sur ton OptionBouton -> Format De Contrôle, dans l'onglet Contrôle tu peux lierer l’état de ton OptionBouton au contenu d'une cellule.
    Une fois que tu as fais ça, dans la formule ou tu veux faire référence à l’état de ton OptionBouton, tu fais référence à la cellule qui lui est liée.

    ++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  5. #5
    Membre éclairé
    Inscrit en
    Janvier 2003
    Messages
    604
    Détails du profil
    Informations forums :
    Inscription : Janvier 2003
    Messages : 604
    Par défaut
    Bonjour,

    Je viens d'aller sur Format de contrôle, mais sur mon Excel 2003 je n'ai pas d'onglet Contrôle dans la fenêtre proposée.
    Toutefois j'ai trouvé une solution en utilisant les clicks sur OptionButton, pour modifer une cellule nommée et en faisant une initialisation au chargement de la page.
    J'ai pas Excel 2007, mais si quelqu'un peut confirmer la proposition de Qwazerty ca peut être intéressant.

    Merci de votre retour avant de fermer le post.

  6. #6
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 128
    Par défaut
    Salut
    Ça n'est a mon avis pas la bonne méthode, lors de la création de tes optionboutons, tu as 2 choix de contrôle, formulaire ou activX. Rien a voir avec la version d'excel, prend le radiobouton qui se treouve dans le controles de type formulaire et tu auras la fenêtre dont je t'ai parlé.
    A++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

Discussions similaires

  1. [AC-2007] Utilisation du résultat de la ligne TOTAL dans une formule
    Par BR4562 dans le forum Access
    Réponses: 3
    Dernier message: 06/04/2014, 00h48
  2. Occulter l'année dans une formule avec des dates
    Par longani dans le forum Conception
    Réponses: 7
    Dernier message: 10/03/2013, 20h33
  3. Decode avec résultats concaténés dans une même chaine
    Par justinedr71 dans le forum PL/SQL
    Réponses: 2
    Dernier message: 08/08/2011, 10h53
  4. Réponses: 1
    Dernier message: 30/10/2009, 09h48
  5. Réponses: 1
    Dernier message: 01/01/2007, 14h17

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