Arret de la macro si une cellule contient une valeur

[Sophie11]

Bonjour,
J'ai un tableau avec des valeurs et je voudrais que lorsque une cellule de la colonne K contient la valeur #N/A, un message box s'affiche avec un message qui dit que la macro s'arrete.
J'ai développé ce code :


For s = Range("A65536").End(xlUp).Row To 2 Step -1
If Range("D" & n) = "#N/A" Then
MsgBox "arret de la macro"
....

End If

Si vous pouvez m'aider à le compléter... merci

 

[Guest]

Re : Arret de la macro si une cellule contient une valeur

bonjour,

Tu peux essayer avec :

Range("D" & n) .Text = #N/A Then

A+

 

[kjin]

Re : Arret de la macro si une cellule contient une valeur

J'en ai oublié les principes élémentaires, alors bonjour et salut Hasco ;

Bonjour,
J'ai un tableau avec des valeurs et je voudrais que lorsque une cellule de la colonne K contient la valeur #N/A, un message box s'affiche avec un message

For [COLOR="Red"][B]s[/B][/COLOR] = Range("A65536").End(xlUp).Row To 2 Step -1
If Range("[COLOR="Red"][B]D[/B][/COLOR]" & [COLOR="Red"][B]n[/B][/COLOR]) = "#N/A" Then
MsgBox "arret de la macro"
....
End If

For s = Range("A65536").End(xlUp).Row To 2 Step -1
    If IsError(Range("K" & s)) Then
        MsgBox "arret de la macro à la ligne " & s
        Exit Sub
    End If
Next

A+
kjin

 

[Pierrot93]

Re : Arret de la macro si une cellule contient une valeur

Bonjour Sophie, Hasco

une autre solution, détectera toutes les valeurs d'erreur :

If IsError(Range("D" & n)) Then MsgBox "arret de la macro"

bone soirée
@+

Edition : bonsoir Kjin

 

[Guest]

Re : Arret de la macro si une cellule contient une valeur

Re sophie,
Kjin

Marche aussi:

If Range("D" & n) = cverr(xlErrNA) Then
 
End if

[Edit] Hello Pierrot
A+

 

[Sophie11]

Re : Arret de la macro si une cellule contient une valeur

merci pour vos réponses ! Grace à vous j'ai appris une nouvelle fonction (IsError) par contre je n'arrive pas à utiliser la fonction cverr(xlErrNA)

@Hasco >cverr(xlErrNA)
j'ai une erreur Run-time error '13'
Type mismatch

@Pierrot93b et kjin
marche trés bien

 

[Guest]

Re : Arret de la macro si une cellule contient une valeur

Re, sophie,

J'aurais du être plus précis:

'Teste s'il y a une erreur
If isError( Range("[COLOR=red][B]D[/B][/COLOR]" & [COLOR=red][B]n[/B][/COLOR]))  Then
   'Teste si l'erreur est #N/A
    If  Range("[COLOR=red][B]D[/B][/COLOR]" & [COLOR=red][B]n[/B][/COLOR]) = CVErr(xlErrNA) Then
         'Arrêt de la macro
     End If
End If

A+

 

[Sophie11]

Re : Arret de la macro si une cellule contient une valeur

yes ca marche, very cool thx