Incompatibilité de type

Résolu
hedi -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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   Statut Modérateur Dernière intervention   2 761
 
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
hedi
 
merci !
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
de rien.
Problème résolu?
0
hedi
 
oui !
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
OK.
Je l'ai mis comme résolu pour toi (clic sur Marquer comme résolu dans le corps de ta question).
A+
0