Bonjour Etienne, le Forum
Je pense qu'Excel doit pouvoir faire la même chose par formule bien plus simplement, mais je ne suis pas spécialiste... Et vu que ta demande est pour une Macro, alors voici une possibilité :
Sub TheDenombreur()
Dim Plage As Variant
Dim x As Long
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer, G As Integer, H As Integer, I As Integer, J As Integer
Dim Other As Byte
Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(Plage)
Select Case Plage(x, 1)
Case 1 To 10: A = A + 1
Case 11 To 20: B = B + 1
Case 21 To 30: C = C + 1
Case 31 To 40: D = D + 1
Case 41 To 50: E = E + 1
Case 51 To 60: F = F + 1
Case 61 To 70: G = G + 1
Case 71 To 80: H = H + 1
Case 81 To 90: I = I + 1
Case 91 To 100: J = J + 1
Case Else
Other = Other + 1
End Select
Next
MsgBox "Les Valeurs dénombrées sont, respectivement :" & vbCrLf & _
"1 à 10 = " & vbTab & vbTab & A & vbCrLf & _
"11 à 20 = " & vbTab & B & vbCrLf & _
"21 à 30 = " & vbTab & C & vbCrLf & _
"31 à 40 = " & vbTab & D & vbCrLf & _
"41 à 50 = " & vbTab & E & vbCrLf & _
"51 à 60 = " & vbTab & F & vbCrLf & _
"61 à 70 = " & vbTab & G & vbCrLf & _
"71 à 80 = " & vbTab & H & vbCrLf & _
"81 à 90 = " & vbTab & I & vbCrLf & _
"91 à 100 = " & vbTab & J & vbCrLf & _
"Et " & Other & " valeurs différentes", vbInformation, "Thierry's Démo"
End Sub
Bon Appétit
@+Thierry
