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