Boucle FOR bizar bizar

Hello

C'est un fichier de pointage des absences

Je ne comprend pas d'où viens mon erreur <<L'indice n'appartient pas à la sélection>>

La variable T plante sur la feuille 16 mais je vois pas pourquoi

Si joint un bout de code + le fichier

Merci d'avance

Private Sub Worksheet_Activate()

Dim I, T, E, F, G As Integer

E = 0

F = 0

G = 0

For T = 4 To 17

For I = 5 To 36

E = E + Sheets(T).Range("E" & CStr(I)).Value

F = F + Sheets(T).Range("F" & CStr(I)).Value

G = G + Sheets(T).Range("G" & CStr(I)).Value

Range("E" & CStr(I)).Value = E

Range("F" & CStr(I)).Value = F

Range("G" & CStr(I)).Value = G

End Sub

Bonjour

sonataIII a écrit :
Si joint un bout de code + le fichier

50% de réussite : Le fichier n'est pas passé

Comme cause : As tu 17 pages ?

En attente du fichier si ce n'est ça

Yep

Trop d'Excel tue Excel

ou trop de fatigue ?

Bon après une bonne nuit de sommeille j'ai la solution

Merci

Private Sub Worksheet_Activate()

Application.ScreenUpdating = False

Dim I, T As Integer

Sheets(3).Range("E5:G50").ClearContents

For T = 4 To 15

For I = 5 To 50

Sheets(3).Range("E" & CStr(I)).Value = Sheets(3).Range("E" & CStr(I)).Value + Sheets(T).Range("E" & CStr(I)).Value

Sheets(3).Range("F" & CStr(I)).Value = Sheets(3).Range("F" & CStr(I)).Value + Sheets(T).Range("F" & CStr(I)).Value

Sheets(3).Range("G" & CStr(I)).Value = Sheets(3).Range("G" & CStr(I)).Value + Sheets(T).Range("G" & CStr(I)).Value

Application.ScreenUpdating = True

End Sub