Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Collage dans toutes les feuilles d'un classeur

Collage dans toutes les feuilles d'un classeur

8 réponses
Avatar
pat
Bonjour à tous(test),
Je voudrais coller des cellules dans toutes les feuilles d'un classeur, mais
je ne sais pas combien de feuille(s) possede le classeur.
C'est surement très simple, mais en cette périodes estivales j'ai déja les
neuronnes sur le transat...
D'avance merci
Patrick
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Daniel.j
Bonsoir,
Pour le savoir:
Worksheets.Count
Daniel

"pat" a écrit dans le message de news: 4107e047$0$29416$
| Bonjour à tous(test),
| Je voudrais coller des cellules dans toutes les feuilles d'un classeur, mais
| je ne sais pas combien de feuille(s) possede le classeur.
| C'est surement très simple, mais en cette périodes estivales j'ai déja les
| neuronnes sur le transat...
| D'avance merci
| Patrick
|
|
Avatar
pat
Merci de cette réponse.
mais je ne sais comment faire pour coller dans des pages dont je ne connait
le nom.
Merci de m'aider a avancer dans mon projet.
Cordialement
Patrick
"Daniel.j" a écrit dans le message de
news:
Bonsoir,
Pour le savoir:
Worksheets.Count
Daniel

"pat" a écrit dans le message de news:
4107e047$0$29416$

| Bonjour à tous(test),
| Je voudrais coller des cellules dans toutes les feuilles d'un classeur,
mais

| je ne sais pas combien de feuille(s) possede le classeur.
| C'est surement très simple, mais en cette périodes estivales j'ai déja
les

| neuronnes sur le transat...
| D'avance merci
| Patrick
|
|




Avatar
Daniel.j
Pour faire "quelque chose" dans toutes les feuilles
du classeur, il faut utiliser un truc comme cela:
(Pas besoin de connaître le nom des feuilles)

For Each sht In ActiveWorkbook.Sheets
-------ma procédure ici---------------
Next sht

Divers exemples ici:
http://dj.joss.free.fr/feuil.htm

Daniel

"pat" a écrit dans le message de news: 41091772$0$3454$
| Merci de cette réponse.
| mais je ne sais comment faire pour coller dans des pages dont je ne connait
| le nom.
| Merci de m'aider a avancer dans mon projet.
| Cordialement
| Patrick
| "Daniel.j" a écrit dans le message de
| news:
| > Bonsoir,
| > Pour le savoir:
| > Worksheets.Count
| > Daniel
| >
| > "pat" a écrit dans le message de news:
| 4107e047$0$29416$
| > | Bonjour à tous(test),
| > | Je voudrais coller des cellules dans toutes les feuilles d'un classeur,
| mais
| > | je ne sais pas combien de feuille(s) possede le classeur.
| > | C'est surement très simple, mais en cette périodes estivales j'ai déja
| les
| > | neuronnes sur le transat...
| > | D'avance merci
| > | Patrick
| > |
| > |
| >
| >
|
|
Avatar
isabelle
bonjour pat,

For i = 1 To Worksheets.Count
MsgBox Worksheets(i).Name
Next

isabelle


Merci de cette réponse.
mais je ne sais comment faire pour coller dans des pages dont je ne connait
le nom.
Merci de m'aider a avancer dans mon projet.
Cordialement
Patrick
"Daniel.j" a écrit dans le message de
news:
Bonsoir,
Pour le savoir:
Worksheets.Count
Daniel

"pat" a écrit dans le message de news:
4107e047$0$29416$

| Bonjour à tous(test),
| Je voudrais coller des cellules dans toutes les feuilles d'un classeur,
mais

| je ne sais pas combien de feuille(s) possede le classeur.
| C'est surement très simple, mais en cette périodes estivales j'ai déja
les

| neuronnes sur le transat...
| D'avance merci
| Patrick
|
|






Avatar
pat
Bonsoir,
Avant tout Merci a vouv de vous etre penchez sur mon probleme.
mais il y a encore un petit souci. avec le code suivant, j'étais persuadé
que ma selection allait se coller sur chaque page. Eh bien non elle se colle
sur la premiere page autaant de fois qu'il y a de feuilles.
ce n'est pas tout a fait le but recherché.quelqu'un aurait il la gentillesse
de m'aider a finir.
d'avance merci
Patrick

Sub ma_macro()
Columns("K:R").Select
Selection.Copy
fileToOpen = Application _
.GetOpenFilename("Mon fichier(*.xls), *.xls")

Workbooks.Open Filename:=fileToOpen

For Each sht In ActiveWorkbook.Sheets
Range("K1").Select
ActiveSheet.Paste
Next sht
End Sub


"isabelle" a écrit dans le message de
news:
bonjour pat,

For i = 1 To Worksheets.Count
MsgBox Worksheets(i).Name
Next

isabelle


Merci de cette réponse.
mais je ne sais comment faire pour coller dans des pages dont je ne
connait


le nom.
Merci de m'aider a avancer dans mon projet.
Cordialement
Patrick
"Daniel.j" a écrit dans le message de
news:
Bonsoir,
Pour le savoir:
Worksheets.Count
Daniel

"pat" a écrit dans le message de news:
4107e047$0$29416$

| Bonjour à tous(test),
| Je voudrais coller des cellules dans toutes les feuilles d'un
classeur,



mais
| je ne sais pas combien de feuille(s) possede le classeur.
| C'est surement très simple, mais en cette périodes estivales j'ai
déja



les
| neuronnes sur le transat...
| D'avance merci
| Patrick
|
|








Avatar
isabelle
bonjour pat,

il faut activé la feuille avant de coller.

For Each sht In ActiveWorkbook.Sheets
Sheets(sht.Name).Activate
...

isabelle


Bonsoir,
Avant tout Merci a vouv de vous etre penchez sur mon probleme.
mais il y a encore un petit souci. avec le code suivant, j'étais persuadé
que ma selection allait se coller sur chaque page. Eh bien non elle se colle
sur la premiere page autaant de fois qu'il y a de feuilles.
ce n'est pas tout a fait le but recherché.quelqu'un aurait il la gentillesse
de m'aider a finir.
d'avance merci
Patrick

Sub ma_macro()
Columns("K:R").Select
Selection.Copy
fileToOpen = Application _
.GetOpenFilename("Mon fichier(*.xls), *.xls")

Workbooks.Open Filename:=fileToOpen

For Each sht In ActiveWorkbook.Sheets
Range("K1").Select
ActiveSheet.Paste
Next sht
End Sub

"isabelle" a écrit dans le message de
news:
bonjour pat,

For i = 1 To Worksheets.Count
MsgBox Worksheets(i).Name
Next

isabelle


Merci de cette réponse.
mais je ne sais comment faire pour coller dans des pages dont je ne
connait


le nom.
Merci de m'aider a avancer dans mon projet.
Cordialement
Patrick
"Daniel.j" a écrit dans le message de
news:
Bonsoir,
Pour le savoir:
Worksheets.Count
Daniel

"pat" a écrit dans le message de news:
4107e047$0$29416$

| Bonjour à tous(test),
| Je voudrais coller des cellules dans toutes les feuilles d'un
classeur,



mais
| je ne sais pas combien de feuille(s) possede le classeur.
| C'est surement très simple, mais en cette périodes estivales j'ai
déja



les
| neuronnes sur le transat...
| D'avance merci
| Patrick
|
|










Avatar
pat
Merci,
ca fonctionne a merveille
cordialement
Patrick
"isabelle" a écrit dans le message de
news:
bonjour pat,

il faut activé la feuille avant de coller.

For Each sht In ActiveWorkbook.Sheets
Sheets(sht.Name).Activate
...

isabelle


Bonsoir,
Avant tout Merci a vouv de vous etre penchez sur mon probleme.
mais il y a encore un petit souci. avec le code suivant, j'étais
persuadé


que ma selection allait se coller sur chaque page. Eh bien non elle se
colle


sur la premiere page autaant de fois qu'il y a de feuilles.
ce n'est pas tout a fait le but recherché.quelqu'un aurait il la
gentillesse


de m'aider a finir.
d'avance merci
Patrick

Sub ma_macro()
Columns("K:R").Select
Selection.Copy
fileToOpen = Application _
.GetOpenFilename("Mon fichier(*.xls), *.xls")

Workbooks.Open Filename:=fileToOpen

For Each sht In ActiveWorkbook.Sheets
Range("K1").Select
ActiveSheet.Paste
Next sht
End Sub

"isabelle" a écrit dans le message de
news:
bonjour pat,

For i = 1 To Worksheets.Count
MsgBox Worksheets(i).Name
Next

isabelle


Merci de cette réponse.
mais je ne sais comment faire pour coller dans des pages dont je ne
connait


le nom.
Merci de m'aider a avancer dans mon projet.
Cordialement
Patrick
"Daniel.j" a écrit dans le message de
news:
Bonsoir,
Pour le savoir:
Worksheets.Count
Daniel

"pat" a écrit dans le message de news:
4107e047$0$29416$

| Bonjour à tous(test),
| Je voudrais coller des cellules dans toutes les feuilles d'un
classeur,



mais
| je ne sais pas combien de feuille(s) possede le classeur.
| C'est surement très simple, mais en cette périodes estivales
j'ai





déja
les
| neuronnes sur le transat...
| D'avance merci
| Patrick
|
|












Avatar
Daniel.j
merci Isabelle de corriger mon oubli !
Daniel

"isabelle" a écrit dans le message de news:

| bonjour pat,
|
| il faut activé la feuille avant de coller.
|
| For Each sht In ActiveWorkbook.Sheets
| Sheets(sht.Name).Activate
| ...
|
| isabelle
|
| >
| > Bonsoir,
| > Avant tout Merci a vouv de vous etre penchez sur mon probleme.
| > mais il y a encore un petit souci. avec le code suivant, j'étais persuadé
| > que ma selection allait se coller sur chaque page. Eh bien non elle se colle
| > sur la premiere page autaant de fois qu'il y a de feuilles.
| > ce n'est pas tout a fait le but recherché.quelqu'un aurait il la gentillesse
| > de m'aider a finir.
| > d'avance merci
| > Patrick
| >
| > Sub ma_macro()
| > Columns("K:R").Select
| > Selection.Copy
| > fileToOpen = Application _
| > .GetOpenFilename("Mon fichier(*.xls), *.xls")
| >
| > Workbooks.Open Filename:=fileToOpen
| >
| > For Each sht In ActiveWorkbook.Sheets
| > Range("K1").Select
| > ActiveSheet.Paste
| > Next sht
| > End Sub
| >
| > "isabelle" a écrit dans le message de
| > news:
| > > bonjour pat,
| > >
| > > For i = 1 To Worksheets.Count
| > > MsgBox Worksheets(i).Name
| > > Next
| > >
| > > isabelle
| > >
| > > >
| > > > Merci de cette réponse.
| > > > mais je ne sais comment faire pour coller dans des pages dont je ne
| > connait
| > > > le nom.
| > > > Merci de m'aider a avancer dans mon projet.
| > > > Cordialement
| > > > Patrick
| > > > "Daniel.j" a écrit dans le message de
| > > > news:
| > > > > Bonsoir,
| > > > > Pour le savoir:
| > > > > Worksheets.Count
| > > > > Daniel
| > > > >
| > > > > "pat" a écrit dans le message de news:
| > > > 4107e047$0$29416$
| > > > > | Bonjour à tous(test),
| > > > > | Je voudrais coller des cellules dans toutes les feuilles d'un
| > classeur,
| > > > mais
| > > > > | je ne sais pas combien de feuille(s) possede le classeur.
| > > > > | C'est surement très simple, mais en cette périodes estivales j'ai
| > déja
| > > > les
| > > > > | neuronnes sur le transat...
| > > > > | D'avance merci
| > > > > | Patrick
| > > > > |
| > > > > |
| > > > >
| > > > >