Bonjour,
J'ai un petit probleme avec cette macro. Je pense que ça doit être tout bête mais je ne vois pas ou est l'erreur. Excel me renvois le message suivant :
et il surligne le
Si quelqu'un pouvait m'apporter ses lumiéres j'en serais ravi.
Voici le code :
D'avance merci
J'ai un petit probleme avec cette macro. Je pense que ça doit être tout bête mais je ne vois pas ou est l'erreur. Excel me renvois le message suivant :
Code:
Erreur de compilation Next sans For
Code:
Next m
Voici le code :
Code:
Sub accord()
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim l As Integer
Dim m As Integer
Dim j As Integer
Dim k As Integer
' modifier l'étendue de l en fonction du nombre de sujets
For l = 5 To 57
b = 0
c = 0
d = 0
For m = 3 To 29
If Sheets("Valence").Cells(1, m).Value = "positive" Then
If Sheets("Valence").Cells(l, m).Value = Sheets("Valence").Cells(1, m).Value Then
d = d + 1
End If
If Sheets("Valence").Cells(1, m).Value = "neutre" Then
If Sheets("Valence").Cells(l, m).Value = Sheets("Valence").Cells(1, m).Value Then
c = c + 1
End If
If Sheets("Valence").Cells(1, m).Value = "négative" Then
If Sheets("Valence").Cells(l, m).Value = Sheets("Valence").Cells(1, m).Value Then
b = b + 1
End If
Next m
Sheets("Valence").Cells(l, 32).Value = ((b + c + d) / 27) * 100
Sheets("Valence").Cells(l, 33).Value = (b / 9) * 100
Sheets("Valence").Cells(l, 34).Value = (c / 9) * 100
Sheets("Valence").Cells(l, 35).Value = (d / 9) * 100
Next l
End Sub
D'avance merci