XL 2019 Message Box en cas d'erreur #N/A

[JR.31]

Bonjour,
Je bloque sur ce problème.
J'aimerais qu'un message box s'affiche quant dans la colonne "B" une erreur #N/A s'affiche, avec un bouton "OK" .
Pourriez-vous m'indiquer un début de solution svp.
Merci

 

[sylvanu]

Bonjour JR,
Vous pouvez faire par ex :

    For L = 1 To Range("B65500").End(xlUp).Row
        If WorksheetFunction.IsNA(Cells(L, "B")) Then
            MsgBox "Erreur N/A détectée en B" & L
        End If
    Next L

Ensuite, dans l'application il faut savoir qui peut provoquer cette erreur pour la détecter en temps réel ( par ex par modification de la colonne A )
Pour aller plus loin, il faudrait un petit fichier test.

 

[dysorthographie]

Bonjour,
tu as supprimer la cellule prise en référence dans une formule?

 

[Wayki]

Bonjour,
à mettre dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.IsNA(Target) = True Then MsgBox "Pas trouvé : cellule " & Target.Address

End Sub

Si on veut vraiment se cantonner à la colonne B :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [B:B]) Is Nothing Then _

If Application.IsNA(Target) = True Then MsgBox "Pas trouvé : cellule " & Target.Address

End Sub

A +

 

[herve62]

Bonjour
Cette erreur est dû généralement à 90% à une formule RECHERCHE ...
Si c'est le cas le mieux est de faire = sierreur(RechercheV ....etc et il n'y a plus de #N/A ( Not Applicable)