Comportement err.number VBA

[tontonexcel]

Bonjour à tous

J'ai un souci dans un programme concernant le gestionnaire d'erreurs sur l'objet Err
J'ai isolé dans le fichier joint le point ; lorsque je divise le contenu de 2 cellules contenant des nombres le Number de Err passe à 9 (si texte le number = 13 et 11 si diviseur = 0 ce qui est logique) du coup le test est toujours vrai même si je fais un err.clear au démarrage du programme

Quel est le problème ?
Merci pour les réponses

 

[youky(BJ)]

Bonjour, TontonExcel
refait un test avec ton fichier c'est tout bon
Le code err=0 en ligne 2 et la division se fait
Bruno

 

[tontonexcel]

Bonjour Bruno

Merci mais je n'ai pas bien compris et cela ne fonctionne pas

Sub err_clear()

'Ligne à insérer ???
err = 0

Dim boucle As Integer

On Error Resume Next

For boucle = 1 To 3

Range("C" & boucle).Value = Range("A" & boucle).Value / Range("B" & boucle).Value

'Verif numéro erreur pour test
MsgBox Err.Number

' Si Division alpha (err.number = 13)
' Si diviseur = 0 (err.number = 11)
' ??? si division OK err.number = 9

If Err.Number <> 0 Then

Range("C" & boucle).Value = False

' RAZ erreur
Err.Clear
End If

Next boucle
End Sub

 

[tontonexcel]

Re,
A priori le problème vient de la version 2007, ça fonctionne en version 2010
Merci