Macro - Si une cellule contient une erreur

Bonsoir à tous,

J'ai mon code ci-dessous.

Sub ESSAI()
        Dim X As Integer

        For X = 7 To 5000

        If Range("A" & X) <> "" Then
             Range("C" & X) = "coucou"

          End If

        Next X
End Sub

Dans la colonne A, si il y a quelque chose dans une cellule alors j'ai le mot coucou qui s'indique dans la colonne C sur la même ligne.

Seulement, j'ai parfois une erreur qui se trouve dans la colonne A, avec #NOM!.

J'ai tenté de rajouter un Iserror

If Range("A" & X) <> "" Or IsError then

Mais cela ne fonctionne pas.

J'ai besoin que lorsqu'il y a quelque chose dans la colonne ou une erreur, cela indique "coucou" en face.

Si quelqu'un sais comment gérer la double condition avec le OU il est le bien venu.

Merci d'avance

Bonne soirée.

Bonjour,

Essaie ainsi :

Sub ESSAI()
    Dim X As Integer
    On Error Resume Next
    For X = 7 To 5000
        If Range("A" & X) <> "" Then
            Range("C" & X) = "coucou"
            If Err.Number <> 0 Then
                Range("C" & X) = "coucou": Err.Clear
            End If
        End If
    Next X
End Sub

Cordialement.

bonjour

salut au passage MFerrand

une formule

= SI( OU ( A1="" ; ESTERREUR(A1) ) ;"coucou";"")

Bonjour Christrucci, le forum,

je te propose ce fichier Excel :

Ctrl e ➯ travail effectué

Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

Bonjour à tous

MERCI beaucoup pour votre aide,

les codes fonctionnent parfaitement.