Attendre et lire Userform

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:

---

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

Bonjour.

Tu as ouvert ton formulaire avec

Code:

---

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:

---

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

Merci pour ta réponse

Citation:

---

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

Re,

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

Code:

---

sub OK_Click

---

PGZ

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:

---

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

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

Salutations,

Rahmor