P
Perrine
Guest
J'aimerai faire une condition pour compter des cellules rempli mais si dans certaine cellules il y un chiffre en gras alors ne pas compter cette cellule merci d'avance pour la réponse
Sub Macro1()
Dim x As Long ' déclare la variable x
Dim cel As Range 'déclare la variable cel
x = 0 'définit la variable x
For Each cel In Selection 'boucle sur toutes les cellule de la sélection
'si la cellule n'est pas vide et la valeur n'est pas en gras, redéfinit la variable x
If cel.Value <> '' And cel.Font.Bold = False Then x = x + 1
Next cel 'prochaien cellule de la sélection
MsgBox x 'message indiquant le nombre x
End Sub