J'ai 2 tableaux avec 2 colonnes dans 2 feuilles diff=E9rentes d'un
fichier excel.
Les donn=E9es de ces tableaux sont saisies avec un copier/coller =E0
partir d'internet. Le nombre de lignes est variable sur les 2
feuilles (entre 200 et 400 lignes)
Je voudrais sur une 3=E8me feuille que toutes les donn=E9es soient
remises les unes =E0 la suite des autres. Toutes les donn=E9es de la
feuille 1 jusqu'=E0 la premi=E8re ligne blanche puis toutes les
donn=E9es de la feuille 2 jusqu'=E0 la premi=E8re ligne blanche
Cf exemple sur fichier joint : http://cjoint.com/?kqujYKahhJ
Sub cop1et2sur3() Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a1] Feuil2.Range("b1", [a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a65536].End(xlUp)(2) End Sub
'cordialement.
lSteph
Teddy a formulé ce lundi :
Bonsoir à tous,
J'ai 2 tableaux avec 2 colonnes dans 2 feuilles différentes d'un fichier excel. Les données de ces tableaux sont saisies avec un copier/coller à partir d'internet. Le nombre de lignes est variable sur les 2 feuilles (entre 200 et 400 lignes)
Je voudrais sur une 3ème feuille que toutes les données soient remises les unes à la suite des autres. Toutes les données de la feuille 1 jusqu'à la première ligne blanche puis toutes les données de la feuille 2 jusqu'à la première ligne blanche
Cf exemple sur fichier joint : http://cjoint.com/?kqujYKahhJ
Merci à vous d'avance.
-- - -
lSteph
Bonsoir,
Supposons colonnes a et b
Sub cop1et2sur3()
Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _
Destination:þuil3.[a1]
Feuil2.Range("b1", [a65536].End(xlUp).Address).Copy _
Destination:þuil3.[a65536].End(xlUp)(2)
End Sub
'cordialement.
lSteph
Teddy a formulé ce lundi :
Bonsoir à tous,
J'ai 2 tableaux avec 2 colonnes dans 2 feuilles différentes d'un
fichier excel.
Les données de ces tableaux sont saisies avec un copier/coller à
partir d'internet. Le nombre de lignes est variable sur les 2
feuilles (entre 200 et 400 lignes)
Je voudrais sur une 3ème feuille que toutes les données soient
remises les unes à la suite des autres. Toutes les données de la
feuille 1 jusqu'à la première ligne blanche puis toutes les
données de la feuille 2 jusqu'à la première ligne blanche
Cf exemple sur fichier joint : http://cjoint.com/?kqujYKahhJ
Sub cop1et2sur3() Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a1] Feuil2.Range("b1", [a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a65536].End(xlUp)(2) End Sub
'cordialement.
lSteph
Teddy a formulé ce lundi :
Bonsoir à tous,
J'ai 2 tableaux avec 2 colonnes dans 2 feuilles différentes d'un fichier excel. Les données de ces tableaux sont saisies avec un copier/coller à partir d'internet. Le nombre de lignes est variable sur les 2 feuilles (entre 200 et 400 lignes)
Je voudrais sur une 3ème feuille que toutes les données soient remises les unes à la suite des autres. Toutes les données de la feuille 1 jusqu'à la première ligne blanche puis toutes les données de la feuille 2 jusqu'à la première ligne blanche
Cf exemple sur fichier joint : http://cjoint.com/?kqujYKahhJ
Merci à vous d'avance.
-- - -
lSteph
Teddy
Merci Steph pour ces indications qui me semblent un peu de l'hébreu. J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans une macro et quand je l'exécute, j'ai un message d'errer : Erreur d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes suivantes en fluo avec une flèche devant la 2ème ligne : Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ -> Destination:þuil3.[a1]
Que dois-je faire
Merci Steph pour ces indications qui me semblent un peu de l'hébreu.
J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans
une macro et quand je l'exécute, j'ai un message d'errer : Erreur
d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes
suivantes en fluo avec une flèche devant la 2ème ligne :
Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _
-> Destination:=Feuil3.[a1]
Merci Steph pour ces indications qui me semblent un peu de l'hébreu. J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans une macro et quand je l'exécute, j'ai un message d'errer : Erreur d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes suivantes en fluo avec une flèche devant la 2ème ligne : Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ -> Destination:þuil3.[a1]
Que dois-je faire
lSteph
..
-> Destination:þuil3.[a1] il n'y a pas de ->
simplement Destination:þuil3.[a1]
http://cjoint.com/?kqvv7HFNO8
Cordialement.
lSteph
Teddy a exprimé avec précision :
Merci Steph pour ces indications qui me semblent un peu de l'hébreu. J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans une macro et quand je l'exécute, j'ai un message d'errer : Erreur d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes suivantes en fluo avec une flèche devant la 2ème ligne : Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ -> Destination:þuil3.[a1]
Que dois-je faire
-- - -
lSteph
..
-> Destination:þuil3.[a1]
il n'y a pas de ->
simplement Destination:þuil3.[a1]
http://cjoint.com/?kqvv7HFNO8
Cordialement.
lSteph
Teddy a exprimé avec précision :
Merci Steph pour ces indications qui me semblent un peu de l'hébreu.
J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans
une macro et quand je l'exécute, j'ai un message d'errer : Erreur
d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes
suivantes en fluo avec une flèche devant la 2ème ligne :
Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _
-> Destination:þuil3.[a1]
Merci Steph pour ces indications qui me semblent un peu de l'hébreu. J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans une macro et quand je l'exécute, j'ai un message d'errer : Erreur d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes suivantes en fluo avec une flèche devant la 2ème ligne : Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ -> Destination:þuil3.[a1]
Que dois-je faire
-- - -
lSteph
cousinhub
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
...
-> Destination:þuil3.[a1] il n'y a pas de ->
simplement Destination:þuil3.[a1]
http://cjoint.com/?kqvv7HFNO8
Cordialement.
lSteph
Teddy a exprimé avec précision :
Merci Steph pour ces indications qui me semblent un peu de l'hébreu. J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans une macro et quand je l'exécute, j'ai un message d'errer : Erreur d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes suivantes en fluo avec une flèche devant la 2ème ligne : Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ -> Destination:þuil3.[a1]
Que dois-je faire
-- - -
lSteph
Bonsoir,
je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph,
mais elle ne me copie que les 1ères lignes de chaque feuille.
avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère
erreur?
Désolé encore
...
-> Destination:þuil3.[a1]
il n'y a pas de ->
simplement Destination:þuil3.[a1]
http://cjoint.com/?kqvv7HFNO8
Cordialement.
lSteph
Teddy a exprimé avec précision :
Merci Steph pour ces indications qui me semblent un peu de l'hébreu.
J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans
une macro et quand je l'exécute, j'ai un message d'errer : Erreur
d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes
suivantes en fluo avec une flèche devant la 2ème ligne :
Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _
-> Destination:þuil3.[a1]
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
...
-> Destination:þuil3.[a1] il n'y a pas de ->
simplement Destination:þuil3.[a1]
http://cjoint.com/?kqvv7HFNO8
Cordialement.
lSteph
Teddy a exprimé avec précision :
Merci Steph pour ces indications qui me semblent un peu de l'hébreu. J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans une macro et quand je l'exécute, j'ai un message d'errer : Erreur d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes suivantes en fluo avec une flèche devant la 2ème ligne : Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ -> Destination:þuil3.[a1]
Que dois-je faire
-- - -
lSteph
Teddy
La macro fonctionne bien en effet cette fois mais tout comme pour cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSt eph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou l égère erreur? Désolé encore
La macro fonctionne bien en effet cette fois mais tout comme pour
cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir,
je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSt eph,
mais elle ne me copie que les 1ères lignes de chaque feuille.
avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou l égère
erreur?
Désolé encore
La macro fonctionne bien en effet cette fois mais tout comme pour cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSt eph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou l égère erreur? Désolé encore
lSteph
? comprends pas, chez moi cela copie bien tout. :-?
Teddy a pensé très fort :
La macro fonctionne bien en effet cette fois mais tout comme pour cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
-- - -
lSteph
? comprends pas,
chez moi cela copie bien tout.
:-?
Teddy a pensé très fort :
La macro fonctionne bien en effet cette fois mais tout comme pour
cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir,
je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph,
mais elle ne me copie que les 1ères lignes de chaque feuille.
avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère
erreur?
Désolé encore
? comprends pas, chez moi cela copie bien tout. :-?
Teddy a pensé très fort :
La macro fonctionne bien en effet cette fois mais tout comme pour cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
-- - -
lSteph
lSteph
Ceci devrait corriger mon erreur:
Sub cop1et2sur3() Feuil1.Range("b1", Feuil1.[a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a1] Feuil2.Range("b1", Feuil2.[a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a65536].End(xlUp)(2) End Sub
'lSteph
cousinhub a exprimé avec précision :
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
...
-> Destination:þuil3.[a1] il n'y a pas de ->
simplement Destination:þuil3.[a1]
http://cjoint.com/?kqvv7HFNO8
Cordialement.
lSteph
Teddy a exprimé avec précision :
Merci Steph pour ces indications qui me semblent un peu de l'hébreu. J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans une macro et quand je l'exécute, j'ai un message d'errer : Erreur d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes suivantes en fluo avec une flèche devant la 2ème ligne : Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ -> Destination:þuil3.[a1]
Que dois-je faire
-- - -
lSteph
-- - -
lSteph
Ceci devrait corriger mon erreur:
Sub cop1et2sur3()
Feuil1.Range("b1", Feuil1.[a65536].End(xlUp).Address).Copy _
Destination:þuil3.[a1]
Feuil2.Range("b1", Feuil2.[a65536].End(xlUp).Address).Copy _
Destination:þuil3.[a65536].End(xlUp)(2)
End Sub
'lSteph
cousinhub a exprimé avec précision :
Bonsoir,
je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph,
mais elle ne me copie que les 1ères lignes de chaque feuille.
avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère
erreur?
Désolé encore
...
-> Destination:þuil3.[a1]
il n'y a pas de ->
simplement Destination:þuil3.[a1]
http://cjoint.com/?kqvv7HFNO8
Cordialement.
lSteph
Teddy a exprimé avec précision :
Merci Steph pour ces indications qui me semblent un peu de l'hébreu.
J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans
une macro et quand je l'exécute, j'ai un message d'errer : Erreur
d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes
suivantes en fluo avec une flèche devant la 2ème ligne :
Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _
-> Destination:þuil3.[a1]
Sub cop1et2sur3() Feuil1.Range("b1", Feuil1.[a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a1] Feuil2.Range("b1", Feuil2.[a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a65536].End(xlUp)(2) End Sub
'lSteph
cousinhub a exprimé avec précision :
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
...
-> Destination:þuil3.[a1] il n'y a pas de ->
simplement Destination:þuil3.[a1]
http://cjoint.com/?kqvv7HFNO8
Cordialement.
lSteph
Teddy a exprimé avec précision :
Merci Steph pour ces indications qui me semblent un peu de l'hébreu. J'ai malgré tout fais un copier/coller de ce que tu m'expliques dans une macro et quand je l'exécute, j'ai un message d'errer : Erreur d'éxécution '424' - Objet requis.
Quand, par la suite, je cliques sur Débogage, Excel me mets les lignes suivantes en fluo avec une flèche devant la 2ème ligne : Feuil1.Range("b1", [a65536].End(xlUp).Address).Copy _ -> Destination:þuil3.[a1]
Que dois-je faire
-- - -
lSteph
-- - -
lSteph
lSteph
Pigé!
Sub cop1et2sur3() Feuil1.Range("b1", Feuil1.[a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a1] Feuil2.Range("b1", Feuil2.[a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a65536].End(xlUp)(2) End Sub
Cordialement.
lSteph (désolé)
Teddy a exprimé avec précision :
La macro fonctionne bien en effet cette fois mais tout comme pour cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
-- - -
lSteph
Pigé!
Sub cop1et2sur3()
Feuil1.Range("b1", Feuil1.[a65536].End(xlUp).Address).Copy _
Destination:þuil3.[a1]
Feuil2.Range("b1", Feuil2.[a65536].End(xlUp).Address).Copy _
Destination:þuil3.[a65536].End(xlUp)(2)
End Sub
Cordialement.
lSteph
(désolé)
Teddy a exprimé avec précision :
La macro fonctionne bien en effet cette fois mais tout comme pour
cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir,
je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph,
mais elle ne me copie que les 1ères lignes de chaque feuille.
avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère
erreur?
Désolé encore
Sub cop1et2sur3() Feuil1.Range("b1", Feuil1.[a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a1] Feuil2.Range("b1", Feuil2.[a65536].End(xlUp).Address).Copy _ Destination:þuil3.[a65536].End(xlUp)(2) End Sub
Cordialement.
lSteph (désolé)
Teddy a exprimé avec précision :
La macro fonctionne bien en effet cette fois mais tout comme pour cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
-- - -
lSteph
Teddy
Ok cette fois tout fonctionne correctememt je vais donc essayer de l'adapter à mon fichier. Merci beaucoup lSteph .
Ok cette fois tout fonctionne correctememt je vais donc essayer de
l'adapter à mon fichier.
Merci beaucoup lSteph .
Ok cette fois tout fonctionne correctememt je vais donc essayer de l'adapter à mon fichier. Merci beaucoup lSteph .
cousinhub
Re-, lorsque je remplace .copy _.... par select, la sélection se fait bien sur toutes les cellules non vides, et si je décompose les destinations, cela fonctionne également, j'ai toutes les cellules recopiées dans la feuil3. comprends pas
? comprends pas, chez moi cela copie bien tout. :-?
Teddy a pensé très fort :
La macro fonctionne bien en effet cette fois mais tout comme pour cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
-- - -
lSteph
Re-,
lorsque je remplace .copy _.... par select, la sélection se fait bien sur
toutes les cellules non vides, et si je décompose les destinations, cela
fonctionne également, j'ai toutes les cellules recopiées dans la feuil3.
comprends pas
? comprends pas,
chez moi cela copie bien tout.
:-?
Teddy a pensé très fort :
La macro fonctionne bien en effet cette fois mais tout comme pour
cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir,
je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph,
mais elle ne me copie que les 1ères lignes de chaque feuille.
avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère
erreur?
Désolé encore
Re-, lorsque je remplace .copy _.... par select, la sélection se fait bien sur toutes les cellules non vides, et si je décompose les destinations, cela fonctionne également, j'ai toutes les cellules recopiées dans la feuil3. comprends pas
? comprends pas, chez moi cela copie bien tout. :-?
Teddy a pensé très fort :
La macro fonctionne bien en effet cette fois mais tout comme pour cousinhub, elle ne me met que la première ligne de chaque feuille.
Bonsoir, je m'excuse d'intervenir dans votre fil, mais j'ai essayé ta macro, lSteph, mais elle ne me copie que les 1ères lignes de chaque feuille. avec ton fichier joint, c'est la même chose, alors bug sur mon pc, ou légère erreur? Désolé encore
