Bonjour, voilà mon code sous VBA , un erreur s’affiche en disant que l'indice n'appartient pas a la sélection, l'erreur est dans la dernière ligne, merci d'avance
Sub exo2()
Dim i As Integer
For i = 0 To Cells(3, 4).Value
Cells(i + 9, 1).Value = i
Next i
Cells(8, 1).Value = "k"
For i = 0 To Cells(3, 4).Value
Cells(i + 9, 2).Value = Cells(1, 2).Value * ((1 + Cells(2, 4).Value) ^ Cells(3, 4).Value - (1 + Cells(2, 4).Value) ^ Cells(i + 9, 1).Value) / (((1 + Cells(2, 4).Value) ^ Cells(3, 4).Value) - 1)
Next i
a = Cells(1, 6).Value
For i = 0 To Cells(3, 4).Value
Feuil2.Activate
Sheets("Feuille 1").Cells(i + 9, 3).Value = (1 + (Int((i + 9) / 12) - (i + 9) / 12)) * Sheets("Feuille 2").Cells(Int((i + 9) / 12) + a, 2) + ((i + 9) / 12) - (Int((i + 9) / 12)) * Sheets("Feuille 2").Cells(Int((i + 9) / 12) + a + 1, 2)
EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici :ICI
- A quel endroit plante ta macro ?
- Que donne le mode pas à pas ?
- Que valent tes différentes variables (et cellules) lorsque ça génère l'erreur ?
- Est ce que tes feuilles se nomment bien "Feuille 1" et "Feuille 2" (écrit exactement de la même manière...) ?
