Vérifier si #N/A dans feuille

Bonjour,

J'ai une base de données qui est retraitée avec ajout de colonnes et insertion de formule vlookup.

J'aimerais tester toutes les cellules d'une feuille et renvoyer un message si une ou plusieurs cellules ont comme valeur #N/A.

J'ai essayé plusieurs choses dont le code plus bas, mais je ne pense pas que VBA accepte cela.

Je précise que j'aimerais si possible éviter les codes qui vérifie les cellules une à une, car mes bases de données ont entre 20-30 colonnes et des centaines de milliers de ligne.

Merci beaucoup !

Dim All As Range
Range("a1").Select
ActiveCell.CurrentRegion.Select = All

If IsError(All) Then
MsgBox ("Checker N/A")
Else
MsgBox ("Pas de N/A")
End If

Bonjour,

Une première proposition.

Cdlt.

Public Sub XXX()
Dim rng As Range
    On Error Resume Next
    Set rng = Cells(1).CurrentRegion.SpecialCells(-4123, 16)
    On Error GoTo 0
    If rng Is Nothing Then
        MsgBox "Pas d'erreurs", 64, "Information"
    Else
        MsgBox "Erreurs", 64, "Information"
    End If
End Sub

Bonjour,

Merci pour la réponse, mais j'ai testé le code avec une feuille remplie de #N/A et le message affiche "Pas d'erreurs"

Re,

L'exemple précédent dans le fichier joint.

Cdlt.