VBA : Le résultat de ma moyenne n'est pas correct

[beegees]

Bonjour à tous,

J'ai ces deux valeurs :

0,870%
0,55%

J'essaie d'effectuer la moyenne de ces deux valeurs, cela devrait me donner 0.710%

J'obtiens 0,0071 et non pas 0.710

Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Not Intersect(Target, Range("F15:Q15")) Is Nothing Then
        Dim ligne As Integer
        Dim moyenne As Long
        'va contenir la ligne sur laquelle on est
        ligne = ActiveCell.Row
        'MsgBox (ActiveSheet.Range("D15").Value)
        'MsgBox (Range(ligne, 5))
        
        MsgBox Application.Average(Range(Cells(ligne, 4), Cells(ligne, 5)))
        
        'MsgBox moyenne
        
    End If
End Sub

Merci d'avance pour l'aide.

bee

 

[Dranreb]

Re : VBA : Le résultat de ma moyenne n'est pas correct

Bonjour.
Essayez comme ça :

MsgBox (Me.Cells(Ligne, 4).Value + Me.Cells(Ligne, 5).Value) * 50 & "%"

Cordialement.