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", 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
effectivement, cela fonctionne, bizzare!
merci
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
Rien de bizarre à cette erreur, si j'écris
[a65536].End(xlUp) cela se produit selon la feuille active
Feuil2.[a65536].End(xlUp) cela se produit dans Feuil2
Cordialement.
lSteph
(Nota: les select sont presque toujours inutiles)
cousinhub a exprimé avec précision :
effectivement, cela fonctionne, bizzare! merci
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
-- - -
lSteph
Rien de bizarre à cette erreur,
si j'écris
[a65536].End(xlUp)
cela se produit selon la feuille active
Feuil2.[a65536].End(xlUp)
cela se produit dans Feuil2
Cordialement.
lSteph
(Nota: les select sont presque toujours inutiles)
cousinhub a exprimé avec précision :
effectivement, cela fonctionne, bizzare!
merci
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]
[a65536].End(xlUp) cela se produit selon la feuille active
Feuil2.[a65536].End(xlUp) cela se produit dans Feuil2
Cordialement.
lSteph
(Nota: les select sont presque toujours inutiles)
cousinhub a exprimé avec précision :
effectivement, cela fonctionne, bizzare! merci
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
-- - -
lSteph
lSteph
..ceci explique d'ailleurs pourquoi cela fonctionnait bien chez moi, pas du tout comme il faut ou que la première ligne chez vous deux.
dans ma feuil1 j'avais mis 8 lignes , dans la seconde 6 dans la troisième rien en me positionnant sur feuil1 le end(xlup) s'arrête donc à 8 la macro pique les 8 premières lignes de feuil1 et les 8 premières lignes de feuil2 Tout est donc bien copié en Feuil3
en se positionnant en Feuil2 ... 6 lignes de chaque
...en Feuil3 (vide) 1 seule ligne de chaque.
@+
lSteph
-- - -
lSteph
..ceci explique d'ailleurs
pourquoi cela fonctionnait bien chez moi, pas du tout comme il faut ou
que la première ligne chez vous deux.
dans ma feuil1 j'avais mis 8 lignes , dans la seconde 6 dans la
troisième rien
en me positionnant sur feuil1 le end(xlup) s'arrête donc à 8
la macro pique les 8 premières lignes de feuil1 et les 8 premières
lignes de feuil2
Tout est donc bien copié en Feuil3
en se positionnant en Feuil2 ... 6 lignes de chaque
..ceci explique d'ailleurs pourquoi cela fonctionnait bien chez moi, pas du tout comme il faut ou que la première ligne chez vous deux.
dans ma feuil1 j'avais mis 8 lignes , dans la seconde 6 dans la troisième rien en me positionnant sur feuil1 le end(xlup) s'arrête donc à 8 la macro pique les 8 premières lignes de feuil1 et les 8 premières lignes de feuil2 Tout est donc bien copié en Feuil3
en se positionnant en Feuil2 ... 6 lignes de chaque
