Demande de petite macro classique

E

eretyk_1er

Guest

• 10 Juin 2011

• #2

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?

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 10 Juin 2011

• #3

Re : [Urgent] - Demande de petite macro classique

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

 

Pièces jointes

• ExempleDemande.xls

  41.5 KB · Affichages: 53

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 10 Juin 2011

• #4

Re : [Urgent] - Demande de petite macro classique

Bonjour,

cette petite macro, effectue le travail souhaité :

VB:

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

 

Pièces jointes

• Exemple Demande.xls

  38.5 KB · Affichages: 74
• Exemple Demande.xls

  38.5 KB · Affichages: 73
• Exemple Demande.xls

  38.5 KB · Affichages: 73

Dernière édition: 10 Juin 2011

Vote positif 0 Vote négatif

L

Lulu92

Guest

• 10 Juin 2011

• #5

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

 

Pièces jointes

• Exemple 2 (2).xls

  90 KB · Affichages: 33
• Exemple 2 (2).xls

  90 KB · Affichages: 37
• Exemple 2 (2).xls

  90 KB · Affichages: 29

Dernière modification par un modérateur: 10 Juin 2011

Vote positif 0 Vote négatif

L

Lulu92

Guest

• 10 Juin 2011

• #6

Re : Demande de petite macro classique

petite remontée de post ^^

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 10 Juin 2011

• #7

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

 

Pièces jointes

• Exemple2Lulu.xls

  105.5 KB · Affichages: 29
• Exemple2Lulu.xls

  105.5 KB · Affichages: 38
• Exemple2Lulu.xls

  105.5 KB · Affichages: 36

Vote positif 0 Vote négatif

L

Lulu92

Guest

• 10 Juin 2011

• #8

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

 

Vote positif 0 Vote négatif

L

Lulu92

Guest

• 10 Juin 2011

• #9

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

 

Pièces jointes

• Exemple2Lulu.xls

  103.5 KB · Affichages: 31
• Exemple2Lulu.xls

  103.5 KB · Affichages: 25
• Exemple2Lulu.xls

  103.5 KB · Affichages: 29

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 10 Juin 2011

• #10

Re : Demande de petite macro classique

Bonsoir,

En changeant ton

Code:

        With Worksheets("Feuil" & i)

par

Code:

        With Worksheets(i)

cela devrait le faire ?

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 10 Juin 2011

• #11

Re : Demande de petite macro classique

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

 

Pièces jointes

• Exemple2Luluv1.xls

  101.5 KB · Affichages: 33

Vote positif 0 Vote négatif

L

Lulu92

Guest

• 11 Juin 2011

• #12

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

 

Vote positif 0 Vote négatif