Bonjour le forum,
Je suis désolé, je suis un peux fatigué en ce moment. Mais surtout impossible d’exécuter une instruction lors d'une erreur.
POur le code ci dessous (servant à enlever/désactiver les filtres et de libérer les volets de toutes les feuilles du classeur). l'instruction F.ShowAllData génère une erreur si toute les cellules sont déjà visible.
Même avec On Error GoTo suite / On Error resume next, ça bug à chaque fois, ai-je oublié quelque chose? Y a t'il une règle élémentaire ou une option à activer pour la gestion d'erreur en VBA?
Merci
Je suis désolé, je suis un peux fatigué en ce moment. Mais surtout impossible d’exécuter une instruction lors d'une erreur.
POur le code ci dessous (servant à enlever/désactiver les filtres et de libérer les volets de toutes les feuilles du classeur). l'instruction F.ShowAllData génère une erreur si toute les cellules sont déjà visible.
Même avec On Error GoTo suite / On Error resume next, ça bug à chaque fois, ai-je oublié quelque chose? Y a t'il une règle élémentaire ou une option à activer pour la gestion d'erreur en VBA?
Merci
Code:
Sub MaJ()
Dim F As Worksheet
Dim Txt As String
On Error GoTo suite
For Each F In ThisWorkbook.Worksheets
F.Activate
ActiveWindow.FreezePanes = False 'libere les volets
Txt = Txt & F.Name 'chope le nom
'deux solutions pour les filtres, avec une préferance pour la deuxième
Cells.AutoFilter
F.ShowAllData
'replace la cellule active
Range("A1").Select
suite:
Next F
MsgBox Txt
End Sub
Dernière édition: