Demande de petite macro classique

[Lulu92]

Bonjour à toutes et à tous.

Je suis en train de créer un fichier excel mais je reste bloqué sur un point, je suis actuellement obligé de faire le travail de façon manuelle et c'est horriblement long...C'est pourquoi j'en appelle à votre générosité et à votre génie

Je vous explique mon problème: j'ai un fichier avec des lignes représentant une personne et en colonnes, des valeurs pour cet utilisateur. Je souhaiterai réussir à mettre automatiquement chaque valeur en ligne tout en recopiant l'information de la personne de façon à n'obtenir plus qu'une seule colonne de valeur.

Je ne sais pas si tout cela est très clair pour vous alors je me permets de vous joindre un petit fichier excel permettant d'expliquer ma demande.

Je vous remercie énormément et par avance pour votre aide.

Lucie

 

[eretyk_1er]

Re : [Urgent] - Demande de petite macro classique

Bonjour

Je ne pense pas qu'il y ait besoin de macro pour ça.

Copie la plage, puis fait un "collage spécial" (clique droit à l'endroit voulu, collage spécial dans le menu contextuel, et coche 'transposé' au-dessus du OK)

Ca marche?

 

[Bebere]

Re : [Urgent] - Demande de petite macro classique

Bonjour Lulu
une solution, code dans module1
urgent n'est pas de mise,içi
à bientôt

 

[Softmama]

Re : [Urgent] - Demande de petite macro classique

Bonjour,

cette petite macro, effectue le travail souhaité :

Sub gozyva()
Dim c As Range, d As Range
Sheets("parMacro").Range("A2:I10000").Clear
Set c = Sheets("Données brutes").Range("I2")
Do While c <> ""
    Set d = Sheets("ParMacro").Range("I65536").End(xlUp)(2, 1)
    d.Resize(Range(c, Cells(c.Row, 256).End(xlToLeft)).Count) = Application.Transpose(Range(c, Cells(c.Row, 256).End(xlToLeft)))
    Range(c(1, -7), c(1, 0)).Copy d(1, -7).Resize(Range(c, Cells(c.Row, 256).End(xlToLeft)).Count)
    Set c = c(2, 1)
Loop
Sheets("Parmacro").Activate
End Sub

cf. fichier joint

[EDIT] Bonjour Bebere, nous nous sommes croisés

 

[Lulu92]

Merci Bébere pour cette macro elle fonctionne à merveille. Et désolé pour le titre "Urgent" je vais enlever ca de suite

Sinon j'ai une deuxième petite question,

En fait j'ai un fichier avec plein d'onglets (avec des noms pouvant varier) et je souhaiterai rapatrier les informations de ces onglets dans une seule et même feuille.

Comme pour la précédente demande, je joint un exemple pour être plus précise.

Merci de votre aide.

Lucie

 

[Lulu92]

Re : Demande de petite macro classique

petite remontée de post ^^

 

[Bebere]

Re : Demande de petite macro classique

Bonjour Softmama,Eretik_1er
Lulu ce sont des bénévoles qui te répondent,d'où patience
pour te situer le contexte,entre mes 2 réponses j'ai mis en couleur
chance pour toi,orage
à bientôt

 

[Lulu92]

Re : Demande de petite macro classique

Merci vraiment à tout le monde pour votre aide

vous m’enlevez une épine du pied

Bon weekend à tout le monde

 

[Lulu92]

Re : Demande de petite macro classique

Re-bonjour tout le monde,

je reviens vers vous car finalement la macro ne marche pas vraiment

Je m'explique : sur mon exemple, tous les onglets s'appelaient "FeuilXX, or dans mon fichier original, chaque onglet à un nom différent........(cf nouveau fichier joint)

J'ai essayé de bidouiller dans la macro afin de changer l'argument "With" mais sans succès... Je suis bloquée là

Quelqu’un peut-il encore m'aider?

En vous remerciant tous vivement

Lucie

 

[Softmama]

Re : Demande de petite macro classique

Bonsoir,

En changeant ton

        With Worksheets("Feuil" & i)

par

        With Worksheets(i)

cela devrait le faire ?

 

[Bebere]

Re : Demande de petite macro classique

Lulu un autre code 2 possibilités
à bientôt

 

[Lulu92]

Re : Demande de petite macro classique

Merci Softmama mais le code de Bebere fonctionne mieux (le "-" est choisi comme critère de reconnaissance des onglets à traiter)

Merci pour votre aide à tous et bon week-end.

Lucie