Bonsoir à tous,

J'ai un petit souci de programmation. J'ai un classeur contenant 7 feuilles ("f1", "f2"..."f7"). Je veux créer une macro qui me copie la cellule "a4" d'une feuille et me la colle sur la feuille suivante sur la cellule "b4" (je copie "a4" de "f1" et je la colle sur "b4" de "f2", puis je copie "a4" de "f2" et je la copie sur "f3"...).
J'ai un souci dans ma programmation. J'ai effectué un boucle for. Problème, quand la boucle arrive sur la dernière feuille, f7, le programme bug car il ne trouve pas de feuille f8.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim i As Integer
 
For i = 1 To 7
Sheets(i).Select
Range("A4").Copy
Sheets(i + 1).Paste Destination:=Range("B4")
Next i
Merci d'avance pour votre aide