Pb macro. Simplifier?

[ag2]

Bonjour!
Je suis une débutante en matière de macro et j'aimerais trouver une solution pour automatiser une tache que j'ai moi même exécutée à la souris!
Quelqu'un pourrait-il m'aider!
Je vous remercie à l'avance!

 

[wilfried_42]

Re : Pb macro. Simplifier?

bonjour Ag2

Si j'ai compris, tu as enregistré une macro avec l'enregisreur et tu voudrais la simplifier

Il nous faudrait alors la macro......... ou bien encore, savoir ce que tu cherches à faire

@ te lire

 

[ag2]

Re : Pb macro. Simplifier?

Bonjour et merci de ta réponse. Mon fichier est trop lourd pour que je le mette sur le site! Mais si il y a une possibilité je peux l'envoyer par mail!
Merci

 

[wilfried_42]

Re : Pb macro. Simplifier?

re:
je t'ai envoyé un message en privé, en haut à droite del'ecran

 

[Dan]

Re : Pb macro. Simplifier?

Bonjour,

Ce que tu dois d'abord faire, c'est utiliser la fonction "enregistreur automatique".
Pour ce faire, Outils/macro/nouvelle macro puis OK. Cela te fait apparaitre une icône sur la feuille. N'y touche pas !

Ensuite exécute toutes tes opérations avec ta souris.
Une fois terminé, clique sur le carré de l'icône pour arrêter ta macro.

1. Pour visualiser ta macro, fais ALT + F11 sur ton clavier puis CRTL + R, pour afficher VBA project à gauche. Dans la liste, doucle clique sur "module" et cela t'affichera la macro dans la fenêtre de droite.

2. Pour l'exécuter, ferme cette fenêtre VBA puis dans le menu excel, vas par menu/outils/macro/macros.Sélectionne ensuite la macro puis clique sur "Exécuter".

A te lire

Dan

 

[ag2]

Re : Pb macro. Simplifier?

Merci! j'ai envoyé le fichier! 🙂

 

[ag2]

Re : Pb macro. Simplifier?

Merci pour ta réponse !
Ce que tu viens de m'expliquer je l'ai déjà fait! C'est pour simplifier mon travail que j'ai besoin d'aide! Genre créer une boucle...?! ;-)

 

[PascalXLD]

Re : Pb macro. Simplifier?

Bonjour

Merci de bien comprendre que ce forum même s'il repond à des questions à pour but d'être un échange de connaissances. Cela ne sera pas possible si les choses se font par mail privé.

Donc une question bien posée avec un fichier exemple sans données confidentielles (ni 10000 lignes) permettent de remplir cette mission.

Bonne journée

 

[Dan]

Re : Pb macro. Simplifier?

Re,

Ag2, place ta macro ici car rien qu'en voyant le code on pourra certainement le comprendre et le simplifier.

A te lire

Dan

 

[ag2]

Re : Pb macro. Simplifier?

Bonjour!
Voici ma macro! Il doit être possible de la simplifier. Je cherche donc à recopier les donnés et à rajouter une ligne entre chaque ligne déjà existante!
Si vous pouvez m'aider?! je suis un peu perdue et à la souris c'est vraiment très très long!!
Merci

Sheets("").Select
Cells.Select
Range("L7").Activate
Selection.Copy
Windows("double.xls").Activate
ActiveSheet.Paste
Range("A4").Select
Application.CutCopyMode = False
Selection.EntireRow.Insert
Range("A6").Select
Selection.EntireRow.Insert
Range("A8").Select
Selection.EntireRow.Insert
Range("A10").Select
Selection.EntireRow.Insert
Range("A12").Select
Selection.EntireRow.Insert
Range("A13").Select
Selection.EntireRow.Insert
Range("A16").Select
Selection.EntireRow.Insert
Range("A18").Select
Selection.EntireRow.Insert
Range("A20").Select
Selection.EntireRow.Insert
Range("A22").Select
Selection.EntireRow.Insert
Range("A24").Select
Selection.EntireRow.Insert
Range("A26").Select
Selection.EntireRow.Insert
Range("A28").Select
Selection.EntireRow.Insert
Range("A30").Select
Selection.EntireRow.Insert
Range("A32").Select
Selection.EntireRow.Insert
Range("A34").Select
Selection.EntireRow.Insert
Range("A36").Select
Selection.EntireRow.Insert
Range("A38").Select
Selection.EntireRow.Insert
Range("A40").Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Range("A42").Select
Selection.EntireRow.Insert
Range("A44").Select
Selection.EntireRow.Insert
Range("A46").Select
Selection.EntireRow.Insert
Range("A48").Select
Selection.EntireRow.Insert
Range("A50").Select
Selection.EntireRow.Insert
Range("A52").Select
Selection.EntireRow.Insert
Range("A54").Select
Selection.EntireRow.Insert
Range("A56").Select
Selection.EntireRow.Insert
Range("A58").Select
Rows("5:5").Select
Selection.Copy
Rows("6:6").Select
ActiveSheet.Paste
Rows("7:7").Select
Application.CutCopyMode = False
Selection.Copy
Rows("8:8").Select
ActiveSheet.Paste
Range("I5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("J6").Select
Selection.ClearContents
Range("I7").Select
Selection.ClearContents
Range("J8").Select
Selection.ClearContents
End Sub