Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Pour chaque feuille d'un classeur copier/colle

2 réponses
Avatar
Seigneur Léodagan
Bonjour à toutes et à tous,
Je bute depuis deux heures sur un problème qui ne me semble pas si compliqué
que ça mais...
Voici mon but : pour chaque feuille d'un classeur (nombre de feuilles
variant d'un mois à l'autre) je souhaiterais copier le contenu de quelques
cellules et les coller dans une feuille de synthèse.
J'ai écrit ça mais ça ne fonctionne pas :

Dim N As Integer

Sub Compteur_feuilles()
N = Worksheets.Count
End Sub

Sub Cop_col()
For X = 1 To N
Range("E4:G4").Select
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
Sheets("Feuil1").Select
Range("L10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Feuil1").Select
Range("L11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Offset(1, -7).Range("A1").Select
Sheets("Feuil1").Select
Next

End Sub

Pouvez-vous m'indiquer où est mon erreur et me dire comment la corriger, le
but n'étant pas qu'on me mache le travail mais que je comprenne (beaucoup de
mal avec les boucles parfois), car je pense intimement que la clé du
problème tient dans une boucle.

Je vous en remercie à l'avance et bon week-end.
--

Franck

Partagez vos ressources système:
http://www.worldcommunitygrid.org/index.jsp

Afin de contribuer au respect de l'environnement, n'imprimez ce mail qu'en
cas de nécessité.

2 réponses

Avatar
Daniel
Bonjour.
Tu ne te sers pas de la variable X que tu as calculée. Au lieu de mettre
Sheets("Feuil1").Select, tu dois mettre :
Sheets(X).Select
X désignant successivant le numéro de tes feuilles.
Cordialement.
Daniel
"Seigneur Léodagan" a écrit dans le message de
news: 45d82342$0$5070$
Bonjour à toutes et à tous,
Je bute depuis deux heures sur un problème qui ne me semble pas si
compliqué
que ça mais...
Voici mon but : pour chaque feuille d'un classeur (nombre de feuilles
variant d'un mois à l'autre) je souhaiterais copier le contenu de quelques
cellules et les coller dans une feuille de synthèse.
J'ai écrit ça mais ça ne fonctionne pas :

Dim N As Integer

Sub Compteur_feuilles()
N = Worksheets.Count
End Sub

Sub Cop_col()
For X = 1 To N
Range("E4:G4").Select
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
Sheets("Feuil1").Select
Range("L10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Feuil1").Select
Range("L11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Offset(1, -7).Range("A1").Select
Sheets("Feuil1").Select
Next

End Sub

Pouvez-vous m'indiquer où est mon erreur et me dire comment la corriger,
le
but n'étant pas qu'on me mache le travail mais que je comprenne (beaucoup
de
mal avec les boucles parfois), car je pense intimement que la clé du
problème tient dans une boucle.

Je vous en remercie à l'avance et bon week-end.
--

Franck

Partagez vos ressources système:
http://www.worldcommunitygrid.org/index.jsp

Afin de contribuer au respect de l'environnement, n'imprimez ce mail qu'en
cas de nécessité.




Avatar
Seigneur Léodagan
Bonjour Daniel,
Merci pour ta réponse, je regarderais demain.
Bonne fin d'après midi.
@+

--

Franck

Partagez vos ressources système:
http://www.worldcommunitygrid.org/index.jsp" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.worldcommunitygrid.org/index.jsp

Afin de contribuer au respect de l'environnement, n'imprimez ce mail qu'en
cas de nécessité.
"Daniel" a écrit dans le message de news:

Bonjour.
Tu ne te sers pas de la variable X que tu as calculée. Au lieu de mettre
Sheets("Feuil1").Select, tu dois mettre :
Sheets(X).Select
X désignant successivant le numéro de tes feuilles.
Cordialement.
Daniel
"Seigneur Léodagan" a écrit dans le message de
news: 45d82342$0$5070$
Bonjour à toutes et à tous,
Je bute depuis deux heures sur un problème qui ne me semble pas si
compliqué
que ça mais...
Voici mon but : pour chaque feuille d'un classeur (nombre de feuilles
variant d'un mois à l'autre) je souhaiterais copier le contenu de
quelques


cellules et les coller dans une feuille de synthèse.
J'ai écrit ça mais ça ne fonctionne pas :

Dim N As Integer

Sub Compteur_feuilles()
N = Worksheets.Count
End Sub

Sub Cop_col()
For X = 1 To N
Range("E4:G4").Select
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
Sheets("Feuil1").Select
Range("L10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Feuil1").Select
Range("L11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthese").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Offset(1, -7).Range("A1").Select
Sheets("Feuil1").Select
Next

End Sub

Pouvez-vous m'indiquer où est mon erreur et me dire comment la corriger,
le
but n'étant pas qu'on me mache le travail mais que je comprenne
(beaucoup


de
mal avec les boucles parfois), car je pense intimement que la clé du
problème tient dans une boucle.

Je vous en remercie à l'avance et bon week-end.
--

Franck

Partagez vos ressources système:
http://www.worldcommunitygrid.org/index.jsp" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.worldcommunitygrid.org/index.jsp

Afin de contribuer au respect de l'environnement, n'imprimez ce mail
qu'en


cas de nécessité.