UserForm et Selection de Checkbox

Bonjour, j'essaye de imprimer des feuilles que je selectionne avec des Checkbox depuis un UserForm, ensuite en fonction de cela j'aessaye de construire une châine de caractère que je passe en argument dans ma ligne Sheets(Array(ConstrCh)).Select, le code que j'ai fait et qui ne marche pas est

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim ConstrCh As String Dim CheckBox As String Dim boxname As String   If CheckBox2.Value = True Then boxname = CheckBox2.Caption ConstrCh = ConstrCh & boxname Else ConstrCh = ConstrCh End If If CheckBox3.Value = True Then boxname = CheckBox3.Caption ConstrCh = ConstrCh & "," & boxname Else ConstrCh = ConstrCh End If Sheets(Array(ConstrCh)).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1

---

j'ai une erreur d'incaompatibilité de type à cette ligne

Code:

---

Sheets(Array(ConstrCh)).Select

---

et si je regarde comme il construit ma chaîne de caractère, je vois par exemple "Feui1,Feuil2", et remarque si je ne coche pas la première checkbox ma chaine de caractère commence par une virgule, ex ",Feuil2"

La cerise sur le gâteau serait de pouvoir dénombrer le nombre de Checkbox , de les parcourir et de récupérer le caption et de construire cette chaînes, alors si qqn à une idée je suis preneur

Que faire pour bien faire

Merci pour votre aide

bonjour

tou dabors le mot checbox ne dois pas etre mis en variable string ou autre

change ca deja

et regarde un peu dans l'aide ce que tu peut faire avec la fonction redim preserve


au plaisir...

Bonsoir

Citation:

---

et si je regarde comme il construit ma chaîne de caractère, je vois par exemple "Feui1,Feuil2"

---

le problème vient de la car normalement tu devrais avoir "Feuil1","Feuil2" comme des données dans un tableau

essaye avec ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim ConstrCh() As String Dim nb As Integer   nb = 0 If CheckBox2.Value = True Then ReDim Preserve ConstrCh(nb) ConstrCh(nb) = CheckBox2.Caption nb = nb + 1 End If   If CheckBox3.Value = True Then ReDim Preserve ConstrCh(nb) ConstrCh(nb) = CheckBox2.Caption nb = nb + 1 End If   Sheets(ConstrCh).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1

---

c'est exactement ca !

la normalement il devrais avoir sa solution

au plaisir