Tranférer ligne 1plusieurs feuilles vers derbière feuille
Bonjour à toutes et à tous,
Je ne suis pas expérimenté en VBA et je dois récupérer les lignes 1 d'un nb indéfini de feuilles pour les transférer dans la dernière feuille.
Je sais qu'il faut faire une boucle mais ne sais pas comment faire.
Les posts que j'ai parcouru ne permettent pas de sélectionner une seule ligne
Je vous remercie pour le coup de pouce.
fifi57
bonjour Fifi547 le forum
tu nous mets un fichier et on va te faire cela
a+
Papou
Papou,
Je te remercie,c'est tout a fait ça.
J'ai besoin de comprendre.
Que veut dire: n&, aa, n = 2, Feuil6.Range("A" & n).Resize(UBound(aa), UBound(aa, 2)) = aa
n = n + 1
Si je te demande cela c'est que je souhaiterais l'utiliser ailleurs en l'adaptant.
J'espère ne pas être trop gourmand ...
Merci encore
fifi57
Sub récap()
Dim sh As Worksheet, n&, aa
Feuil6.Range("A2:D200").ClearContents: n = 2
For Each sh In Worksheets
If Not sh.Name = "Synthese" Then
aa = sh.Range("A1:D1")
Feuil6.Range("A" & n).Resize(UBound(aa), UBound(aa, 2)) = aa
n = n + 1
End If
Next sh
End Sub
re fifi57 le forum
Que veut dire: n&, aa, n = 2, Feuil6.Range("A" & n).Resize(UBound(aa), UBound(aa, 2)) = aa
n& et aa ce sont deux variables l'une déclarée en long l'autre en variant
n=2 je donne à la variable n la valeur 2
Feuil6.Range("A" & n).Resize(UBound(aa), UBound(aa, 2)) = aalà je colle un tableau aa (que j'ai créé auparavant) avec les données de la feuille dans la feuil6 colonne A ligne n
et je colle en redéfinissant la taille de la cellule colonne A ligne N avec un nombre de ligne du tableau aa ubound(aa) et un nombre de colonne de mon tableau aa ubound(aa,2)
voilà tu sais tout
a+
Papou
PS: merci d'aller sur ma réponse et de cocher résolu à coté de éditer
Papou,
Tes explications vont me permettre de faire un essai à reproduire. Comme cela j'aurai appris aujourd'hui.
Encore merci
fifi57
Re Fifi57 le forum
et si d'aventure tu plantes ou coinces quelque part, tu joins le fichier avec tes explicitations ou tes interrogations et je te corrige sans souci
a+
Papou
Merci Papou, je n'y manquerais pas.
fifi57
Bonjour Papou,
Je reviens ver toi car je ne m'en sort pas très bien.
J'ai essayé de reproduire le code que tu m'a expliqué et malgré les détails, je ne parviens pas à remettre cela en place sur une autre travail.
Je te joints le fichier.
Le but est de transférer la ligne 1 de chaque onglet afin d'obtenir une liste de choix et ainsi reproduire les "fiches technique" afin de les envoyer pas e-mail. Voilà pour les explications.
Le code me permet en effet de récupérer les lignes mais il le fait deux fois.
Qu'est-ce qui cloche ?
Dans ta version, tu as mis les Numéros de feuilles et je suis obligé de nommer la feuille (tu verras le code).
Enfin, est-il possible de ne pas récupérer les feuilles (Synthese, liste1, base_ft) ?
Je te remercie pour ton aide.
FIFI57
Bonjour Fifi57 le forum,
je ne sais pas si ton problème est réglé ou non, mais je ne vois ta demande que maintenant le 23/06/2017.
Merci de me redire si je dois modifier ton fichier ou pas
a+
Papou
Bonjour Papou,
je suis une personne patiente et j'ai aimé ta spontanéité.
Non, je n'ai pas cherché, j'étais très occupé. J'ai très envie de comprendre ce qui ne convient pas.
Je te remercie.
Fifi57
Bonjour Papou et à tous dans le forum,
Merci ,vraiment. J'ai compris la manœuvre et c'est exactement ce que je souhaitais. Un grand merci.
En ce qui concerne la feuille "liste" est-ce la même opération qu’il faut appliquer pour faire disparaitre les trois feuilles concernées de la liste ?
Fifi57
Re bonjour Fifi57 le forum
Oui. C'est tout à fait cela
Si tu as encore besoin redis le
A plus
Papou
Bonjour Papou,
Merci. Je vais essayer de le transposer.
A +
Fifi57
Re Papou,
C'est vraiment génial
Merci encore et à très bientôt.
Fifi57
Bonjour Papou et bonjour le forum,
Je reviens vers toi pour une adaptation que je n'arrive pas à faire. J'ai sur-estimé mes capacités et je ne parviens pas à adapter le même code au formulaire "UserForm1" ou je souhaite ôter les feuilles"synthèse", "liste1", "base ft", "envoie_fiche".
J'ai de l'espoir mais je pense devoir faire une formation car c'est trop galère.
en même temps, c'est tellement passionnant...
Merci Papou.
Fifi57
Bonsoir Fifi57 le forum
voilà si j'ai compris ce que tu n'as pas expliqué.
La prochaine fois que tu envoies un fichier sans explications, je ne répondrai pas, car tu prends les gens pour des imbéciles, à toujours devoir chercher ce que tu souhaites obtenir.
Tu ne sais pas t'exprimer???????? et écrire ce que tu veux obtenir?????
bonne soirée
Papou