Incompatibilité de type

Résolu/Fermé
hedi - 19 nov. 2013 à 12:13
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 19 nov. 2013 à 14:03
Bonjour,

je tape ce code:

Sub automatisation_ecrireachat()
For i = 2 To 375
If Range("E" & i).Value = "#N/A" Then Range("B" & i).Value = "Achat"
Next
End Sub

il y a une erreur: incompatibilité de type.

pouvez vous m'aider ?

merci

1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
19 nov. 2013 à 12:29
Bonjour,

Je suppose que #N/A correspond au code erreur d'Excel et pas à une saisie pure et dure.
Donc :

Soit tu ne veux traiter que les erreurs #N/A :

If WorksheetFunction.IsNA(Range("E" & i).Value) = True Then Range("B" & i).Value = "Achat"


Soit tu veux traiter toutes les erreurs (#VALUE, #DIV/0 etc) :

If IsError(Range("E" & i).Value) = True Then Range("B" & i).Value = "Achat"

0
merci !
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
19 nov. 2013 à 13:13
de rien.
Problème résolu?
0
oui !
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 19/11/2013 à 14:03
OK.
Je l'ai mis comme résolu pour toi (clic sur Marquer comme résolu dans le corps de ta question).
A+
0