XL 2010 MFC via VBA - Erreur d'exécution '5' parfois

[Compte Supprimé 979]

Bonjour à tous

Il m'arrive parfois d'avoir une erreur 5 lorsque je veux faire une MFC via VBA et je ne vois pas pourquoi 😕

Voilà mon code, le fichier n'a rien de particulier

Sub MiseEnForme()
  Dim LigD As Long, DLig As Long, ShtD As Worksheet
  For Each ShtD In ThisWorkbook.Sheets
    ' Activer la feuille
    ShtD.Activate
    ' Dernière ligne du tableau
    DLig = ShtD.Range("F" & Rows.Count).End(xlUp).Row
    ShtD.Range("A3").Select
    ' Modifier la mise en forme conditionnelle des lignes
    With ShtD.Range("A3:N" & DLig)
      .FormatConditions.Delete
' Ca BLOQUE déjà ICI
      .FormatConditions.Add Type:=xlExpression, Formula1:="=ET(ESTNUM($N3);$N3=0)"
      With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 35
      End With
      .FormatConditions(1).StopIfTrue = True
      .FormatConditions.Add Type:=xlExpression, Formula1:="=$AD3<>0"
      '.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
      With .FormatConditions(2).Interior
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 15
      End With
      .FormatConditions(2).StopIfTrue = True
    End With
    ' Filtrer les lignes
    ShtD.Range("$A$2:$N$" & DLig).AutoFilter Field:=14, Criteria1:="<>0"
  Next ShtD
End Sub

Si un expert ou quelqu'un qui avait une idée, passait par la 😉

 

[Lone-wolf]

Bonjour Bruno 🙂

Et comme ceci ?

On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ShtD.ShowAllData

Sinon le plus simple, si je ne dis pas de bêtises, ActiveSheet.Copy

 

[Compte Supprimé 979]

Salut Lone-Wolf, mes amitiés ;-)

Effectivement, je n'avais pas pensé à

On Error Resume Next
Application.DisplayAlerts = False

Il faut que je teste 😉

Au plaisir

 

[mapomme]

Bonjour BrunoM45,

Je n'ai aucune erreur qui se déclenche sur mon excel 🙄.

Vraiment à tout hasard (j'ai vu ça sur la toile): Le lien (Frédéric Sigonneau) est ICI.

Peut-être faut-il remplacer =ET(ESTNUM($N3);$N3=0) par =AND(ISNUMBER($N3),$N3=0) ?

 

[Compte Supprimé 979]

Salut mapomme 😉

Bonjour BrunoM45,
Je n'ai aucune erreur qui se déclenche sur mon excel 🙄.

Comme je le disais dans mon 1er post, cela m'arrive "parfois" seulement 😛 et je ne comprends pas pourquoi 🙁

Vraiment à tout hasard (j'ai vu ça sur la toile): Le lien (Frédéric Sigonneau) est ICI.
Peut-être faut-il remplacer =ET(ESTNUM($N3);$N3=0) par =AND(ISNUMBER($N3),$N3=0) ?

Non car c'est pour la version anglaise d'Excel et je n'ai pas ce problème... totally made in France 🙂

A+

 

[Lone-wolf]

Re Bruno

Alors qu'est-ce que ça donne? 🙄

EDIT: bonjour mapomme 🙂 . Bein... ce serait bien en vba d'écrire, pour nous francophones, le code en français et qu'Excel l'interprète en anglais. 😉

 

[Compte Supprimé 979]

Re,

J'étais dans les tests, apparemment ça passe 😉
Encore merci 😛