incrémenter le contenu des cellules

bjr
j'ai un classeur qui contient plusieures feuilles
pour la cellule AE7 de chaque feuille j'ai met la fonction suivante:
=n° qlcq--------------pour la AE7 de feuil1
='feuil1'!AE7-----------pour la AE7 de feuil2
='feuil2'!AE7-----------pour la AE7 de feuil3
.
.
.
='feuil(n-1)'!AE7-------pour la AE7 de feuil(n)
existe il une macro qui peut faire ce travail.?????
merci.

Citation:

---

existe il une macro qui peut faire ce travail.?????

---

Non, tu dois la réaliser ;)

bjr
j'ai bien fait le travail sans VBA,
mais est ce que vous pouvez m'aidez en utilisant VBA
merci bcp.

bonjour,

tu peux d inspirer de ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub formule() Dim fl As Worksheet Dim i As Integer For Each fl In ActiveWorkbook.Worksheets i = i + 1 If i > 1 Then fl.Cells(1, 1).FormulaR1C1 = "=Feuil" & i - 1 & "!RC" End If Next fl End Sub

---

bjr
je pense que je n'ai pas bien présenté mon problème

j'ai un classeur qui contient plusieures feuilles
pour la cellule AE7 de chaque feuille j'ai met la fonction suivante:
=n° qlcq-----------------pour la AE7 de feuil1
='feuil1'!AE7+1-----------pour la AE7 de feuil2
='feuil2'!AE7+2-----------pour la AE7 de feuil3
.
.
.
='feuil(n-1)'!AE7+(n-1)-------pour la AE7 de feuil(n)
les feuilles ne portent pas forcement les noms feuil1;feuil2;...........feuil(n),
je voulais dire seulement la feuille suivante et la feuille précedante
merci de votre aide.

donc tu rajoutes 1,2,3 etc a la valeur de la cellule ae7 ?

Citation:

---

j'ai un classeur qui contient plusieures feuilles
pour la cellule AE7 de chaque feuille j'ai met la fonction suivante:
=n° qlcq-----------------pour la AE7 de feuil1
='feuil1'!AE7+1-----------pour la AE7 de feuil2
='feuil2'!AE7+2-----------pour la AE7 de feuil3

---

exactement,
est ce qu'il y a une macro dont le but est de passer à la feuille suivante ou bien à la feuille precedante.
merci bcp.

Le mm principe que le code cité plus haut
on boucle sur toutes les feuilles du classeur actif
puis on rajoute i a la cellule ae7

Code:

---

1 2 3 4 5 6 7 8 9

Sub formule() Dim fl As Worksheet Dim i As Integer For Each fl In ActiveWorkbook.Worksheets i = i + 1 fl.range("ae7") = fl.range("ae7") + i Next fl End Sub

---

bjr
ça marche pas
j'ai essayé cette macro que je pense un peu proche

Code:

---

1 2 3 4 5 6 7

Sub incrimentation_cellule() For Each Worksheet In Worksheets If i <> 1 Then Worksheet(i).Range("a1").Value = Worksheet(i - 1).Range("a1").Value End If Next End Sub

---

mais avec des problèmes aussi.
a l'aide SVP.
MERCI

essaye ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub formule() Dim fl As Worksheet Dim i As Integer Dim valeur valeur = Worksheets(1).Range("ae7").Value For Each fl In ActiveWorkbook.Worksheets i = i + 1 If i > 1 Then fl.Range("ae7") = valeur + i - 1 End If Next fl End Sub

---

bjr
oui ça marche
est que tu peux m'expliquer

Code:

---

1 2 3 4

i = i + 1 If i > 1 Then fl.Range("ae7") = valeur + i - 1 End If

---

S.V.P
MERCI:yaisse2::king:

Code:

---

1 2 3 4 5

i = i + 1 'incrementation de i pour le parcour de chaque feuille If i > 1 Then ' a partir de la 2eme feuil fl.Range("ae7") = valeur + i - 1 'on ajoute i-1 a la valeur de la cellule ("ae7") de la feuil1 End If

---