Discussion :

[Ardiden31]

Bonjour à tous,
Voila j'ai un problème de macro qui me calcul une moyenne mais parfois le résultat renvoyé est #Div/0! et dans ce cas la j'aimerai mettre un 0 à la place. Voici le bout de code qui ne marche pas mais je ne sais pas pourquoi.

Code :

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

1
2
3
4
5
6
7
8
For Lig = 6 To 19
   For Col = 7 To 58
      If IsError(sh.Cells(22, Col)) = True Then
             sh.Cells(22, Col) = 0
        Else: sh.Cells(22, Col) = Application.Average(Sh33.Cells(79, Col - 2))
      End If
   Next Col
Next Lig

merci à vous pour votre aide

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
For Lig = 6 To 19
   For Col = 7 To 58
      If sh.Cells(22, Col).text = "#Div/0!" Then
             sh.Cells(22, Col) = 0
        Else: sh.Cells(22, Col) = Application.Average(Sh33.Cells(79, Col - 2))
      End If
   Next Col
Next Lig

[Ardiden31]

En fait le #Div/0! on va le retrouver après le calcul de la moyenne.

J'ai essayé ça :

Code :

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

1
2
3
4
                sh.Cells(22, Col) = Application.Average(Sh33.Cells(79, Col - 2))
                If sh.Cells(22, Col).Text = "#Div/0!" Then
                        sh.Cells(22, Col) = 0
                End If

mais pas de résultat.

[Invité]

chez moi ça fonctionne mais comme je ne connais pas le résultat attendu!

[Ardiden31]

Le résultat attendu est un pourcentage de la moyenne. Je dois avoir un autre pb ailleurs si ça marche chez vous et pas chez moi .

[Philippe Tulliez]

Bonjour,
Depuis la version 2007, il existe une formule SIERREUR que tu peux utiliser dans VBA avec WorksheetFunction ou à l'aide de la fonction EVALUATE

[SfJ5Rpw8]

Bonjour,


déjà je ne comprends pas ce que tu veux faire avec ta fonction moyenne que tu applique à une seule cellule excel ?
avec ton code tu peu rajouter une fonction VAL pour éviter d'avoir und DIV/0 si ta cellule est vide ou ne contient pas un nombre

Code :

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

....Application.Average(val(Sh33.Cells(79, Col - 2)))

mais la moyenne d'une SEULE valeur c'est la valeur ... ( exple : moyenne(1) ben c'est 1 comme moyenne (123) est 123 )

[Ardiden31]

Bonjour,
En fait le code que j'ai envoyé représente juste un bout sinon je fais la moyenne de plusieurs cellules :

Code :

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

 Application.Average(Sh39.Cells(26, Col - 2), Sh40.Cells(26, Col - 2), Sh40.Cells(79, Col - 2), Sh38.Cells(26, Col - 2))

J'ai mis en fin de code le code suivant pour me changer les #Div/0! après tous les calculs :

Code :

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

1
2
3
4
5
6
7
    For Lig = 6 To 19
        For Col = 7 To 58
            If sh.Cells(22, Col).Text = "#DIV/0!" Then
                sh.Cells(22, Col) = 0
            End If
        Next Col
    Next Lig

[Igloobel]

Bonjour,

En relisant ton premier post je me demande pourquoi tu testes le contenu de ta cellule (que tu remplis après) plutôt que directement ta formule
exemple :

Code :

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

1
2
3
4
5
6
7
8
For Lig = 6 To 19
   For Col = 7 To 58
      If IsError(Application.Average(Sh33.Cells(79, Col - 2))) = True Then
             sh.Cells(22, Col) = 0
        Else: sh.Cells(22, Col) = Application.Average(Sh33.Cells(79, Col - 2))
      End If
   Next Col
Next Lig

A+

[Philippe Tulliez]

Bonjour,

En relisant ton premier post je me demande pourquoi tu testes le contenu de ta cellule (que tu remplis après) plutôt que directement ta formule

Je me pose la même question et comme je l'ai déjà écrit, pour autant que la version d'excel est supérieure à 2003, il suffit d'utiliser la fonction AVERAGE imbriquée dans le IFERROR.
Exemple avec EVALUATE

Code :

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

Range("B12").Value = Evaluate("=IFERROR(AVERAGE(B2:B11),0)")

Utilisable bien entendu directement dans Excel sans passer par du VBA

Code :

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

=SIERREUR(MOYENNE(B2:B11);0)

Pour les versions inférieures à 2007

Code :

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

=SI(ESTERR(MOYENNE(B2:B11));0;MOYENNE(B2:B11))

et en VBA

Code :

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

Range("B12").Value = Evaluate("=IF(ISERR(AVERAGE(B2:B11)),0,AVERAGE(B2:B11))")

[Ardiden31]

Bonjour à tous,
merci pour votre implication. J'ai donc repris le code de Igloobel en testant la formule et non le résultat.
A+