thomas4530
XLDnaute Junior
Bonjour,
Je chercher, je cherche mais je ne parviens pas à résoudre cette erreur.
Lorsque je lance mon module 1 depuis ma feuille gestion, j'obtiens à chaque fois cette erreur "Erreur d'exécution 13 - incompatibilité de type"
Selon moi, le problème se situe dans le code (puisque quand je le retire, je n'obtiens pas d'erreur)
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 3 To 66
deb = 45
fin = 2131
For k = 4 To 40
For J = deb To fin Step 41
truc = truc + Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Pouvez-vous m'aider ?
Thomas
Je chercher, je cherche mais je ne parviens pas à résoudre cette erreur.
Lorsque je lance mon module 1 depuis ma feuille gestion, j'obtiens à chaque fois cette erreur "Erreur d'exécution 13 - incompatibilité de type"
Selon moi, le problème se situe dans le code (puisque quand je le retire, je n'obtiens pas d'erreur)
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 3 To 66
deb = 45
fin = 2131
For k = 4 To 40
For J = deb To fin Step 41
truc = truc + Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Pouvez-vous m'aider ?
Thomas