Bonjour,

J'ai un CommandButton qui me sert à imprimer une liste inclue dans une feuille, je souhaiterai pouvoir utilizer ce bouton en ayant caché et verrouillé celle-ci.

Est-ce possible ?
Sur 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CommandButton16_Click()
Dim x As Long, y As Long, d As Integer, p As Integer
 
y = 3
 
Feuil4.Range("A3:e" & finf4).ClearContents
Feuil4.Range("A1") = "Item moving: " + intil
 
For x = 2 To finf2
    If Feuil2.Cells(x, 2) = prod Then
        For d = 1 To 4
            If d = 4 Then
                p = 1
            End If
 
            Feuil4.Cells(y, d + p) = Feuil2.Cells(x, d)
        Next d
 
        Feuil4.Cells(y, 2) = "In": y = y + 1
    End If
Next x
 
For x = 2 To finf3
    If Feuil3.Cells(x, 2) = prod Then
        For d = 1 To 5
            Feuil4.Cells(y, d) = Feuil3.Cells(x, d)
        Next d
 
        Feuil4.Cells(y, 2) = "Out"
        y = y + 1
    End If
Next x
 
For x = 2 To finf7
    If Feuil7.Cells(x, 2) = prod Then
        For d = 1 To 5
            Feuil4.Cells(y, d) = Feuil7.Cells(x, d)
        Next d
 
        Feuil4.Cells(y, 2) = "Moving": y = y + 1
    End If
Next x
 
Feuil4.Range("A2:e" & finf4).Sort Key1:=Feuil4.Range("a2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm1.Hide
Feuil4.PrintPreview
UserForm1.Show
End Sub
Merci