Discussion :

[bouddine]

Bonjour tout le monde

SVP j'aimerai ecrire une macro qui me permer de calculer le nombre des cellule qui sont en gras et puis de mettre le nonbre dans une autre cellule .

Merci d'avance

[Abed_H]

Bonjour Bouddine
à tester

Code :

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

1
2
3
4
5
6
7
8
9
Sub nBgras()
Dim cell As Range, nb As Integer
For Each cell In Range("A1:A500")
    If cell.Font.Bold = True Then
       nb = nb + 1
       End If
    Next
    [B2] = "Nombre de cellule en Gras : " & nb
End Sub

Abed_H

[Qwazerty]

SAlut tlm
Je sais que je suis chiant mais

Code :

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

For Each cell In Range("A1:A500")

Peut etre avantageusement remplacé par

Code :

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

For Each cell In range(range("A1"),cells(rows.Count,"A").End(xlUp))

mais bon c'est vrai qu'on a pas toutes les infos donc un exemple générique était adapté.
Bonne nuit
a++
Qwaz

[Abed_H]

où bien avec

Code :

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

For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

Bonne nuit Qwazerty