A voir également:
- Prb avec les feuilles de Excel
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Fusionner feuilles excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
3 réponses
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
Quelqu'un peut-il m'aider?
Merci
Cire
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+
:
Envoie moi un fichier que je te montre.
A+
:
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
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
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+
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+