Discussion :

[rahmor]

Bonjour,
Comme on s'en doute j'ai un problème et là je tourne depuis quatre jours sur le site et je n'ai pas trouvé (ou alors je n'ai pas compris que ça correspondait). Je voudrais faire une sélection de colonnes à l'aide d'un Userform. Je l'ai donc créé avec les CheckBox (l'utilisateur selectionne à chaque fois les colonnes qu'il veut) mais je n'arrive pas à trouver comment l'intégrer dans ma macro pour le lire et surtout attendre qu'on le ferme pour continuer.

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
 
Dim i As Variant
Dim c As Integer
Dim A As Range
 
choix.Show 0
 
Sheets("res").Activate
i = Range("A65536").End(xlUp).Row
Sheets("res").Range("A1", "A" & i).Select
 
For c = 1 To 8
    If CheckBox & c = True Then
        Union(Selection, Range(Cells(1, c), Cells(i, c))).Select
    End If
Next c
A = Selection

J'ai essayé ce code mais de toute évidence ça ne fonctionne absolument pas. J'ai déjà réussi pas mal de réponses sur le site (et je vous en remercie fortement) mais là c'est hors de compréhension pour moi.
Merci par avance pour votre aide.

Rahmor

[pgz]

Bonjour.

Tu as ouvert ton formulaire avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

choix.Show 0

COmme vbModeless = 0, cela veut dire que tu as ouvert ton formulaire en non modal. C'est pour cela que le code continue de s'exécuter sans attendre l'action de l'opérateur.

Si tu fais simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

choix.Show

L'exécution du code est suspendue jusqu'à fermetur du formulaire.

Par contre le code qui "lit" les checkboxes devra être déplacé vers le module associé au formulaire. Tu mets un bouton de validation sur le formulaire et sur clic, tu lis et enregistres l'état des checkboxes.

Cordialement,

PGZ

[rahmor]

Merci pour ta réponse

Par contre le code qui "lit" les checkboxes devra être déplacé vers le module associé au formulaire. Tu mets un bouton de validation sur le formulaire et sur clic, tu lis et enregistres l'état des checkboxes.

En revanche pour ça j'avais placé un bouton OK pour fermer la fenêtre mais pour l'enregistrement des checkboxes je ne vois pas comment faire puisque ça me met directement une sub checkbox_click ().

Salutations,

Rahmor

[pgz]

Re,

Si tu as un bouton OK, tu utilises la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sub OK_Click

PGZ

[rahmor]

J'ai tout mis dans la procédure de la fermeture mais une erreur persiste. J'essaye de mettre l'ensemble des colonnes que je veux en sélection mais apparemment ce n'est pas du tout efficace
Pour le faire j'utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
i = Sheets("res").Range("A65536").End(xlUp).Row
 
For c = 1 To 8
    If CheckBox & c = True Then
        Set B = Range(Sheets("res").Cells(1, c), Sheets("res").Cells(i, c))
        Set A = Union(A, B)
    End If
Next c
 
End
 
End Sub

L'erreur arrive en ligne 7 pour l'union. Je débute vraiment la programmation et je ne vois pas où ça foire. Peux-tu me l'indiquer ?
Merci pour ton aide.

Salutations,

Rahmor

[rahmor]

Merci pour l'aide, en fait les erreurs provenaient de fautes dans les déclarations.

Salutations,

Rahmor