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 :
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.
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
Est-ce quelqu'un pourrait m'indiquer quelle erreur j'ai commise ?
merci d'avance.
Partager