bonjour HD,
j'ai vu votre réponse mais je n'ai pas de véritable solution
à part peut être un placebo,
sur ThisWorkbook
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
test
End Sub
Sub test()
Dim oSh As Object
Dim oTarget As Range
Dim vAvg As Variant
Dim lCells As Long
Dim lCnt As Long
Dim vMax As Variant
Dim vMin As Variant
Dim vSum As Variant
Dim dCnta As Double
Set oSh = ActiveSheet
Set oTarget = Selection.SpecialCells(xlCellTypeVisible)
If oTarget.Cells.Count > 1 Then
vAvg = Application.Average(oTarget)
lCells = oTarget.Cells.Count
lCnt = Application.Count(oTarget)
vMax = Application.Max(oTarget)
vMin = Application.Min(oTarget)
vSum = Application.Sum(oTarget)
dCnta = Application.CountA(oTarget)
Application.StatusBar = "Average: " & CStr(vAvg) & " | " & _
"Cell Count: " & lCells & " | " & _
"Count Nums: " & lCnt & " | " & _
"CountA: " & dCnta & " | " & _
"Max: " & CStr(vMax) & " | " & _
"Min: " & CStr(vMin) & " | " & _
"Sum: " & CStr(vSum) & " | "
Else
Application.StatusBar = False
End If
End Sub
isabelle