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 :

Utilisé une checkbox dans une boucle if (débutant)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Enseignant en Activité Physique Adaptée
    Inscrit en
    Août 2021
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Enseignant en Activité Physique Adaptée
    Secteur : Santé

    Informations forums :
    Inscription : Août 2021
    Messages : 25
    Par défaut Utilisé une checkbox dans une boucle if (débutant)
    Bonjour à toutes et à tous,

    je vous écris car je cherche à exécuter des lignes de codes différentes selon si une checkbox est cochée ou non.

    Je m'explique, j'ai une macro qui crée des graphs pour chaque ligne dans un tableau. J'aimerai avoir deux checkbox (1 et 2). Si la checkbox 1 est cochée alors les graphs concernent les colonnes 11 à 17 par exemple et si la checkbox 2 est cochée alors les graph concernent les colonnes 19 à 25.

    Je pense que mon problème vient des checkbox, je les ai crée via l'outil "développeur" et "cases à cocher" ActiveX.

    J'ai l'impression que ma macro ne prend pas en compte si la checkbox est cochée ou non.

    Voici le code utilisé :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    ' récupération des données de t0
    If CheckBox1 = True Then
     
    ActiveChart.FullSeriesCollection(1).Values = _
            "=Aérobie!R" & x & "C11:R" & x & "C17"
    End If
     
    If CheckBox2 = True Then
    ActiveChart.FullSeriesCollection(1).Values = _
            "=Aérobie!R" & x & "C19:R" & x & "C25"
    End If
    Je vous joins également une image de mes 2 checkbox en espérant que cela vous permette de m'aider ^^". En ayant coché la checkbox1 j'aimerai quelle-ci renvoie l'info "true" dans le code ci-dessus.

    Merci à vous !

    Nom : checkbox.PNG
Affichages : 199
Taille : 6,3 Ko


    edit : grâce à l'outil des variables locales je vois que mes checkbox sont considérées comme "vides"
    edit 2: si je place ma macro dans la feuille où les checkbox sont cela fonctionne, jusqu'à présent j'étais dans un "module"

  2. #2
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 247
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 247
    Par défaut
    Hello,
    il faut tester la valeur de la checkbox. Exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If CheckBox1.Value = True
    Ami calmant, J.P

  3. #3
    Membre Expert Avatar de Thumb down
    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2019
    Messages
    1 579
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juin 2019
    Messages : 1 579
    Par défaut
    bonjour,
    pourquoi utiliser de checkbox et pas des optionButton?
    Code Avec optionButton : Sélectionner tout - Visualiser dans une fenêtre à part
    ctiveChart.FullSeriesCollection(1).Values =array( "=Aérobie!R" & x & "C19:R" & x & "C25","=Aérobie!R" & x & "C11:R" & x & "C17")(abs(optionButton1))

  4. #4
    Membre Expert
    Avatar de Igloobel
    Homme Profil pro
    Développeur ERP - VBA et Formateur bureautique
    Inscrit en
    Septembre 2005
    Messages
    1 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Développeur ERP - VBA et Formateur bureautique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 871
    Billets dans le blog
    1
    Par défaut
    Bonjour à tous,

    Je suis de l'avis de Thumb down concernant les OptionButton je

    Et même si ma préférence va vers les OptionButton, je veux juste faire remarquer que vu qu'il y que 2 états on peut utiliser le bouton "Bascule"

  5. #5
    Membre averti
    Homme Profil pro
    Enseignant en Activité Physique Adaptée
    Inscrit en
    Août 2021
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Enseignant en Activité Physique Adaptée
    Secteur : Santé

    Informations forums :
    Inscription : Août 2021
    Messages : 25
    Par défaut
    Bonjour tout le monde,

    désolé je n'avais pas vu vos suggestions ! D'où mon absence de réponse, merci à vous !

Discussions similaires

  1. [Conception] checkbox dans une boucle while
    Par SAFOne dans le forum PHP & Base de données
    Réponses: 7
    Dernier message: 22/12/2006, 14h05
  2. Problème de checkbox dans une boucle
    Par LeLapinVengeur dans le forum Struts 1
    Réponses: 5
    Dernier message: 01/12/2006, 17h07
  3. je sais pas utilisé une boucle pour ?
    Par napz dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 09/10/2006, 01h09
  4. Réponses: 14
    Dernier message: 25/06/2006, 19h18
  5. [VBA-E] checkbox dans une boucle
    Par richou dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 10/05/2006, 14h59

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