End If sans Bloc If

Résolu
bthenault Messages postés 55 Date d'inscription   Statut Membre Dernière intervention   -  
bthenault Messages postés 55 Date d'inscription   Statut Membre Dernière intervention   - 1 oct. 2009 à 15:10
Bonjour,
Je ne vois pas pourquoi il met mets l'erreur (classique certes) End If sans bloc IF


Application.DisplayAlerts = False
For Each Sheet In ThisWorkbook.Worksheets
If Not Sheet.Range("G3") = DateSerial(2009, 1 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 2 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 3 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 4 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 5 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 6 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 7 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 8 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 9 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 10 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 11 + 1, 0) And _
Not Sheet.Range("G3") = DateSerial(2009, 12 + 1, 0) And _
Not Weekday(Sheet.Range("G3")) = 6 And _
Not Sheet.Range("G3") < Date - 8 _
Then Sheet.Delete _
Else
End If


Next Sheet


Application.DisplayAlerts = True

Merci pour votre aide !!!!

12 réponses

kij_82 Messages postés 4089 Date d'inscription   Statut Contributeur Dernière intervention   857
 
Bonjour,

Je n'ai aucune idée du langage dans lequel tu programmes, mais à mon avis, l'erreur est affichée parce que tu n'as aucune instruction dans ton bloc 'Else', ou alors parce que cette ligne de code est mal terminée (caractère obligatoire de fin de ligne peut-être ?)

Puisque tu ne fais rien de ton cas 'Else', supprime cette ligne et passe directement à ton 'EndIf', ça ne devrait plus marquer l'erreur.
2