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é.
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
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. --
Afin de contribuer au respect de l'environnement, n'imprimez ce mail qu'en cas de nécessité.
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" <Leo.Dagan@kaamelott.fr> a écrit dans le message de
news: 45d82342$0$5070$ba4acef3@news.orange.fr...
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é.
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. --
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. --
Afin de contribuer au respect de l'environnement, n'imprimez ce mail qu'en
cas de nécessité.
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
Afin de contribuer au respect de l'environnement, n'imprimez ce mail qu'en
cas de nécessité.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eJQF7Y0UHHA.4756@TK2MSFTNGP06.phx.gbl...
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" <Leo.Dagan@kaamelott.fr> a écrit dans le message de
news: 45d82342$0$5070$ba4acef3@news.orange.fr...
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
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. --