Bonjour,
j'ai un code qui bloque sur la dernière ligne (RRRrrr!!) mais je n'arrive pas à comprendre ce qui cloche.
Si quelqu'un peut me donner un coup de main ce serait top..
Merci
Application.DisplayAlerts = False
Sheets("ROSTER").Activate
For Each Cel In Range("C1:I1")
nom = Format(Day(Cel.Value), "00") & "-" & Format(Month(Cel.Value), "00")
For Each Feuil In Worksheets
If Feuil.Name <> nom Then
If Feuil.Name <> "ROSTER" Then
If Feuil.Name <> "Tables" Then
If Feuil.Name <> "Modèle" Then
PasDedans = True: Exit For
End If
End If
End If
End If
Next
Next
If PasDedans = True Then ThisWorkbook.Sheets("Feuil").Delete
j'ai un code qui bloque sur la dernière ligne (RRRrrr!!) mais je n'arrive pas à comprendre ce qui cloche.
Si quelqu'un peut me donner un coup de main ce serait top..
Merci
Application.DisplayAlerts = False
Sheets("ROSTER").Activate
For Each Cel In Range("C1:I1")
nom = Format(Day(Cel.Value), "00") & "-" & Format(Month(Cel.Value), "00")
For Each Feuil In Worksheets
If Feuil.Name <> nom Then
If Feuil.Name <> "ROSTER" Then
If Feuil.Name <> "Tables" Then
If Feuil.Name <> "Modèle" Then
PasDedans = True: Exit For
End If
End If
End If
End If
Next
Next
If PasDedans = True Then ThisWorkbook.Sheets("Feuil").Delete