Discussion :

[Mut]

(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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chmod777]

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

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mut]

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

[SilkyRoad]

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

[jmfmarques]

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 ?
ben çà alors ! le temps que je réponde et... le message auquel je répondais a disparu !!!!!
Comme je suis toujours très prudent et que je note tout, le message était le suivant :

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

[SilkyRoad]

rebonsoir

Oouupps...excuse moi , tu as raison

essayes plutot cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not WorksheetFunction.IsNA(Cellule) = True Then

bonne soiree
michel

[Mut]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mut]

Parfait SilkyRoad ça fonctionne !!


Merci !