Discussion :

[VBAeater]

Bonjour à tous!

Alors voici mon petit soucis:
J'ai écrit un code me permettant de copier une ligne (en l'occurrence A2) pour ensuite la coller plusieurs fois en dessous (je ne prend que les champs allant de A à P).
Par la suite, je copie 1 par 1 les cases Q2, R2, S2, T2, U2 ,V2 pour les coller sur la colonne QX correspondante.

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 Sub Macro6()
'copie de la ligne 3
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2:P2").Select
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
'copie du format 3
Range("R2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q3").Select
ActiveSheet.Paste
'suppression de la colonne format 3
Range("R1:R2").Select
Range("R2").Activate
Selection.ClearContents
'copie de la ligne 3
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A3:P3").Select
Selection.Copy
Range("A4").Select
ActiveSheet.Paste
'copie du format 3
Range("S2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q4").Select
ActiveSheet.Paste
'suppression de la colonne format 3
Range("S1:S2").Select
Range("S2").Activate
Selection.ClearContents
End Sub

J'aimerais faire une boucle pour que le processus s'exécute jusqu'en bas de la worksheet pour chaque ligne (Malgré mes tentatives je n'y parviens pas).

Merci à celui qui m'aidera (si tu habites à l'est de Paris, je serais ravi de t'offrir une bonne pinte ou un café! :D

[NVCfrm]

Salut,
ça donne un vertige ces Selects intempestifs.
Sache que l'enregistreur macro est un traceur d'actions permettant pour un débutant de connaître rapidement la syntaxe de certaines expressions du modèle objet VBA. En production le code de l'enregistreur non remanié est source de bugs.
Fais une petite recherche dans les tutos vba de dev pour améliorer ton codage.
Une boucle n'est pas forcément utile dans ton cas.
Et je te propose comme début d'examiner le code suivant en essayant d'imaginer ce qu'il fera avant éxecution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Range("A2:P2").Copy
Range("A3:P9").Insert xlDown
 
Range("r2:v2").Copy
Range("q3:q9").PasteSpecial xlPasteAll, , , True
 
Range("r2:v2").Clear

[VBAeater]

Merci beaucoup pour ton code, effectivement il est beaucoup plus elegant que le mien.
Je comprends bien ce qu'il fait, en revanche j'ai du me méprendre dans l'explication precise du code que j'aimerais exécuter.
Je met deux photo avant/après ainsi qu'un XLS avec l'avant en haut et l'après en bas

Il faudrait que cela se fasse sur toute la worksheet (d'ou mon idée du boucle).

Avant:


Après:


Si vous etes encore motivés pour m'aider

[NVCfrm]

Je met ... ainsi qu'un XLS avec l'avant en haut et l'après en bas

Désolé. C'est le genre d'extension que je redoute le plus, encore que par habitude, je préfère qu'on m'évite cette tâche de devoir chercher à comprendre en téléchargeant un fichier, même pour un fichier brut .txt.
Il suffit que tu t'expliques assez bien. Le fichier, c'est à ceux qui veulent s'assurer de proposer une solution adaptée de te le réclamer.

Si vous etes encore motivés pour m'aider

Tu es bien marrant toi.
Allez j'ai la comprenette parfois asse fine, parfois .
Je vais te relire pour bien cerner, si d'ici là tu peux apporter des points d'éclaircissements qui peuvent m'aider ou d'autres, car je laisse tomber quand je ne comprends pas l'objectif de la chose. Parfois même l'utilité. C'est au gré des humeurs du jour.

Edit :
M'enfin :

J'ai écrit un code me permettant de copier une ligne (en l'occurrence A2) pour ensuite la coller plusieurs fois en dessous (je ne prend que les champs allant de A à P).
Par la suite, je copie 1 par 1 les cases Q2, R2, S2, T2, U2 ,V2 pour les coller sur la colonne QX correspondante.

Je suis sûr que cet extrait est assez claire, que les images confirment ce qu'il faut comprendre, que le fichier est inutile, que l'exemple de code qui t'a été proposé va dans ce sens.
Peut-être faudrait aménager pour l'insertion de lignes pour éviter un décalage avec les données des colonnes adjacentes.
Edit 2:
Je te suggères de modifier la ligne de code Range("q3:q9")... par A3:A9. peut-être ?

[VBAeater]

Et bien! Que de méfiance!

La seule chose que je cherche est de transformer mon tableau comme representé sur l'image "avant" en image "après".
Je n'ai forcé personne a ouvrir mon xls, c'est la raison pour laquelle j'ai posté des photos.

Je pensais etre mieux accueilli sur un forum que l'on m'a conseillé (mon prof de prog mobile de l'année derniere étant redacteur/moderateur sur le site).

Je n'ai ni menacé ni agressé personne, je pense donc que ce n'est pas des manières de parler à quelqu'un cherchant de l'aide.

[NVCfrm]

... je pense donc que ce n'est pas des manières de parler à quelqu'un cherchant de l'aide.

Doucement. Pourquoi tu t'emportes pour presque rien ?

Relis les Edits de ma réponse précédente..
Je dois te dire que ce ne sont pas des réactions convenables à quelqu'un qui vient chercher de l'aide.