Bonsoir Pascal
Bonsoir le Forum,
Ta macro fonctionne bien et je m'en sers, ce que je t'ai répondu c'est que le résultat de la macro s'affiche dans une seule cellule au bas des données et non un résultat (chiffre)par cellule en descendant, mais ce n'est pas grave car j'élargis la colonne pour que tout le résultat s'affiche horizontalement.
Pour info, je joins une autre macro qui est différente et qui fonctionne aussi car je pense que c'est aussi le but d'un forum de partager.
Bon WE et encore merci.
JJ
For i = 1 To 12 'colonnes
som0 = 0
som1 = 0
For Each c In Range(Cells(1, i), (Cells(10, i)))
If c = 0 Then
som0 = som0 + 1
If som0 <= 1 Then
ActiveSheet.Range(Cells(1, i), (Cells(10, i))).End(xlDown).Offset(1, 0).Font.Bold = False
ActiveSheet.Range(Cells(1, i), (Cells(10, i))).End(xlDown).Offset(1, 0) = som0
Else
ActiveSheet.Range(Cells(1, i), (Cells(10, i))).End(xlDown).Offset(1, 0).Font.Bold = False
ActiveSheet.Range(Cells(1, i), (Cells(10, i))).End(xlDown) = som0
End If
som1 = 0
ElseIf c = 1 Then
som1 = som1 + 1
If som1 <= 1 Then
ActiveSheet.Range(Cells(1, i), (Cells(10, i))).End(xlDown).Offset(1, 0).Font.Bold = True
ActiveSheet.Range(Cells(1, i), (Cells(10, i))).End(xlDown).Offset(1, 0) = som1
Else
ActiveSheet.Range(Cells(1, i), (Cells(10, i))).End(xlDown).Font.Bold = True
ActiveSheet.Range(Cells(1, i), (Cells(10, i))).End(xlDown) = som1
End If
som0 = 0
End If
Next
Next