Formule Excel

bonjour,

Testes ça :

Dim i As Integer

For i = 1 to Sheets.Count - 1
Worksheets(201).Range("C13").Value = Worksheets(201).Range("C13").Value + Worksheets(i).Range("C13").Value
next i

;o)

Polux

Bonsoir,

Je ne sais pas si tu as avancé mais voici un code que tu peux mettre sur ton bouton.
Ca t'inscrit en colonne A les noms de feuilles, et en colonnes B, C, ... les valeurs des celulles choisies de toutes les autres feuilles du classeur.

Private Sub CommandButton1_Click()
    Dim i As Integer, j As Integer, ws As Worksheet
    Set wsRecap = Worksheets("recap") 'mettre le nom exact de la feuille récapitulative
    j = 0
    
    For i = 1 To Sheets.Count
        If LCase(Worksheets(i).Name) <> LCase(wsRecap.Name) Then
            j = j + 1
            'copier les noms des feuilles en colonne A
            wsRecap.Range("A1").Offset(j, 0).Value = Worksheets(i).Name
            'copier les valeurs de C13 colonne B
            wsRecap.Range("B1").Offset(j, 0).Value = Worksheets(i).Range("A3").Value
            'copier les valeurs de B4 colonne C
            wsRecap.Range("C1").Offset(j, 0).Value = Worksheets(i).Range("B4").Value
            ' etc
        End If
    Next i
    wsRecap = Nothing
End Sub

eric

Salut

Voui, mais que veux-tu : la liste ou le total, ou les 2 ?

Bonjour,

Enfaite sur mes 200 feuilles à la cellule I13 j'ai une date. Dans ma feuille "recap" je veux que toute les dates de mes 200 feuille y soient indiquées.

erreur de manip mon probleme est pas resolu :')

La liaison à écrire est , par exemple :

= / tu vas sur ta feuille 1 / tu clicques sur la cellule I13 / tu valides.

tu recommences avec chaque feuille sur une nouvelle cellule de ta feuille récap.

à moins que je n'ai pas compris ta demande.

euh j'dois mettre quoi dans la cellule ? ^^

oui mais bon 200 feuilles sa fait un peu beaucoup a faire surtout que j'ai pas que la cellule I13 qui doit etre indiqué sur ma feuille recap ^^'

pour l'indication de polux je dois copier sa " Dim i As Integer

For i = 1 to Sheets.Count - 1
Worksheets(201).Range("C13").Value = Worksheets(201).Range("C13").Value + Worksheets(i).Range("C13").Value
next i " et juste a la mettre dans la cellule ou je veux que ma date apparaise ?

Mets un bouton sur ta feuille récap (la 201ème). Double clique dessus en mode création, tu arrives sur l'évènement à coder, fais un copier/coller des 4 lignes de codes ...

;o)

Polux

euh comment on mets un boutton ^^ ?

dans la barre de menu -> Affichage -> Barre d'outils, cocher Visual Basic ...

Ensuite, cliques sur "Boite à outils Contrôles" (le marteau et la clé) et sur "Mode création" (l'équerre et le crayon). Dans la fenêtre Outils de Contrôles, selectionnes "bouton de commande". Le pointeur de souris est devenu une croix. Faire clic gauche là où l'on veut le bouton, puis sans lacher le clic gauche, donner la dimension voulue.

Bon courage

j'ai crée mon boutton j'ai double cliqué dessu y a une fenetre blanche qui est venu j'ai coller les 4 lignes et ensuite je fais quoi ?

tu sauvegardes, tu enlève le mode création et tu cliques sur le bouton

c'est censé s'affcihé ou toute les dates de mes 200 feuilles ? ya ecrit sa c'est normal ? :
Private Sub CommandButton1_Click()
Dim i As Integer

For i = 1 To Sheets.Count - 1
Worksheets(201).Range("C13").Value = Worksheets(201).Range("C13").Value + Worksheets(i).Range("C13").Value
Next i
End Sub

il faut adapter le code :

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Sheets.Count - 1
Worksheets(201).Range("I13").Value = Worksheets(201).Range("I13").Value + " " + Worksheets(i).Range("I13").Value
Next i
End Sub

Voilà toutes les dates vont s'afficher dans la cellule I13 de la feuille 201.

Bonjour,

lapologie:
C'est une macro qu'il faut que tu ajoutes, mais là je n'ai pas trop le temps d'expliquer comment faire
polux:
Il me semble qu'il veut récuperer toutes les dates, pas la somme...
Qcq chose comme :
Worksheets("recap").Range("A1").Offset(i,0).Value = Worksheets(i).Range("C13").Value
serait plus approprié non ?

eric

enfaite sur mes 200 feuilles il y aurais tourjour en I13 une date. et je souhaites que sur ma feuille recap toute les dates de mes 200 feuilles y soient indiqué les unes a la suites des autres. Sur ma feuille "recap" il y a d'autre cellule de mes 200 feuilles qui doivent etre repertorier.

cordialement

Eriiic, oui tu as raison, mais je ne savais pas ce qu'il voulait exactement au début, ni comment était articulé son fichier. Ta syntaxe est meilleure.

Mais effectivement une macro (bien que je n'aime pas trop les macros) est plus appropriée.

Lapologie, tu devrais trouver sans trop de problème comment réaliser une macro en effectuant une recherche sur le net.

Bon courage,

;o)

Polux

je cherches en vain je n'est aucune base en macro je trouves la macro qu'il me faudrais si quelqu'un a du temps a me consacrer je suis partant ^^ j'adore apprendre de nouvelle chose :)