Discussion :

[Mynathir]

Bonjour,

J’ai un classeur contenant plusieurs feuilles ex: "a" "b" "c" "d " "e"

J’aimerai à l’aide de CheckBox sélectionner les feuilles qui serrons imprimer

Exemple :

On clique sur b et c et après validation les feuille B et C sont sélectionner il ne reste plus qua imprimer.

Pouvez-vous m’aider

Merci

[Daniel.C]

Bonjour,
un exemple avec 3 checkboxes, chacun ayant le caption d'une feuille :

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
Private Sub CommandButton1_Click()
    Dim f() As String, Ctr As Integer
    Ctr = -1
    ReDim f(0)
    If Me.CheckBox1 = True Then
        Ctr = Ctr + 1
        f(Ctr) = Me.CheckBox1.Caption
    End If
    If Me.CheckBox2 = True Then
        Ctr = Ctr + 1
        ReDim Preserve f(Ctr)
        f(Ctr) = Me.CheckBox2.Caption
    End If
    If Me.CheckBox3 = True Then
        Ctr = Ctr + 1
        ReDim Preserve f(Ctr)
        f(Ctr) = Me.CheckBox3.Caption
    End If
    Sheets(f).PrintOut
End Sub

[Mynathir]

Merci,
j'ai juste modifier un peut le code:

Je veux l'utiliser dans un module donc il faut préciser dans quel feuille sont les Checkbox et je préféré aussi utiliser le numéro des feuilles au-lieu que leur nom

"Modif en gras"

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
21
Private Sub CommandButton1_Click()
    Dim f() As Integer, Ctr As Integer
    Ctr = -1
    ReDim f(0)
    If Feuil1.CheckBox1 = True Then
        Ctr = Ctr + 1
        f(Ctr) = 1
    End If
    If Feuil1.CheckBox2 = True Then
        Ctr = Ctr + 1
        ReDim Preserve f(Ctr)
        f(Ctr) = 2
    End If
    If Feuil1.CheckBox3 = True Then
        Ctr = Ctr + 1
        ReDim Preserve f(Ctr)
        f(Ctr) = 3
    End If
    Sheets(f).Select
End Sub

J'ai du mal à comprend le fonctionnement des ReDim Preserve.
Je comprends qu’ils gardent en mémoire des informations mais je n'arrive pas à les l'utiliser correctement

Encore Merci