2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

tototiti2008

XLDnaute Barbatruc

• 13 Octobre 2009

• #2

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

Bonjour saverloo,

peut-être :

Code:

Sub Coller()
    Worksheets("Feuil3").Cells.ClearContents
    Worksheets("Feuil1").Range("A1").CurrentRegion.Copy Worksheets("Feuil3").Range("A1")
    Worksheets("Feuil2").Range("A1").CurrentRegion.Offset(1, 0).Copy Worksheets("Feuil3").Range("A" & Worksheets("Feuil3").Range("A65536").End(xlUp).Row + 1)
End Sub

 

Vote positif 0 Vote négatif

S

saverloo

XLDnaute Occasionnel

• 13 Octobre 2009

• #3

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

bonjour merci pour cette proposition qui fonctionne sauf que que constate un problème a savoir qu'il prend bien la page 1 par contre la page 2 il prend néanmoins il addapte la formule donc les données sont fausées ?

je m'explique losqu'il colle la feuille deux en dessous il devrait prendre par exemple en ligne 88 la données qui est en b2 et non en b90. en faite il bouge donc il ne reporte pas la donnée de b2 mes la donnee de b90 a la place et comme rien en b90 forcement il note rien ou une erreur ? que faire pour qu'il prenne bien la donnée de la feuille 2 en tenant compte que la valeur en b2 ,.....

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 13 Octobre 2009

• #4

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

Bonsoir Saverlo Tototiti le forum,
tu es sur d'avoir utilisé la macro de tototiti ?
moi j'ai essayé elle marche parfaitement bien et le résultat chez moi est bon!!!
vérifies
a+
papou

 

Vote positif 0 Vote négatif

S

saverloo

XLDnaute Occasionnel

• 13 Octobre 2009

• #5

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

oui dans un fichier je dirais sans liaison avec un autre fichier.

ici les celulles sont en realité liée a une autre feuille et la page 2 essai de prendre la ligne b90 alors qu'elle devrait prendre la B2. dans l'exemple je ne savais mettre le fichier complet qui fait 8Mo donc j'ai du voir pour mettre une chose relativement basic. Néanmoins la formule fonctionne mais avec donc le soucis du changement de liaison

 

Dernière édition: 13 Octobre 2009

Vote positif 0 Vote négatif

P

pat01200

XLDnaute Occasionnel

• 14 Octobre 2009

• #6

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

Personnellement, j'essaierai ceci :

Sheets("Feuil1").Select
Range("A:A").Select
Selection.Copy
Sheets("Feuil3").Select
Range("A1").Select
Selection.Paste
Sheets("Feuil2").Select
Range("A:A").Select
Selection.Copy

If Range("A1").Value = "" Then
Range("A1").Select
Else
If Range("A1").Value <> "" And Range("A2").Value = "" Then
Range("A1").Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If
End If
Selection.Paste
Range("A1").Select

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 14 Octobre 2009

• #7

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

Bonsoir à tous,
oui enfin cela dépend de ce que tu as dans ta feuille, si tu peux pas joindre ton fichier il te faut chercher seul, car manifestement tu as quelque chose en ligne 90 mais quoi???
a+
Papou

 

Vote positif 0 Vote négatif

P

pat01200

XLDnaute Occasionnel

• 14 Octobre 2009

• #8

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

Excuse-moi, je n'avais pas vu ton fichier attaché. Je viens de faire un test avec la macro ci-dessous. Elle semble exécuter ce que tu demandes. Ouvre un module et copie-la dans ton fichier. Dis-moi ensuite si cela te correspond vraiment ou pas et si tu as besoin d'une amélioration quelconque...

Sub FusionDonnées()

Sheets("Feuil1").Select
Range("A:M").Select
Selection.Copy
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("A2:M50000").Select
Selection.Copy
Sheets("Feuil3").Select
If Range("A1").Value = "" Then
Range("A1").Select
Else
If Range("A1").Value <> "" And Range("A2").Value = "" Then
Range("A1").Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If
End If
ActiveSheet.Paste
Range("A1").Select

End Sub

 

Vote positif 0 Vote négatif

S

saverloo

XLDnaute Occasionnel

• 14 Octobre 2009

• #9

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

pat01200 à dit:

Excuse-moi, je n'avais pas vu ton fichier attaché. Je viens de faire un test avec la macro ci-dessous. Elle semble exécuter ce que tu demandes. Ouvre un module et copie-la dans ton fichier. Dis-moi ensuite si cela te correspond vraiment ou pas et si tu as besoin d'une amélioration quelconque...

Sub FusionDonnées()

Sheets("Feuil1").Select
Range("A:M").Select
Selection.Copy
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("A2:M50000").Select
Selection.Copy
Sheets("Feuil3").Select
If Range("A1").Value = "" Then
Range("A1").Select
Else
If Range("A1").Value <> "" And Range("A2").Value = "" Then
Range("A1").Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If
End If
ActiveSheet.Paste
Range("A1").Select

End Sub

Cliquez pour agrandir...

pat01200 bonjour,

en faite, la formule que tu proposes fonctionne partiellement car lorsqu'il fussionne et qu'il prend par exemple les lignes de la page1 ( exemple 6 lignes ) et qu'il prend ensuite la feuille 2 il enleve les 6 premieres lignes de la page 2 et colles le reste des lignes en dessous donc concretement il manque les 6 lignes de la feuilles 2. je ne comprend pas le pourquoi. si tu veux je veux bien t'envoyer mon fichier par email pour que tu puisses constaté le prob. je te remercie d'avance pour ton aide

 

Vote positif 0 Vote négatif

P

pat01200

XLDnaute Occasionnel

• 14 Octobre 2009

• #10

Re : 2 feuilles ensembles sur une 3eme feuille l'une en desous de l'autre ????

C'est bizarre, avec ton fichier test, chez moi, tout fonctionnait. Je te joins mon essai en pièce jointe pour que tu vérifies et au cas où cela ne fonctionne pas chez toi, il sera alors effectivement préférable que tu m'envoie un fichier directement par mail, avec de vraies saisies, afin que je puisse voir où se situe le problème.

A bientôt.

Cordialement

 

Pièces jointes

• TestFusion.xls

  45 KB · Affichages: 41

Vote positif 0 Vote négatif