Heuuu ... comment dire ... il faut que tu utilises du Domestos (déboucheur)Oui merci, mais j'ai des numéros de feuilles après 30.
Je veux exclure uniquement ces numéros ( 27,28,29,30)
merci
Sub a()
Dim i As Byte, y As Byte
y = Worksheets.Count
For i = 1 To y
Select Case i
Case 1 To 3, 6 To y
MsgBox Sheets(i).Name
End Select
Next i
End Sub
Je pense que tu as une idée, mais que tu ne sait pas l'exprimer correctementA+
Option Explicit
Function periode(Optional lig As Long = 2)
Application.Volatile 'selon le besoin…
Dim c As Range, t As Integer, Cpte As Integer, i As Byte, y As Byte
y = Worksheets.Count
For i = 1 To y
Select Case i
Case 1 To 27, 31 To y
If lig = 0 Then lig = 4
For t = 1 To Sheets.Count
Set c = Sheets(t).Range("C" & lig)
Do While IsDate(Sheets(t).Cells(1, c.Column))
If c = "RF" Or c = "P1" Or c = "" Then
Cpte = Cpte + 1
Else
'If periode < Cpte Then periode = Cpte
Cpte = 0
End If
If periode < Cpte Then periode = Cpte
Set c = c(1, 3)
Loop
Next
End Select
Next i
End Function
For i = 1 To y
Select Case i
Case 1 To 27, 31 To y
If lig = 0 Then lig = 4
For t = 1 To Sheets.Count
Set c = Sheets(t).Range("C" & lig)
Set c = Sheets(i).Range("C" & lig)
Do While IsDate(Sheets(i).Cells(1, c.Column))