transfert une feuille

C

chilo

XLDnaute Occasionnel

• 7 Juillet 2008

• #46

Re : transfert une feuille

bonsoir job75

après enquete et filature, ce fameux 91 (en fait le premier numéro des séries) veut absolument s'interferer à travers les nombres qui sont déja dans la feuille et précisément à la ligne.
alors qu'il devrait se mettre à la suite.

je pense t'avoir mis sur la piste;

merci par avance je continue l'enquête

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juillet 2008

• #47

Re : transfert une feuille

Vois pas. Pas de problème avec 91 ou autre... A+

Edit : dans la dernière version, chaque onglet créé se place devant le 1er onglet de nom supérieur (les noms d'onglets étant convertis en nombres).

 

Dernière édition: 8 Juillet 2008

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 8 Juillet 2008

• #48

Re : transfert une feuille

bonjour job75

après lecture, je me suis peut être mal expliqué il ne s'agit pas des onglets mais des nombres à transférer la boucle patine sur le premier nombre ex 91 et viens se placer sur la ligne n° 7 de son onglet.

merci désolé de cette incompréhention

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 8 Juillet 2008

• #49

Re : transfert une feuille

bonjour job75

je crois que je me suis mal explqué je ne parlais des onglets mais des nombres à transfert dans son onglet.

le premier nombre ex 91 ou 101 ne termine pas la boucle et se place a l'interieur des nombres déjà transférer ce qui empeche la boucle de terminer

merci de ta patience

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juillet 2008

• #50

Re : transfert une feuille

Pour repérer les tableaux, j'utilisais la colonne A : "A65536". Evidemment, problème si la dernière ligne colonne A n'est pas la même qu'en colonne G...
J'utilise donc maintenant la colonne G : "G65536".

Les 2 lignes de code modifiées sont :

Code:

derlig = Sheets(i).Range("G65536").End(xlUp).Row

Code:

Sheets(CStr(valG)).Range("G65536").End(xlUp).Offset(1, -6).PasteSpecial xlPasteValues

A+

 

Pièces jointes

• Transfert (automatisé) avec classement onglets.xls

  31.5 KB · Affichages: 56
• Transfert (automatisé) avec classement onglets.xls

  31.5 KB · Affichages: 54
• Transfert (automatisé) avec classement onglets.xls

  31.5 KB · Affichages: 55

Dernière édition: 8 Juillet 2008

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 8 Juillet 2008

• #51

Re : transfert une feuille

bonsoir job75

j'ai bien essayé et c'est comme je vous ai expliqué précedement
par contre en lançant la procedure qui est relativement

en apuyant sur echap je suis renvoyé sur cette ligne
j = j - 1

désolé d'insister
merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juillet 2008

• #52

Re : transfert une feuille

Re

en lançant la procedure qui est relativement

Cliquez pour agrandir...

J'ai compris que vous êtes assez relax mais ce serait mieux de terminer vos phrases.
J'ai compris aussi que la macro boucle, mais je ne vois pas pourquoi. Envoyez une copie de votre fichier qui pose problème (avant transfert bien sûr).
A+

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 9 Juillet 2008

• #53

Re : transfert une feuille

bonjour job75

je joins un petit fichier mais j'ai dû le rétrécir pour etre dans la norme

merci pour la patience

 

Pièces jointes

• transfert2.zip

  47.9 KB · Affichages: 35
• transfert2.zip

  47.9 KB · Affichages: 34
• transfert2.zip

  47.9 KB · Affichages: 36

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 9 Juillet 2008

• #54

Re : transfert une feuille

chilo à dit:

bonjour job75

je joins un petit fichier mais j'ai dû le rétrécir pour etre dans la norme

merci pour la patience

Cliquez pour agrandir...

je suis pressé et je ne sais pas pourquoi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2008

• #55

Re : transfert une feuille

Bonsoir,

Pas très sérieux tout ça chilo : vous avez supprimé la feuille "toto" !! Il est prévu depuis le début que la recherche se fait dans les 2 premières feuilles ("tata" et "toto") : c'est la raison de la boucle : For i = 1 To 2...Next.

Si vous supprimez la feuille "toto", il faut modifier la macro en écrivant : For i = 1 To 1
et plus loin : For k = 3 To Sheets.Count

Je pense que ce long fil est maintenant fini, je vous dis au revoir et à bientôt pour d'autres discussions.
Job

 

Dernière édition: 9 Juillet 2008

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 9 Juillet 2008

• #56

Re : transfert une feuille

bonsoir job75
j'ai du le supprimer car le fichier zippé dépassait 49, je n'avais le choix

dans tous les cas un grand merci pour le bout de chemin, je pense que cela me permettra de continuer

merci encore et peut être a bientôt

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 9 Juillet 2008

• #57

Re : transfert une feuille

rebonsoir job75

je reviens vous dire que cela fonctionne très bien
et encore merci porter vous bienen

 

Vote positif 0 Vote négatif