Discussion :

[Jeanvaljean44]

Bonjour,

Je souhaite vérifier si l'erreur #N/A est présente dans mon tableau T_BOM.

J'est rédigé le code suivant, qui à priori fonctionne, me renvoyant un message dès lors que #N/A existe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not BOM.Sheets(1).ListObjects("T_BOM").Range.Find("#N/A", SearchDirection:=xlNext) Is Nothing Then ....

Est-ce la bonne méthode?

[Jeanvaljean44]

Petite rectification, ce code ne fonctionne pas systématiquement et sans raison apparente!

Peut être la valeur recherchée : #N/A ne convient pas?

[halaster08]

Bonjour,

Essaye comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if WorksheetFunction.CountIf("taplage", "#N/A") > 0 then

[Jeanvaljean44]

Bonjour halaster08,

Ma plage est en fait le tableau structuré : ListObjects("T_BOM")

Par conséquent, je ne vois pas comment transposer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if WorksheetFunction.CountIf("taplage", "#N/A") > 0 then

...

[halaster08]

Normalement, comme tu l'avais fait dans ton find:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if WorksheetFunction.CountIf(ListObjects("T_BOM").Range,"#N/A") > 0 then

[Jeanvaljean44]

je viens de remplacer le code initial :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if WorksheetFunction.CountIf(ListObjects("T_BOM").Range,"#N/A") > 0 then

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If WorksheetFunction.CountIf(BOM.Sheets(1).ListObjects("T_BOM").Range, "#N/A") > 0 Then

et ça fonctionne!!! Merci beaucoup halaster08!