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 : 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
 
 
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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