Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA-Excel 2000 : Copier les données de chacun des onglets dans le premier onglet

VBA-Excel 2000 : Copier les données de chacun des onglets dans le premier onglet

4 réponses
Avatar
Céline Brien
Bonjour à tous,
Vous trouverez ci-dessous les codes utilisés pour copier les données de
chacun des onglets dans le premier onglet.
Si les données occupent seulement deux lignes, la ligne de titre et la
ligne de données, la macro génère l'erreur 400 ! Celle avec le gros X
blanc dans un rond rouge !
Le problème se situe ici :
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Du fait qu'il y a seulement une ligne de données, la ligne de code :
Range(Selection, Selection.End(xlDown)).Select
sélectionne jusqu'à 65536.
Avez-vous une solution à me proposer ?
Merci de votre aide,
Céline

' Copier les données de chacun des onglets dans l'onglet de tous les
projets
For cpt = 2 To Sheets.Count
Sheets(cpt).Select
Range("A1").Select
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(1).Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Next
Signaler un problème avec ce contenu

4 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
isabelle
bonjour Céline,

est ce que ça irait,

Sub Macro1()
For cpt = 2 To Sheets.Count
ici = Application.CountA(Sheets("Feuil1").Range("A:A")) + 1
Sheets(cpt).Range("A2:A" &
Sheets(cpt).Range("A65536").End(xlUp).Row).Copy _
Destination:=Sheets(1).Range("A" & ici)
Next
End Sub

as tu vue les photos ?

isabelle


Bonjour à tous,
Vous trouverez ci-dessous les codes utilisés pour copier les données de
chacun des onglets dans le premier onglet.
Si les données occupent seulement deux lignes, la ligne de titre et la
ligne de données, la macro génère l'erreur 400 ! Celle avec le gros X
blanc dans un rond rouge !
Le problème se situe ici :
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Du fait qu'il y a seulement une ligne de données, la ligne de code :
Range(Selection, Selection.End(xlDown)).Select
sélectionne jusqu'à 65536.
Avez-vous une solution à me proposer ?
Merci de votre aide,
Céline

' Copier les données de chacun des onglets dans l'onglet de tous les
projets
For cpt = 2 To Sheets.Count
Sheets(cpt).Select
Range("A1").Select
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(1).Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Next


Avatar
Céline Brien
Bonjour à tous,
Bonjour Isabelle,
Merci pour ta réponse.
Je vais probablement me servir de cette ligne de codes en la modifiant :
ici = Application.CountA(Sheets("Feuil1").Range("A:A")) + 1
Je te reviens après mes tests.
Non je n'ai pas vu les photos. Où sont-elles ?
Merci encore et bonne journée,
Céline

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

est ce que ça irait,

Sub Macro1()
For cpt = 2 To Sheets.Count
ici = Application.CountA(Sheets("Feuil1").Range("A:A")) + 1
Sheets(cpt).Range("A2:A" &
Sheets(cpt).Range("A65536").End(xlUp).Row).Copy _
Destination:=Sheets(1).Range("A" & ici)
Next
End Sub

as tu vue les photos ?

isabelle


Bonjour à tous,
Vous trouverez ci-dessous les codes utilisés pour copier les données
de


chacun des onglets dans le premier onglet.
Si les données occupent seulement deux lignes, la ligne de titre et
la


ligne de données, la macro génère l'erreur 400 ! Celle avec le gros
X


blanc dans un rond rouge !
Le problème se situe ici :
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Du fait qu'il y a seulement une ligne de données, la ligne de code :
Range(Selection, Selection.End(xlDown)).Select
sélectionne jusqu'à 65536.
Avez-vous une solution à me proposer ?
Merci de votre aide,
Céline

' Copier les données de chacun des onglets dans l'onglet de tous
les


projets
For cpt = 2 To Sheets.Count
Sheets(cpt).Select
Range("A1").Select
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(1).Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Next




Avatar
isabelle
y en a pas beaucoup, mais elles sont tous là
http://www.wistiti.fr/AlbumsPerso/Visualisation.asp?DI=MP3sOBTKF011020&nombre=3&first=true
Identifiant : MPFEmontréal
Mot de passe personnel : zaza

isabelle


Bonjour à tous,
Bonjour Isabelle,
Merci pour ta réponse.
Je vais probablement me servir de cette ligne de codes en la modifiant :
ici = Application.CountA(Sheets("Feuil1").Range("A:A")) + 1
Je te reviens après mes tests.
Non je n'ai pas vu les photos. Où sont-elles ?
Merci encore et bonne journée,
Céline

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

est ce que ça irait,

Sub Macro1()
For cpt = 2 To Sheets.Count
ici = Application.CountA(Sheets("Feuil1").Range("A:A")) + 1
Sheets(cpt).Range("A2:A" &
Sheets(cpt).Range("A65536").End(xlUp).Row).Copy _
Destination:=Sheets(1).Range("A" & ici)
Next
End Sub

as tu vue les photos ?

isabelle


Bonjour à tous,
Vous trouverez ci-dessous les codes utilisés pour copier les données
de


chacun des onglets dans le premier onglet.
Si les données occupent seulement deux lignes, la ligne de titre et
la


ligne de données, la macro génère l'erreur 400 ! Celle avec le gros
X


blanc dans un rond rouge !
Le problème se situe ici :
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Du fait qu'il y a seulement une ligne de données, la ligne de code :
Range(Selection, Selection.End(xlDown)).Select
sélectionne jusqu'à 65536.
Avez-vous une solution à me proposer ?
Merci de votre aide,
Céline

' Copier les données de chacun des onglets dans l'onglet de tous
les


projets
For cpt = 2 To Sheets.Count
Sheets(cpt).Select
Range("A1").Select
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(1).Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Next






Avatar
Céline Brien
Salut Isabelle,
De belles photos et de bons souvenirs.
J'organise la prochaine rencontre, en septembre ou octobre 2004, dans la
région des Laurentides.
Voici comment j'ai utilisé la fonction CountA dans ma macro :
' Copier les données de chacun des onglets dans l'onglet de tous les
projets
For cpt = 2 To Sheets.Count
Sheets(cpt).Select
hauteurchamp = Application.CountA(Sheets(cpt).Range("A:A"))
Range("A2:IV" & hauteurchamp).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(1).Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Next
Merci encore pour ton aide,
Céline

"isabelle" a écrit dans le message de
news:
y en a pas beaucoup, mais elles sont tous là

http://www.wistiti.fr/AlbumsPerso/Visualisation.asp?DI=MP3sOBTKF011020&nombre=3&first=true

Identifiant : MPFEmontréal
Mot de passe personnel : zaza

isabelle


Bonjour à tous,
Bonjour Isabelle,
Merci pour ta réponse.
Je vais probablement me servir de cette ligne de codes en la
modifiant :


ici = Application.CountA(Sheets("Feuil1").Range("A:A")) + 1
Je te reviens après mes tests.
Non je n'ai pas vu les photos. Où sont-elles ?
Merci encore et bonne journée,
Céline

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

est ce que ça irait,

Sub Macro1()
For cpt = 2 To Sheets.Count
ici = Application.CountA(Sheets("Feuil1").Range("A:A")) + 1
Sheets(cpt).Range("A2:A" &
Sheets(cpt).Range("A65536").End(xlUp).Row).Copy _
Destination:=Sheets(1).Range("A" & ici)
Next
End Sub

as tu vue les photos ?

isabelle


Bonjour à tous,
Vous trouverez ci-dessous les codes utilisés pour copier les
données




de
chacun des onglets dans le premier onglet.
Si les données occupent seulement deux lignes, la ligne de titre
et




la
ligne de données, la macro génère l'erreur 400 ! Celle avec le
gros




X
blanc dans un rond rouge !
Le problème se situe ici :
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Du fait qu'il y a seulement une ligne de données, la ligne de
code :




Range(Selection, Selection.End(xlDown)).Select
sélectionne jusqu'à 65536.
Avez-vous une solution à me proposer ?
Merci de votre aide,
Céline

' Copier les données de chacun des onglets dans l'onglet de
tous




les
projets
For cpt = 2 To Sheets.Count
Sheets(cpt).Select
Range("A1").Select
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(1).Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Next