Validation d'une valeur

Bonjour à toutes et à tous

J'ai une macro pour valider la valeur d'une cellule. Si la valeur = 0 j'ai un message qui s'affiche. Par contre si je remplace la valeur 0 par du texte (#N/A) ca ne fonctionne pas.

'**********************************Ç
'  VALIDATION S'IL Y A DES NON CORRESPONDANCE DANS LA COLONNE A / C-A-D- DES 0

    For t = 4 To 200 ' no ligne
        If (Cells(t, 1)) = "#N/A" Then
            MsgBox "Il y a des valeurs sans corresponnce, regarder la colonne A", vbOKOnly, "                  ATTENTION"
            Exit Sub
        End If
    Next t

    MsgBox "Validation terminée, aucune erreur de correspondance"

    '*  affciher toutes les colonnes

De plus est-ce possible de valider en fonction de 2 critères, dont une valeur non nulle ?

  If (Cells(t, 1)) = "#N/A" and If (Cells(t, 1)) = ""
  then ....

Merci d votre support et bonne journée

Salutations

Bonjour, le texte "#N/A" n'existe pas dans vos cellules.

C'est Excel qui vous informe que votre cellule contient une formule incorrecte.

Vous devriez changer les formules afin que votre code vba puisse trouver le texte prévu en cas d'erreur.

Exemple dans vos cellule : =SIERREUR(RECHERCHEV(A1;J2:N17;2;FAUX);"Pas de correspondance")

puis dans votre VBA

If (Cells(t, 1)) = "Pas de correspondance" Then

Bonjour à tous ,

Avec ce code vous ne touchez pas à votre formule :

Sub test()
   For t = 4 To 200
      If IsError(Cells(t, 1)) Then
         MsgBox "Ligne " & Cells(t, 1).Row & " : Valeur sans correspondance!", vbOKOnly, "ATTENTION"
         Application.Goto Cells(t, 1): Exit Sub
      End If
   Next t
   MsgBox "Validation terminée, aucune erreur de correspondance."
End Sub

Re,

Avec la double condition :

Sub test2()
   For t = 4 To 200
      If IIf(IsError(Cells(t, 1)), "", Cells(t, 1)) = "" Then
         MsgBox "Ligne " & Cells(t, 1).Row & " : Valeur sans correspondance ou vide!", vbOKOnly, "ATTENTION"
         Application.Goto Cells(t, 1): Exit Sub
      End If
   Next t
   MsgBox "Validation terminée, aucune erreur de correspondance."
End Sub