J'ai un classeur avec x feuilles identiques et une feuille=20
qui doit faire la somme de toutes les autres : je=20
m'explique :
Feuille1, Feuille2, Feuille3 et R=E9cap.
La valeur de la cellule A1 de la fauille r=E9cap est la=20
sommes des A1 de toutes les autres feuilles.
Le probl=E8me et que si la structure des feuilles sera=20
toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pens=E9 parcourir toutes=20
les feuiiles, stoker la sommes pour une cellule sauf si=20
c'est la feuille r=E9cap, ecrire le r=E9sultat dans r=E9cap et=20
passer =E0 la cellule suivante, mais c'est un peu lourd !!)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
Sub toto() Sheets(1).Select Range("a1").CurrentRegion.Copy Sheets(4).Range("A1") Sheets(2).Select Range("a1").CurrentRegion.Copy Sheets(4).Select Range("a1").PasteSpecial Paste:=xlAll, Operation:=xlAdd Sheets(3).Select Range("a1").CurrentRegion.Copy Sheets(4).Select Range("A1").PasteSpecial Paste:=xlAll, Operation:=xlAdd Range("A1").Select End Sub
Camille
-----Message d'origine----- Bonjour,
J'ai un classeur avec x feuilles identiques et une feuille
qui doit faire la somme de toutes les autres : je m'explique :
Feuille1, Feuille2, Feuille3 et Récap. La valeur de la cellule A1 de la fauille récap est la sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes les feuiiles, stoker la sommes pour une cellule sauf si c'est la feuille récap, ecrire le résultat dans récap et passer à la cellule suivante, mais c'est un peu lourd !!)
Merci de vos réponses .
Bonjour,
Sub toto()
Sheets(1).Select
Range("a1").CurrentRegion.Copy Sheets(4).Range("A1")
Sheets(2).Select
Range("a1").CurrentRegion.Copy
Sheets(4).Select
Range("a1").PasteSpecial Paste:=xlAll, Operation:=xlAdd
Sheets(3).Select
Range("a1").CurrentRegion.Copy
Sheets(4).Select
Range("A1").PasteSpecial Paste:=xlAll, Operation:=xlAdd
Range("A1").Select
End Sub
Camille
-----Message d'origine-----
Bonjour,
J'ai un classeur avec x feuilles identiques et une
feuille
qui doit faire la somme de toutes les autres : je
m'explique :
Feuille1, Feuille2, Feuille3 et Récap.
La valeur de la cellule A1 de la fauille récap est la
sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera
toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes
les feuiiles, stoker la sommes pour une cellule sauf si
c'est la feuille récap, ecrire le résultat dans récap et
passer à la cellule suivante, mais c'est un peu lourd !!)
Sub toto() Sheets(1).Select Range("a1").CurrentRegion.Copy Sheets(4).Range("A1") Sheets(2).Select Range("a1").CurrentRegion.Copy Sheets(4).Select Range("a1").PasteSpecial Paste:=xlAll, Operation:=xlAdd Sheets(3).Select Range("a1").CurrentRegion.Copy Sheets(4).Select Range("A1").PasteSpecial Paste:=xlAll, Operation:=xlAdd Range("A1").Select End Sub
Camille
-----Message d'origine----- Bonjour,
J'ai un classeur avec x feuilles identiques et une feuille
qui doit faire la somme de toutes les autres : je m'explique :
Feuille1, Feuille2, Feuille3 et Récap. La valeur de la cellule A1 de la fauille récap est la sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes les feuiiles, stoker la sommes pour une cellule sauf si c'est la feuille récap, ecrire le résultat dans récap et passer à la cellule suivante, mais c'est un peu lourd !!)
Merci de vos réponses .
Chris MICHEL
Bonjour,
de mémoire, il y a un truc qui doit exister dans Excel (une histoire de verticalité, comme si les feuilles étaient emplilées) Comme je ne me rappelle de rien de précis, voici un petit bout de code à intégrer dans un module standard qui te permettra d'utiliser une nouvelle fonction somme_ttes_feuilles (elle apparaitra dans tes fonctions personnalisées quand tu cliques sur le petit fx).
Function somme_ttes_feuilles(ByVal cellule As Range) As Double
Application.Volatile
Dim i As Integer Dim som As Double Dim adresse, feuille As String
For i = 1 To Sheets.Count If Sheets(i).Name <> feuille Then som = som + Sheets(i).Range(adresse).Value End If Next
somme_ttes_feuilles = som
End Function
Chris.
-----Message d'origine----- Bonjour,
J'ai un classeur avec x feuilles identiques et une feuille
qui doit faire la somme de toutes les autres : je m'explique :
Feuille1, Feuille2, Feuille3 et Récap. La valeur de la cellule A1 de la fauille récap est la sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes les feuiiles, stoker la sommes pour une cellule sauf si c'est la feuille récap, ecrire le résultat dans récap et passer à la cellule suivante, mais c'est un peu lourd !!)
Merci de vos réponses .
Bonjour,
de mémoire, il y a un truc qui doit exister dans Excel
(une histoire de verticalité, comme si les feuilles
étaient emplilées)
Comme je ne me rappelle de rien de précis, voici un petit
bout de code à intégrer dans un module standard qui te
permettra d'utiliser une nouvelle fonction
somme_ttes_feuilles (elle apparaitra dans tes fonctions
personnalisées quand tu cliques sur le petit fx).
Function somme_ttes_feuilles(ByVal cellule As Range) As
Double
Application.Volatile
Dim i As Integer
Dim som As Double
Dim adresse, feuille As String
For i = 1 To Sheets.Count
If Sheets(i).Name <> feuille Then
som = som + Sheets(i).Range(adresse).Value
End If
Next
somme_ttes_feuilles = som
End Function
Chris.
-----Message d'origine-----
Bonjour,
J'ai un classeur avec x feuilles identiques et une
feuille
qui doit faire la somme de toutes les autres : je
m'explique :
Feuille1, Feuille2, Feuille3 et Récap.
La valeur de la cellule A1 de la fauille récap est la
sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera
toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes
les feuiiles, stoker la sommes pour une cellule sauf si
c'est la feuille récap, ecrire le résultat dans récap et
passer à la cellule suivante, mais c'est un peu lourd !!)
de mémoire, il y a un truc qui doit exister dans Excel (une histoire de verticalité, comme si les feuilles étaient emplilées) Comme je ne me rappelle de rien de précis, voici un petit bout de code à intégrer dans un module standard qui te permettra d'utiliser une nouvelle fonction somme_ttes_feuilles (elle apparaitra dans tes fonctions personnalisées quand tu cliques sur le petit fx).
Function somme_ttes_feuilles(ByVal cellule As Range) As Double
Application.Volatile
Dim i As Integer Dim som As Double Dim adresse, feuille As String
For i = 1 To Sheets.Count If Sheets(i).Name <> feuille Then som = som + Sheets(i).Range(adresse).Value End If Next
somme_ttes_feuilles = som
End Function
Chris.
-----Message d'origine----- Bonjour,
J'ai un classeur avec x feuilles identiques et une feuille
qui doit faire la somme de toutes les autres : je m'explique :
Feuille1, Feuille2, Feuille3 et Récap. La valeur de la cellule A1 de la fauille récap est la sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes les feuiiles, stoker la sommes pour une cellule sauf si c'est la feuille récap, ecrire le résultat dans récap et passer à la cellule suivante, mais c'est un peu lourd !!)
Merci de vos réponses .
isabelle
bonjour JML,
avec la formule : =SOMME(Feuil1:Feuil4!A1)
lorsque qu'une feuille est ajouter fait sur la feuille recap, Edition, Remplacer, Feuil4 par Feuil5
isabelle
Bonjour,
J'ai un classeur avec x feuilles identiques et une feuille qui doit faire la somme de toutes les autres : je m'explique :
Feuille1, Feuille2, Feuille3 et Récap. La valeur de la cellule A1 de la fauille récap est la sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes les feuiiles, stoker la sommes pour une cellule sauf si c'est la feuille récap, ecrire le résultat dans récap et passer à la cellule suivante, mais c'est un peu lourd !!)
Merci de vos réponses
bonjour JML,
avec la formule :
=SOMME(Feuil1:Feuil4!A1)
lorsque qu'une feuille est ajouter fait sur la feuille recap, Edition,
Remplacer, Feuil4 par Feuil5
isabelle
Bonjour,
J'ai un classeur avec x feuilles identiques et une feuille
qui doit faire la somme de toutes les autres : je
m'explique :
Feuille1, Feuille2, Feuille3 et Récap.
La valeur de la cellule A1 de la fauille récap est la
sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera
toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes
les feuiiles, stoker la sommes pour une cellule sauf si
c'est la feuille récap, ecrire le résultat dans récap et
passer à la cellule suivante, mais c'est un peu lourd !!)
lorsque qu'une feuille est ajouter fait sur la feuille recap, Edition, Remplacer, Feuil4 par Feuil5
isabelle
Bonjour,
J'ai un classeur avec x feuilles identiques et une feuille qui doit faire la somme de toutes les autres : je m'explique :
Feuille1, Feuille2, Feuille3 et Récap. La valeur de la cellule A1 de la fauille récap est la sommes des A1 de toutes les autres feuilles.
Le problème et que si la structure des feuilles sera toujours identiques, le nombre peut varier.
Comment m'y prendre ? (j'ai bien pensé parcourir toutes les feuiiles, stoker la sommes pour une cellule sauf si c'est la feuille récap, ecrire le résultat dans récap et passer à la cellule suivante, mais c'est un peu lourd !!)
Merci de vos réponses
JML
OK,
Merci pour vos infos,
J'ai utilisé la fonction de Chris MICHEL légèrement modifiée
A+
OK,
Merci pour vos infos,
J'ai utilisé la fonction de Chris MICHEL légèrement
modifiée
