transfert une feuille

[chilo]

bonjour le forum

un petit coup de main pour faire un transfert d'une meme valeur de plusieurs feuilles vers une feuille nommé transfert par vba
un petit fichier joint
je vous remercie

à bientot

 

[chilo]

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

 

[job75]

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).

 

[chilo]

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

 

[chilo]

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

 

[job75]

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 :

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

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

A+

 

[chilo]

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

 

[job75]

Re : transfert une feuille

Re

en lançant la procedure qui est relativement

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+

 

[chilo]

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

 

[chilo]

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

je suis pressé et je ne sais pas pourquoi

 

[job75]

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

 

[chilo]

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

 

[chilo]

Re : transfert une feuille

rebonsoir job75

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