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 :

Checkbox pour sélectionner des plages


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Février 2010
    Messages
    26
    Détails du profil
    Informations personnelles :
    Âge : 36
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 26
    Par défaut Checkbox pour sélectionner des plages
    Bonjour tous le monde!

    J'ai un userform avec dedans 5 Checkbox.
    Si un checkbox est coché alors je veux qu'une plage de cellule soit sélectionné.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
     
    Private Sub CommandButton1_Click()
     
        'Valider impression
           Select Case CheckBox1.Value
            Case True:  Sheets("Impression de l'ensemble").Select
                        Range("A1:J21").Select
            Case False:
        End Select
        Select Case CheckBox2.Value
            Case True:  Sheets("Impression de l'ensemble").Select
                        Range("A22:J42").Select
            Case False:
         End Select
        Select Case CheckBox3.Value
            Case True:  Sheets("Impression de l'ensemble").Select
                        Range("A43:J63").Select
            Case False:
        End Select
        Select Case CheckBox4.Value
            Case True:  Sheets("Impression de l'ensemble").Select
                        Range("A64:J84").Select
            Case False:
        End Select
        Select Case CheckBox5.Value
            Case True:  Sheets("Impression de l'ensemble").Select
                        Range("A85:J105").Select
            Case False:
        End Select
     
    End Sub
    Le problème avec ce code, il n'accumule pas les plages sélectionnés du style : Range("A64:A84,A85:J105").select

    Auriez vous une solution pour que chaque case coché permettent de maintenir les plages sélectionnés.

    Merci d'avance

    Aurel ++

  2. #2
    Membre éclairé Avatar de FCL31
    Profil pro
    Inscrit en
    Août 2007
    Messages
    887
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 887
    Par défaut
    Salut

    Il y a peut être plus simple mais tu peu faire comme ca je pense :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    Private Sub CommandButton2_Click()
    If CheckBox1 = True Then Range("A1:J21").Select
    If CheckBox2 = True Then Range("A22:J42").Select
    If CheckBox3 = True Then Range("A43:J63").Select
    If CheckBox4 = True Then Range("A64:J84").Select
    If CheckBox5 = True Then Range("A85:J105").Select
    If CheckBox1 And CheckBox2 = True Then Range("A1:J21,A22:J42").Select
    If CheckBox1 And CheckBox3 = True Then Range("A1:J21,A43:J63").Select
    If CheckBox1 And CheckBox4 = True Then Range("A1:J21,A64:J84").Select
    If CheckBox1 And CheckBox5 = True Then Range("A1:J21,A85:J105").Select
    If CheckBox2 And CheckBox3 = True Then Range("A22:J42,A43:J63").Select
    If CheckBox2 And CheckBox4 = True Then Range("A22:J42,A64:J84").Select
    If CheckBox2 And CheckBox5 = True Then Range("A22:J42,A85:J105").Select
    If CheckBox3 And CheckBox4 = True Then Range("A43:J63,A64:J84").Select
    If CheckBox3 And CheckBox5 = True Then Range("A43:J63,A85:J105").Select
    If CheckBox4 And CheckBox5 = True Then Range("A64:J84,A85:J105").Select
    If CheckBox1 And CheckBox2 And CheckBox3 = True Then Range("A1:J21,A22:J42,A43:J63").Select
    If CheckBox1 And CheckBox2 And CheckBox4 = True Then Range("A1:J21,A22:J42,A64:J84").Select
    If CheckBox1 And CheckBox2 And CheckBox5 = True Then Range("A1:J21,A22:J42,A85:J105").Select
    If CheckBox1 And CheckBox3 And CheckBox4 = True Then Range("A1:J21,A43:J63,A64:J84").Select
    If CheckBox1 And CheckBox3 And CheckBox5 = True Then Range("A1:J21,A43:J63,A85:J105").Select
    If CheckBox1 And CheckBox4 And CheckBox5 = True Then Range("A1:J21,A64:J84,A85:J105").Select
    If CheckBox2 And CheckBox3 And CheckBox4 = True Then Range("A22:J42,A43:J63,A64:J84").Select
    If CheckBox2 And CheckBox3 And CheckBox5 = True Then Range("A22:J42,A43:J63,A85:J105").Select
    If CheckBox2 And CheckBox4 And CheckBox5 = True Then Range("A22:J42,A64:J84,A85:J105").Select
    If CheckBox3 And CheckBox4 And CheckBox5 = True Then Range("A43:J63,A64:J84,A85:J105").Select
    If CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 = True Then Range("A1:J21,A22:J42,A43:J63,A64:J84").Select
    If CheckBox1 And CheckBox2 And CheckBox3 And CheckBox5 = True Then Range("A1:J21,A22:J42,A43:J63,A85:J105").Select
    If CheckBox1 And CheckBox2 And CheckBox4 And CheckBox5 = True Then Range("A1:J21,A22:J42,A64:J84,A85:J105").Select
    If CheckBox1 And CheckBox3 And CheckBox4 And CheckBox5 = True Then Range("A1:J21,A43:J63,A64:J84,A85:J105").Select
    If CheckBox2 And CheckBox3 And CheckBox4 And CheckBox5 = True Then Range("A22:J42,A43:J63,A64:J84,A85:J105").Select
    If CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 And CheckBox5 = True Then Range("A1:J21,A22:J42,A43:J63,A64:J84,A85:J105").Select
    End Sub
    Bonne chance

Discussions similaires

  1. [XL-2007] CheckBox ou Listbox pour sélectionner des critères et les afficher dans une autre feuille
    Par JessieCoutas dans le forum Macros et VBA Excel
    Réponses: 20
    Dernier message: 19/08/2009, 15h19
  2. Réponses: 10
    Dernier message: 11/11/2007, 15h18
  3. methode 4D pour sélectionner des enregistrements
    Par jejelafrite dans le forum 4D
    Réponses: 2
    Dernier message: 18/06/2007, 14h22
  4. Idée pour sélectionner des produits et les ajouter
    Par Nulenprogra dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 11/02/2007, 11h34
  5. Réponses: 4
    Dernier message: 25/11/2005, 11h25

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