Regueiro
XLDnaute Impliqué
Bonsoir à tous.
J'essaie de mettre dans mes 2 Labels le nombre de feuilles
Selon conditions, mais je n'arrive pasd trouver mon erreur.
Voilà mon code
A+
J'essaie de mettre dans mes 2 Labels le nombre de feuilles
Selon conditions, mais je n'arrive pasd trouver mon erreur.
Voilà mon code
Merci de votre AideDim ws As Worksheet
Dim I As Byte
Private Sub UserForm_Initialize()
Me.ComboBox1.Clear
Me.ComboBox2.Clear
For Each ws In ThisWorkbook.Sheets
If ws.Name Like "ART.*" Then
Me.ComboBox1.AddItem ws.Name
End If
If ws.Name Like "SOUSART.*" Then
Me.ComboBox2.AddItem ws.Name
End If
Next
For I = 1 To Worksheets.Count
If ws.Name Like "ART.*" Then I = I + 1
Me.Label1.Caption = ("Il y a " & I & " onglets ART.... dans ce fichier")
'End If
If ws.Name Like "SOUSART.*" Then I = I + 1
Me.Label2.Caption = ("Il y a " & I & " onglets SOUS.ART.... dans ce fichier")
'End If
Next
End Sub
A+