Sujet Précédent Sujet Suivant

Prb avec les feuilles de Excel

Fermé
Cire - 24 oct. 2003 à 20:26
 patch - 28 oct. 2003 à 21:30
Bonjour,

Sous Excel, je possède un classeur avec plusieurs feuilles. Je veux addtionner une cellule de la feuille PRÉCÉDENTE à une cellule de la feuille courante, ainsi de suite.

Mon problème est que l'accès aux feuilles sont nominatives. Je n'arrive pas a lui dire la précédente! Je veux utiliser une expresion que je pourrai copier sur chacune des feuilles.

Par exemple, une feuille par mois, je désire cumulé une valeur de mois en mois sur chaque mois. Soit par exemple, !janv!C12 = 10, !janv!C13 = 10, !fev!C12 = 40,!Fev!C13 = !janv!C12 + !fev!C12. Mais je ne veux pas nommer la feuille, je veux être capable de lui dire la feuille précédente.

Pouvez-vous me dire si c'est possible? Si oui, comment?

Merci
A voir également:

3 réponses

Réponse 1 / 3
Cire
25 oct. 2003 à 20:56
Humm, peut-être que je vais devoir utiliser une fonction en VBA. Mais je n'ai aucune expérience.

Quelqu'un peut-il m'aider?

Merci

Cire
0
Réponse 2 / 3
patch
26 oct. 2003 à 12:09
Oui, tu n'y arriveras pas autrement qu'n passant par du VBA. Pour t'expliquer ça va être long comme cela.
Envoie moi un fichier que je te montre.
A+
:
0
Cire
27 oct. 2003 à 02:40
Merci Patch de ton offre, mais je n'a pas ton adresse.

Donc, j'explique le problème plus en détail, et je te laisse mon adresse.

Dans la feuille 1 en cellule C5 (F1!C5) j'ai 5
Dans F1!C6 = F1!C5
F2!C5 = 16
F2!C6 = F1!C6 + F2!C5
F3!C5 = 4
F3!C6 = F2!C6 + F3!C5
F4!C5 = 7
F4!C6 = F3!C6 + F4!C5
ainsi de suite...
j'usqu'à la 26 feuilles.

Merci

Cire
ep@quebecois.com
0
Réponse 3 / 3
patch
28 oct. 2003 à 21:30
Je t'envois un fichier excel97.
sinon une solution est :
------------------------------
Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
If i = 1 Then Sheets(i).Cells(6, 3) = Sheets(i).Cells(5, 3)
If i > 1 Then Sheets(i).Cells(6, 3) = Sheets(i - 1).Cells(6, 3) + Sheets(i).Cells(5, 3)
Next i
End Sub
---------------------------------------
Sheets.Count te donne le nombre d'onglet
Sheets(i).name le nom de l'onget
Pour lancer tout ça dans cet exemple il faut créer un bouton "CommandButton1"

A+
0