VBA: Erreur à cause de #DIV/0!

D

didaa

XLDnaute Nouveau

• 23 Août 2011

• #2

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

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

 

Vote positif 0 Vote négatif

J

Jacou

XLDnaute Impliqué

• 23 Août 2011

• #3

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

 

Dernière édition: 23 Août 2011

Vote positif 0 Vote négatif

D

didaa

XLDnaute Nouveau

• 23 Août 2011

• #4

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.

 

Vote positif 0 Vote négatif

J

Jacou

XLDnaute Impliqué

• 23 Août 2011

• #5

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

 

Vote positif 0 Vote négatif

D

didaa

XLDnaute Nouveau

• 23 Août 2011

• #6

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

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Août 2011

• #7

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

Bonsoir,

VB:

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

    End If

A+

 

Vote positif 0 Vote négatif

D

didaa

XLDnaute Nouveau

• 24 Août 2011

• #8

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

Merci à vous!

 

Vote positif 0 Vote négatif