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 :

Aide case d'option


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
    Inscrit en
    Septembre 2013
    Messages
    17
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2013
    Messages : 17
    Par défaut Aide case d'option
    bonjour


    j'ai un classeur avec deux feuille

    feuille 1 mes données(10 futur tableau) et feuille 2 mon résumé

    je voudrais savoir si il est possible de déplacer un tableau suivent une case d'option coche

    exemple: dans ma feuille 2 lorsque je clic sur plafond STD je souhaiterais voir le tableau 1, ect

    si oui comment procédé, merci de votre aide
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Bonjour,

    Si tu utilisais les contrôles ActiveX, tu aurais accès aux événements des Option Buttons. Donc, dans OptionButton1_Click() de ta feuille, tu n'aurais qu'à importer le tableau de ton choix.

  3. #3
    Membre averti
    Homme Profil pro
    Inscrit en
    Septembre 2013
    Messages
    17
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2013
    Messages : 17
    Par défaut
    bonjour est merci

    si je comprend il faut que je remplace par des contrôle activeX, oui mais après j'utilise sa comment merci

  4. #4
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    On ne sait pas si ces tableaux vont varier en grandeur d'une fois à l'autre, mais en regardant ton fichier, tu pourrais y aller comme ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub OptionButton1_Click()
        'Vider auparavant
        Rows(12 & ":" & 50).Delete
        Sheets("Feuil1").Range("C1:F16").Copy Sheets("Feuil2").Range("A12")
    End Sub
     
    Private Sub OptionButton2_Click()
        'Vider auparavant
        Rows(12 & ":" & 50).Delete
        Sheets("Feuil1").Range("H1:K20").Copy Sheets("Feuil2").Range("A12")
    End Sub
    Je n'ai pas changé le nom des contrôles Option, mais ce serait une bonne chose de le faire pour la compréhension du code

Discussions similaires

  1. Réponses: 10
    Dernier message: 24/09/2012, 21h56
  2. Voir quel case d'option a été cochée
    Par Elstak dans le forum VBA Access
    Réponses: 3
    Dernier message: 04/06/2007, 20h09
  3. [Formulaire]cases d'option avec un bouton
    Par kovrov dans le forum IHM
    Réponses: 5
    Dernier message: 28/03/2007, 20h58
  4. [VBA-E] vider des cases d'options
    Par marjaco dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 11/06/2006, 20h29
  5. récupération de données de case d'option
    Par flower dans le forum Access
    Réponses: 8
    Dernier message: 03/05/2006, 14h46

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