"toto" se refere à Feuil2A1
"zaza" se refere à Feuil3A1
dans Feuil1A1 j'ai la formule = toto + zaza
Si j'insère une feuille Feuil4 avec A1 nommée " lolo"
j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....?
Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire
pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200
feuilles) d'un classeur?
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
isabelle
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet Set f1 = Sheets("Feuil1") For Each f In Worksheets If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _ f1.Range("A1") = f1.Range("A1") + f.Range("A1") Next End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1 "zaza" se refere à Feuil3A1 dans Feuil1A1 j'ai la formule = toto + zaza Si j'insère une feuille Feuil4 avec A1 nommée " lolo" j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....? Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200 feuilles) d'un classeur?
Merci de vos réponses. Xem
bonjour xem,
Sub Macro1()
Dim f As Worksheet, f1 As Worksheet
Set f1 = Sheets("Feuil1")
For Each f In Worksheets
If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _
f1.Range("A1") = f1.Range("A1") + f.Range("A1")
Next
End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1
"zaza" se refere à Feuil3A1
dans Feuil1A1 j'ai la formule = toto + zaza
Si j'insère une feuille Feuil4 avec A1 nommée " lolo"
j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....?
Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire
pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200
feuilles) d'un classeur?
Sub Macro1() Dim f As Worksheet, f1 As Worksheet Set f1 = Sheets("Feuil1") For Each f In Worksheets If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _ f1.Range("A1") = f1.Range("A1") + f.Range("A1") Next End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1 "zaza" se refere à Feuil3A1 dans Feuil1A1 j'ai la formule = toto + zaza Si j'insère une feuille Feuil4 avec A1 nommée " lolo" j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....? Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200 feuilles) d'un classeur?
Merci de vos réponses. Xem
JpPradier
Bonsoir xem
Une formule qui peut le faire :
=Somme(Feuil2:Feuil3!A1) Elle inclus toutes les feuilles que tu inseres entre la première et la dernière.
j-p
Bonsoir xem
Une formule qui peut le faire :
=Somme(Feuil2:Feuil3!A1)
Elle inclus toutes les feuilles que tu inseres entre la première et la dernière.
=Somme(Feuil2:Feuil3!A1) Elle inclus toutes les feuilles que tu inseres entre la première et la dernière.
j-p
xem
Re Isabelle merci, c'est exactement celà que je n'ai pas su faire. Juste une toute petite chose, il faut effacer ou vider f1.Range("A1") avant la boucle car f1.Range("A1") ne doit pas être additioner et ne sert qu'à afficher le résultat des A1 de toutes les autres feuilles présentes et futures du classeur . J'ai placé f1.Range("A1") = " " avant For Each.... Cà fonctionne, mais est-ce correct ?
Bisous Xem
"isabelle" a écrit dans le message de news:
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet Set f1 = Sheets("Feuil1") For Each f In Worksheets If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _ f1.Range("A1") = f1.Range("A1") + f.Range("A1") Next End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1 "zaza" se refere à Feuil3A1 dans Feuil1A1 j'ai la formule = toto + zaza Si j'insère une feuille Feuil4 avec A1 nommée " lolo" j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....? Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200 feuilles) d'un classeur?
Merci de vos réponses. Xem
Re
Isabelle merci, c'est exactement celà
que je n'ai pas su faire.
Juste une toute petite chose, il faut effacer ou vider
f1.Range("A1") avant la boucle car f1.Range("A1")
ne doit pas être additioner et ne sert qu'à afficher
le résultat des A1 de toutes les autres feuilles présentes
et futures du classeur .
J'ai placé f1.Range("A1") = " " avant For Each....
Cà fonctionne, mais est-ce correct ?
Bisous
Xem
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41780883.D2759FCA@videotron.ca...
bonjour xem,
Sub Macro1()
Dim f As Worksheet, f1 As Worksheet
Set f1 = Sheets("Feuil1")
For Each f In Worksheets
If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _
f1.Range("A1") = f1.Range("A1") + f.Range("A1")
Next
End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1
"zaza" se refere à Feuil3A1
dans Feuil1A1 j'ai la formule = toto + zaza
Si j'insère une feuille Feuil4 avec A1 nommée " lolo"
j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....?
Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire
pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200
feuilles) d'un classeur?
Re Isabelle merci, c'est exactement celà que je n'ai pas su faire. Juste une toute petite chose, il faut effacer ou vider f1.Range("A1") avant la boucle car f1.Range("A1") ne doit pas être additioner et ne sert qu'à afficher le résultat des A1 de toutes les autres feuilles présentes et futures du classeur . J'ai placé f1.Range("A1") = " " avant For Each.... Cà fonctionne, mais est-ce correct ?
Bisous Xem
"isabelle" a écrit dans le message de news:
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet Set f1 = Sheets("Feuil1") For Each f In Worksheets If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _ f1.Range("A1") = f1.Range("A1") + f.Range("A1") Next End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1 "zaza" se refere à Feuil3A1 dans Feuil1A1 j'ai la formule = toto + zaza Si j'insère une feuille Feuil4 avec A1 nommée " lolo" j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....? Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200 feuilles) d'un classeur?
Merci de vos réponses. Xem
xem
Re Merci, c'est une autre idée. Je vais opter pour la soluce VBA d'Isabelle Ne m'en tiens pas griefffffffff... ;-))
xem
"JpPradier" a écrit dans le message de news:
Bonsoir xem
Une formule qui peut le faire :
=Somme(Feuil2:Feuil3!A1) Elle inclus toutes les feuilles que tu inseres entre la première et la dernière.
j-p
Re
Merci, c'est une autre idée.
Je vais opter pour la soluce VBA d'Isabelle
Ne m'en tiens pas griefffffffff... ;-))
xem
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le message
de news:OFKoHH6tEHA.3448@TK2MSFTNGP09.phx.gbl...
Bonsoir xem
Une formule qui peut le faire :
=Somme(Feuil2:Feuil3!A1)
Elle inclus toutes les feuilles que tu inseres entre la première et la
dernière.
Re Merci, c'est une autre idée. Je vais opter pour la soluce VBA d'Isabelle Ne m'en tiens pas griefffffffff... ;-))
Point du tout, l'avantage d'avoir différentes solutions, c'est de pouvoir choisir :-)
j-p
sabatier
ouais, jean-pascal, sauf que choisir, c'est se priver... regarde, moi, samedi, j'ai choisi le dos de rascasse : eh ben, je me prive de chope d'agneau jps
"JpPradier" a écrit dans le message de news:
"xem" a écrit dans le message de news:
Point du tout, l'avantage d'avoir différentes solutions, c'est de pouvoir choisir :-)
j-p
ouais, jean-pascal, sauf que choisir, c'est se priver...
regarde, moi, samedi, j'ai choisi le dos de rascasse : eh ben, je me prive
de chope d'agneau
jps
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le message
de news:e0mVaX7tEHA.3320@TK2MSFTNGP15.phx.gbl...
"xem" <PasdespaMxem@free.fr> a écrit dans le message de
news:eXAe206tEHA.3320@TK2MSFTNGP15.phx.gbl...
Point du tout, l'avantage d'avoir différentes solutions, c'est de pouvoir
choisir :-)
ouais, jean-pascal, sauf que choisir, c'est se priver... regarde, moi, samedi, j'ai choisi le dos de rascasse : eh ben, je me prive de chope d'agneau jps
"JpPradier" a écrit dans le message de news:
"xem" a écrit dans le message de news:
Point du tout, l'avantage d'avoir différentes solutions, c'est de pouvoir choisir :-)
j-p
isabelle
oui, tu pourrais aussi mettre f1.Range("A1").ClearContents 'effacer le contenu
isabelle
Re Isabelle merci, c'est exactement celà que je n'ai pas su faire. Juste une toute petite chose, il faut effacer ou vider f1.Range("A1") avant la boucle car f1.Range("A1") ne doit pas être additioner et ne sert qu'à afficher le résultat des A1 de toutes les autres feuilles présentes et futures du classeur . J'ai placé f1.Range("A1") = " " avant For Each.... Cà fonctionne, mais est-ce correct ?
Bisous Xem
"isabelle" a écrit dans le message de news:
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet Set f1 = Sheets("Feuil1") For Each f In Worksheets If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _ f1.Range("A1") = f1.Range("A1") + f.Range("A1") Next End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1 "zaza" se refere à Feuil3A1 dans Feuil1A1 j'ai la formule = toto + zaza Si j'insère une feuille Feuil4 avec A1 nommée " lolo" j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....? Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200 feuilles) d'un classeur?
Merci de vos réponses. Xem
oui, tu pourrais aussi mettre
f1.Range("A1").ClearContents 'effacer le contenu
isabelle
Re
Isabelle merci, c'est exactement celà
que je n'ai pas su faire.
Juste une toute petite chose, il faut effacer ou vider
f1.Range("A1") avant la boucle car f1.Range("A1")
ne doit pas être additioner et ne sert qu'à afficher
le résultat des A1 de toutes les autres feuilles présentes
et futures du classeur .
J'ai placé f1.Range("A1") = " " avant For Each....
Cà fonctionne, mais est-ce correct ?
Bisous
Xem
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41780883.D2759FCA@videotron.ca...
bonjour xem,
Sub Macro1()
Dim f As Worksheet, f1 As Worksheet
Set f1 = Sheets("Feuil1")
For Each f In Worksheets
If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _
f1.Range("A1") = f1.Range("A1") + f.Range("A1")
Next
End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1
"zaza" se refere à Feuil3A1
dans Feuil1A1 j'ai la formule = toto + zaza
Si j'insère une feuille Feuil4 avec A1 nommée " lolo"
j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....?
Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire
pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200
feuilles) d'un classeur?
oui, tu pourrais aussi mettre f1.Range("A1").ClearContents 'effacer le contenu
isabelle
Re Isabelle merci, c'est exactement celà que je n'ai pas su faire. Juste une toute petite chose, il faut effacer ou vider f1.Range("A1") avant la boucle car f1.Range("A1") ne doit pas être additioner et ne sert qu'à afficher le résultat des A1 de toutes les autres feuilles présentes et futures du classeur . J'ai placé f1.Range("A1") = " " avant For Each.... Cà fonctionne, mais est-ce correct ?
Bisous Xem
"isabelle" a écrit dans le message de news:
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet Set f1 = Sheets("Feuil1") For Each f In Worksheets If f.Name <> f1.Name And IsNumeric(f.Range("A1")) Then _ f1.Range("A1") = f1.Range("A1") + f.Range("A1") Next End Sub
isabelle
Bonjour/soir tout le monde
Je vais essayer d'être clair:
"toto" se refere à Feuil2A1 "zaza" se refere à Feuil3A1 dans Feuil1A1 j'ai la formule = toto + zaza Si j'insère une feuille Feuil4 avec A1 nommée " lolo" j'aimerais que la formule devienne = toto + zaza + lolo.
Peut-être créer une variable de la cellule nommée.....? Mais je ne sais pas comment faire.
Est-ce possible en VBA, ou bien existe-t-il une aure façon de faire pour additioner les cellules A1 de toutes les feuilles ( jusqu'à 200 feuilles) d'un classeur?
