VBA: Erreur à cause de #DIV/0!

[didaa]

Boujour à tous,

J'ai fait une macro qui marche parfaitement à l'exception d'une chose.
Lorsque elle tombe sur une cellule noté "#DIV/0!" elle bug.

Comment puis-je faire pour que lorsque l'instruction " If Cells(i, l) <> 0 Then... " tombe sur " #DIV/0! " ma macro ne bug pas?

Merci d'avance et bonne après midi.

 

[didaa]

Re : VBA: Erreur à cause de #DIV/0!

Pour info, il s'agit d'une Erreur d'exécution '13': Incompatibilité de type.

 

[Jacou]

Re : VBA: Erreur à cause de #DIV/0!

bonjour Didaa,

je n'ai pas testé , mais il doit être possible de faire :
" If Cells(i, l) <> 0 AND Cells(i,l)<> "#DIV/0!" Then...

Bonne fin de journée

edit1 : eh bien non après test ce n'est pas possible ainsi il y a effectivement une erreur 13.

donc le meilleur moyen, et c'est plus élégant, c'est de mettre des formules qui interdisent les divisions par zéro genre Si(diviseur = 0;"c'est pas bien!";dividende/diviseur)

Jacou

 

[didaa]

Re : VBA: Erreur à cause de #DIV/0!

Bonjour Jacou,

J'ai déjà testé cela mais ça ne passe pas.
En fait, j'ai l'impression que lorsque la cellule est en "#DIV/0!" alors VBA ne sait pas la lire.

Merci quand même Jacou.

 

[Jacou]

Re : VBA: Erreur à cause de #DIV/0!

re-bonjour,
Ajoute éventuellement un test du genre :

IF ActiveCell.Errors.Item(xlEvaluateToError).value = true then 'pas de traitement else 'traitement

Jacou

 

[didaa]

Re : VBA: Erreur à cause de #DIV/0!

Je l'essaye demain à la première heure!

 

[Guest]

Re : VBA: Erreur à cause de #DIV/0!

Bonsoir,

    If Not IsError(Cells(i, l)) And Cells(i, l) <> 0 Then
    Else

    End If

A+

 

[didaa]

Re : VBA: Erreur à cause de #DIV/0!

Merci à vous!