erreur dans une macro [Résolu]

[chrisbdx]

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 :

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.

[mercatog]

Code :

If Cel.Offset(Nombreetudiants) <> "" Then

si les réponses des étudiant se trouve en colonne B
il fallait mettre

Code :

If Cel.Offset(0,1) <> "" Then

[chrisbdx]

Non en fait tout se passe dans une colonne qui contient une liste de noms. Je veux tout simplement récupérer le nombre de lignes. Peut-être me suis-je compliqué la tâche...

[mercatog]

élimine ta 2ème boucle et fais

Code :

Nombreetudiants=application.worksheetfunction.counta(range("A9:A29"))

bien sur si tu as des cases vides entre le A9 et le A29

sinon tu as 21 étudiants

[chrisbdx]

Merci beaucoup, avec cette instruction cela fonctionne correctement.
Mais je n'ai quand même pas compris pourquoi c'était faux...