Bonjour à tous,

J'ai écris un code qui, en soit fonctionne mais VBA me dit :" Dépassement de capacité" et cela m'embête car j'aimerais appliquer ce code à tout mon fichier et il m'en empêche, pouvez-vous m'aider ?

Voici le code :

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
Sub titre()
For i = 1 To 790
Cells(i + 1, 8).Select
Cells(i + 1, 8) = (Cells(i + 2, 2) - Cells(i + 1, 2)) / Cells(i + 1, 2)
Next
End Sub
 
Sub SPI()
For i = 1 To 790
Cells(i + 1, 8).Select
Cells(i + 1, 8) = (Cells(i + 2, 2) - Cells(i + 1, 2)) / Cells(i + 1, 2)
Next
End Sub
Sub rdtanormaux()
For i = 1 To 790
Cells(i + 1, 10).Select
Cells(i + 1, 10) = (Cells(i + 1, 8) - Cells(i + 1, 9))
Next
End Sub
Sub pppp()
Call titre
Call SPI
Call rdtanormaux
End Sub
Je peux joindre le fichier si besoin est : Merci à tous