Discussion :

[Ardiden31]

Bonjour à tous,
J’ai un code qui me permet de faire une moyenne :

Code :

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

1
2
3
4
5
6
7
8
9
 
For Col = 7 To 58        
          Cells(23, Col) = Application.Average(Sh20.Cells(26, Col - 1), Sh20.Cells(79, Col - 1), _
                                               Sh21.Cells(26, Col - 1), Sh21.Cells(79, Col - 1), _
                                               Sh27.Cells(26, Col - 1), Sh27.Cells(185, Col - 1), _
                                               Sh33.Cells(26, Col - 1), Sh33.Cells(79, Col - 1), _
                                               Sh34.Cells(26, Col - 1), Sh34.Cells(79, Col - 1), _
                                               Sh40.Cells(26, Col - 1), Sh40.Cells(79, Col - 1))
Next Col

Cependant, je n’arrive pas a trouver la syntaxe pour inclure le iferror.
Merci pour votre aide.

[mercatog]

Code :

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

1
2
3
4
With Worksheets("Feuil1").Cells(23, 7).Resize(, 52)
    .Formula = "=IFERROR(AVERAGE(" & Paramet(Sh20) & "," & Paramet(Sh21) & "," & Paramet(Sh27) & "," & Paramet(Sh33) & "," & Paramet(Sh34) & "," & Paramet(Sh40) & "),"""")"
    .Value = .Value
End With

avec Paramet

Code :

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

1
2
3
4
Private Function Paramet(ByVal Sh As Worksheet) As String
 
Paramet = "'" & Sh.Name & "'!F$26,'" & Sh.Name & "'!F$79"
End Function

[Ardiden31]

Je te remercie ça marche parfaitement.