Discussion :

[silevin]

merci pour le coup de main ...
Enoncé :
- 15 feuilles identiques (mais avec des données différentes) dans un classeur
- 1 feuille de synthèse dans le même classeur
- choix possible pour l'utilisateur de prendre 1 ou des feuilles pour en faire la synthèse (feuilles qui se suivent ou pas)
Jusque là pas de problème, userform en place ... OK
PB : je voudrais renvoyer dans une cellule de la feuille de synthèse la formule "somme" par exemple d'un même plage des différentes feuilles choisies.
Si les feuilles se suivent la formule sera :
somme(" & selD & ":" & selF & "!L3C8)" par exemple
mais si l'utilisateur fait un autre choix de feuilles comment faire varier la formule ???
Je reste ouvert à toutes propositions :

[SfJ5Rpw8]

Ben comment sélectionne tu tes feuilles ....

Pour Chaque Feuille si Feuille sélectionnée..
Formule = Formule & " + Somme( " & Feuille & "!L3C8) "
Fin Pour

et obtenir une formule du genre

= Somme(feuil1!L3C8) + Somme(feuil3!L3C8) +Somme(feuil4!L3C8)


...

sinon dis nous en plus sur ce que tu as et sur ce que tu ve

[silevin]

Bonjour à tous et grand Merci Bbil :

à défaut de m'apporter une solution toute faite tu m'as mis sur la voie, ce qui pour moi est d'ailleurs bien meilleur.
Je n'avais pas pensé à cela mais voilà donc la traduction de ta piste :

Code :

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

1
2
3
    For i = 1 To WorksheetFunction.CountA(Columns(2)) - 2
    feuille = Range("B2").Offset(y)
    cumul = cumul + Sheets(feuille).Cells(3, x + 1).Value

Encore merci et bon nouvel an chinois à tous :
kung-hsi fa-tsai (félicitations et prospérité)

[silevin]

Pardon

j'ai affiché la valeur de cumul qui me sert de test, en fait la véritable réponse à mon problème est là :
pour la confection de la formule

Code :

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

1
2
3
For i = 1 To WorksheetFunction.CountA(Columns(2)) - 2
feuille = Range("B2").Offset(y)
prevu = prevu & "+somme(" & feuille & "!L4C" & x & ":L39C" & x & ")"

pour l'écrire de la formule dans la cellule correspondante

Code :

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

1
2
3
4
5
6
Cells(l + 0, c + 0).Select
If cumul = 0 Then
ActiveCell.FormulaLocal = prevu
Else
ActiveCell.FormulaLocal = reel
End If

Merci