Discussion :

[babou466]

bonjour à tous, j'ai un problème à cause d'un résultat qui me donne l'expression "#DIV/0!". Je voudrais faire un test afin de voir si j'obtiens ce type de résultat, afin de le sauter et de poursuivre. Seulement, j'ai une incompatibilité au niveau de la condition de mon test if. 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
For ColonneCopieTCDyn = 12 To DerniereColonneTCDyn - 1
    Total_Mois_RAS_Chantier = 0
    For LigneTableauCopieTCDyn = 483 To 502
        RAS_Mois = Cells(LigneTableauCopieTCDyn, ColonneCopieTCDyn).Value
        'gestion de l'erreur divion par 0:
        If RAS_Mois = "#DIV/0!" Then
            GoTo Suivant
        Else
            Total_Mois_RAS_Chantier = Total_Mois_RAS_Chantier + RAS_Mois
        End If
Suivant:
    Next LigneTableauCopieTCDyn
    Cells(503, ColonneCopieTCDyn).Value = Total_Mois_RAS_Chantier
Next ColonneCopieTCDyn

Est ce que quelqu'un pourrait me venir en aide? merci à vous et bonne journée

[pgz]

Bonjour.

Je ne suis pas sûr du numéro, mais tu peux essayer

Code :

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

1
2
3
For LigneTableauCopieTCDyn = 483 To 502
        'gestion de l'erreur divion par 0:
        If Cells(LigneTableauCopieTCDyn, ColonneCopieTCDyn).Errors(1) Then

PGZ

[laetitia]

bonjour babou466 pgz le forum as tu esaye IsError

Code :

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

If IsError(ton code)) Then

[pgz]

Salut Laetitia.

IsError sera vrai quelque soit le type d'erreur, pas seulement pour l'erreur "division par 0".

PGZ

[babou466]

j'ai essayé le code suivant:

Code :

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

If IsError(2007) Then

qui ne fonctionne pas
ainsi que le code suivant qui ne fonctionne pas non plus:

Code :

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

If Cells(LigneTableauCopieTCDyn, ColonneCopieTCDyn).Errors(2007) Then

mon message d'erreur me signalant l'erreur 2007

[laetitia]

re est comme cela

Code :

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

If IsError (ta condition) = true Then

attention comme le dit l ami pgz cest pour tous type d erreur

[pgz]

j'ai essayé le code suivant:

Code :

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

If IsError(2007) Then

qui ne fonctionne pas
ainsi que le code suivant qui ne fonctionne pas non plus:

Code :

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

If Cells(LigneTableauCopieTCDyn, ColonneCopieTCDyn).Errors(2007) Then

mon message d'erreur me signalant l'erreur 2007

Je n'ai pas compris si tu as essayé ou pas le code que je t'ai proposé : 2007 --> 1.

[Qwazerty]

Salut
Un coup de barre, un ti coup de Faq et ça repart ^^
http://silkyroad.developpez.com/VBA/GestionErreurs/

Le 3eme § semble être intéressant

A++
Qwaz

[babou466]

Je n'ai pas compris si tu as essayé ou pas le code que je t'ai proposé : 2007 --> 1.

oui j'avais également essayé avec 1, sans succés. Mais merci à vous!

[aalex_38]

Bonjour,

Sans passer par une gestion d'erreur, mais ce code fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MaRange As Range
Set MaRange = Range("A1")
 
MsgBox MaRange.Address & vbCrLf & MaRange.Text
 
If MaRange.Text = "#DIV/0!" Then
    MsgBox "Division par 0"
Else
    MsgBox "Pas de division par 0"
End If