Bonjour,
J'ai la macro suivante dans This Workbook et la partie en gras ne fonctionne pas et me renvoie en déboggage chaque fois, quelqu'un saurait-il m'aider à trouver ce qui ne convient pas :
Private Sub Workbook_Open()
'Afficher toutes les données en gardant le filtre dans la feuille Toto
With ThisWorkbook.Worksheets("Toto")
If .FilterMode Then .ShowAllData
End With
'Supprimer le contenu des cellules A2 à Z5000 dans la feuille Tutu
Worksheets("Tutu").Range("A2:Z5000").ClearContent
End Sub
J'ai la macro suivante dans This Workbook et la partie en gras ne fonctionne pas et me renvoie en déboggage chaque fois, quelqu'un saurait-il m'aider à trouver ce qui ne convient pas :
Private Sub Workbook_Open()
'Afficher toutes les données en gardant le filtre dans la feuille Toto
With ThisWorkbook.Worksheets("Toto")
If .FilterMode Then .ShowAllData
End With
'Supprimer le contenu des cellules A2 à Z5000 dans la feuille Tutu
Worksheets("Tutu").Range("A2:Z5000").ClearContent
End Sub