Incompatibilité de type
Résolu
hedi
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 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
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
-
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"
