Macro qui tourne en boucle

[Thundercatnu]

Bonjour à tous,

J'ai un tableau composé de +/- 3500 lignes. J'ai enregistré une macro pour reprendre des données de ma feuil1 et les reproduire sous une autre forme dans ma feuil2.

Le problème est que la macro tourne en boucle. Comment puis-je lui dire de sauter 12 lignes à chaque fois.


Sub Multiline()
'
' Multiline Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Rows("256:267").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("C21😀21").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("C22😀22")
Range("K22:K23").Select
Selection.ClearContents
Range("L21").Select
Selection.Cut Destination:=Range("K22")
Range("L23").Select
Selection.Cut Destination:=Range("L24")
Range("K24:L26").Select
Selection.Copy
Range("L21").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("K24:L26").Select
Selection.ClearContents
Rows("20:21").Select
Range("E20").Activate
Selection.Delete Shift:=xlUp
Sheets("pAGE 1").Select
End Sub

D'avance merci. Je n'en puis plus.

A+

 

[tototiti2008]

Re : Macro qui tourne en boucle

Bonjour thundercatnu,

Si tu nous expliquait ce que tu veux faire, avec un petit fichier exemple, (<48 Ko, sans données confidentielles) ?
Merci

 

[fred65200]

Re : Macro qui tourne en boucle

Bonjour,
Peux tu mettres les balises code à ton premier post.
Le bouton avec un dièse (#).
Ce sera plus lisible.
Merci

Dans la mesure du possible, évite les .Select suivi de Selection., tu y gagneras en rapidité

Sub Multiline()
'
' Multiline Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Rows("256:267").Copy
Sheets("Feuil1").Select
Range("A21").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("C2121").Cut Destination:=Range("C2222")
Range("K22:K23").ClearContents
Range("L21").Cut Destination:=Range("K22")
Range("L23").Cut Destination:=Range("L24")
Range("K24:L26").Copy
Range("L21").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("K24:L26").ClearContents
Rows("20:21").Delete Shift:=xlUp
Sheets("pAGE 1").Select
End Sub

 

[Thundercatnu]

Re : Macro qui tourne en boucle

Merci pour votre rapidité....

Ce que je cherche à faire :

je fais une sélection dans ma feuil1 de la zone A1 - F13, copier, collage spécial transposé sur la feuil2 avec un peu de mise en forme.

Je devrais faire ces maniluplations sur +/- 3500 lignes --> l'intérêt d'une macro.

OUI, mais Comment ???

D'avance merci.

A+

 

[tototiti2008]

Re : Macro qui tourne en boucle

Je te propose quelque chose comme ça :

Sub test()
Dim Ligne As Long, boucles As Long
    Application.ScreenUpdating = False
    Sheets("Feuil1").Select
    Ligne = Range("A65536").End(xlUp).Row
    boucles = Ligne \ 14 + 1
        For i = 0 To boucles
            Range("A" & i * 14 + 1 & ":F" & i * 14 + 13).Copy
            Sheets("Feuil2").Select
            Range("A" & i * 6 + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                False, Transpose:=True
            Sheets("Feuil1").Select
        Next i
    Application.ScreenUpdating = True
End Sub

Euh... ça ne fait pas :

avec un peu de mise en forme.

comme je n'ai pas bien compris ce que ça représentais

 

[fred65200]

Re : Macro qui tourne en boucle

re
pour un compatibilité Xl2007,
remplace

Ligne = Range("A65536").End(xlUp).Row

par

Ligne = Range("A" & Application.Rows.Count).End(xlUp).Row

cordialement

 

[pierrejean]

Re : Macro qui tourne en boucle

Bonjour Thundercatnu

Salut a tous

Vois si cela te convient

 

[Thundercatnu]

Re : Macro qui tourne en boucle

Merci à tous.

Un merci spécial à Monsieur PierreJean,

Je ne sais comment vous remercier.

Je vous considère dès aujourd'hui comme un DIEUX.

Merci, merci, et encore merci.

A bientôt