Discussion :

[nikkyfr]

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

[Heureux-oli]

Salut,

Tu dois passer en mode pas à pas et voir ce que donnent tes valeurs.

Le message signale que tu tentes d'affecter une valeur qui n'est pas du bon type à une variable.

[gFZT82]

Bonjour,

Tu peux essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

somme = somme + Application.Sum(Range(Cells(i, 1), Cells(i, 9))) / Application.CountA(Range(Cells(i, 1), Cells(i, 9)))

Cordialement.