Discussion :

[abouhossam]

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.

[ouskel'n'or]

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

Non, tu dois la réaliser

[abouhossam]

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

[patbou]

bonjour,

tu peux d inspirer de ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[abouhossam]

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.

[patbou]

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

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

[abouhossam]

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.

[patbou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[abouhossam]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patbou]

essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[abouhossam]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

S.V.P
MERCI

[patbou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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