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
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.
Bonjour,
à mettre dans le module de la feuille concernée
VB:
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 :
Code:
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
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)