Discussion :

[Pago]

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

[patricktoulon]

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...

[zyhack]

Bonsoir

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 :

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
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

[patricktoulon]

c'est exactement ca !

la normalement il devrais avoir sa solution

au plaisir