Bonjour,

je débute en création de macros et j'ai un problème avec ma première macro.

J'essaye de comptabiliser le nombre de noms en gras et le nombre total de cellules renseignées.

Voici la macro que j'ai écrite :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Taux_reponse()
    Dim Cel As Range, Nbreetudiants As Integer, compteur As Integer, taux As Single
 
    compteur = 0
    For Each Cel In ActiveSheet.Range("A2:A9")
       If Cel.Font.Bold = True Then
       compteur = compteur + 1
       End If
    Next
 
    Nombreetudiants = 0
    For Each Cel In ActiveSheet.Range("A2:A9")
        If Cel.Offset(Nombreetudiants) <> "" Then
        Nombreetudiants = Nombreetudiants + 1
        End If
    Next
    taux = (compteur * 100) / Nombreetudiants
    MsgBox " le taux de réponse est : " & taux & " %"
End Sub
Quand je teste ma macro sur une colonne comprtant huit lignes dont 3 noms en gras, Excel me renvoie le bon nombre de noms en gras mais toujours le résultat "4" pour Nombreetudiants.

Est-ce quelqu'un pourrait m'indiquer quelle erreur j'ai commise ?

merci d'avance.