[VBA-E] Gestion d'une erreur #N/A

(RE)Bonjour,

J'ai un code qui lit un fichier Excel ligne par ligne dans une colonne.Le problème c'est que si une cellule contient
la valeur #N/A, l'application se met en erreur.J'ai bien essayé le :

on error resume next

ou le

if err.number="2042" then
resume next
end if


Mais ça fonctionne pas :(

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

For Each Cellule In Plage 'Fichier_Source   On Error Resume Next   If Trim(Cellule) = Trim(Cellule2) Then   'code------------------------   End If   Next   'code ----------------   Next   'code---------------   End Sub

---

que contienne ces lignes du texte ou des chiffres?

si c des chiffres tu n a qu tester avant pour voir si tu peux realiser ta procedure et ne pas avoir d'erreur

bonjour

j'espere que cet exemple pourra t'aider .

Code:

---

1 2 3 4 5 6 7 8 9

Dim Valeur As Range   For Each Valeur In Sheets("Feuil1").Range("A1:A100") If Not WorksheetFunction.IsErr(Valeur) = True Then ' 'ma procedure ' End If Next

---

bonne journée
michel

Malheureusement non cela ne gère pas mon erreur #N/A :cry:

bonsoir

que veux tu dire par "cela ne gère pas mon erreur #N/A" ?
tu as un message d'erreur ?
si oui equel ?
peux tu montrer la procedure que tu as utilisé ?


chez moi cela fonctionne bien ...


bonne soiree
michel

Citation:

---

If Cellule.Value = "" Then

---

en attendant qu'un pro VBA vienne : Value ne serait pas réservé à du numérique alors que "" est du string ? :wink:
ben çà alors ! le temps que je réponde et... le message auquel je répondais a disparu !!!!! :koi:
Comme je suis toujours très prudent et que je note tout, le message était le suivant :

Citation:

---

For Each Cellule In Plage
If Not WorksheetFunction.IsErr(Cellule) = True Then
If Cellule.Value = "" Then
NbLigneBlanche = NbLigneBlanche + 1
LigneBlanche = True
End If
end if
Next



l'erreur est "incompatibilité de type" et elle intervient uniquement lorsque il y a #N/A dans la colonne

---

:lol: :lol:

rebonsoir

Oouupps...excuse moi , tu as raison

essayes plutot cette ligne

Code:

---

If Not WorksheetFunction.IsNA(Cellule) = True Then

---

bonne soiree
michel

Code:

---

1 2 3 4 5 6 7 8

For Each Cellule In Plage If Not WorksheetFunction.IsErr(Cellule) = True Then If Cellule.Value = "" Then NbLigneBlanche = NbLigneBlanche + 1 LigneBlanche = True End If End If Next

---

Voici mon code...je souhaiterais qu'il m'indique l'erreur mais je souhaiterais par la meme occasion qu'il continue dans la boucle

bonsoir

as tu essayé la modification proposée dans mon message de 19:26

Code:

---

1 2 3 4 5 6 7 8

For Each Cellule In Plage If Not WorksheetFunction.IsNA(Cellule) = True Then If Cellule.Value = "" Then NbLigneBlanche = NbLigneBlanche + 1 LigneBlanche = True End If End If Next

---

bonne soiree
michel

Parfait SilkyRoad ça fonctionne !!


Merci ! :)