Bonjour,
je suis nouveau dans l'ecriture de macro, c'est ma premiere, et quand j'essaye d'executer ce code ca me dit incompatibilité de type, quelqu'un peut m'aider please?

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
21
22
23
24
25
26
Sub Entréesortie()
 
Dim j As Integer, NbLigne As Integer, i As Integer, somme As Single
 
LigneTotal = 1000
j = 1
 
For NbLigne = 2 To LigneTotal
 
    If Cells(NbLigne, 11).Value <> Cells(NbLigne + 1, 11).Value Then
 
        For i = j + 1 To NbLigne
 
            If Cells(i, 19).Value = "mcour" Then
            somme = somme + Sum(Range(Cells(i, 21), Cells(i, 29)).Value) / NBVAL.Range(Cells(i, 21), Cells(i, 29))
            End If
 
        Next i
 
    j = NbLigne
    Cells(j, 31).Value = somme
    End If
 
Next NbLigne
 
End Sub