Macro avec boucle

[LaKro64]

Bonjour à tous,

Je souhaiterai mettre en place une petite macro qui fait une boucle mais je ne sais pas comment faire.

Concrètement, je souhaite :
- copier la ligne (B7:G7) de la feuille ORDA
- la coller en (C3:H3) de la feuille TCD
- recopier la ligne 46 fois en (C3:H49)

puis
- copier la ligne (B8:G8) de la feuille ORDA
- la coller en (C50:H50) de la feuille TCD
- recopier la ligne 46 fois en (C50:H96)

et recommencer l'opération 137 fois (colonne INDEX)

J'ai enregistré une petite macro en manuel pour les trois premières lignes mais ce serait trop long pour le faire 137 fois.

Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("ORDA").Select
Range("B7:G7").Select
Selection.Copy
Sheets("TCD").Select
Range("C3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C3:H49"), Type:=xlFillDefault
Range("C3:H49").Select
Sheets("ORDA").Select
Range("B8:G8").Select
Selection.Copy
Sheets("TCD").Select
Range("C50").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C50:H96"), Type:=xlFillCopy
Range("C50:H96").Select
Sheets("ORDA").Select
Range("B9:G9").Select
Selection.Copy
Sheets("TCD").Select
Range("C97").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C97:H143"), Type:=xlFillCopy
Range("C97:H143").Select
End Sub


Auriez-vous une solution pour créer une boucle qui répète l'opération en fonction du chiffre présent dans la colonne Index?

Merci d'avance les amis

 

[gilbert_RGI]

Re : Macro avec boucle

Bonjour

ce petit bout de code doit faire la demande

Sub test()
Dim j As Integer, i As Integer
i = 3
For j = 7 To 144
If Sheets(1).Cells(j, 1) = "" Then GoSub suite
For g = 1 To 46
Sheets(1).Range("B" & j & ":G" & j).Copy Sheets(2).Range("c" & i)
i = i + 1
Next
Next
Exit Sub
suite:
j = j + 1
Return
End Sub

 

[LaKro64]

Re : Macro avec boucle

Bonjour Gilbert_RGI,

Merci beaucoup pour votre aide.

Cependant, la macro ne prend en compte qu'une ligne sur deux de la feuille ORDA (voir code couleur)
Je souhaiterai, si possible, qu'à chaque fois qu'il y a un numéro dans la colonne index, la macro récupère l'info en (B:G).

Un dernier petit coup de main serait le bienvenu.

Merci d'avance

Cdlt

 

[gilbert_RGI]

Re : Macro avec boucle

oups voilà le code rectifié

Sub test()
Dim j As Integer, i As Integer
i = 3
For j = 7 To 144
If Sheets(1).Cells(j, 1) = "" Then GoSub suite
For g = 1 To 46
Sheets(1).Range("B" & j & ":G" & j).Copy Sheets(2).Range("c" & i)
i = i + 1
Next
Next
Exit Sub
suite:
j = j + 1
Return
End Sub

 

[LaKro64]

Re : Macro avec boucle

C'est parfait merci beaucoup je n'aurai jamais réussi tout seul

Bonne journée à bientôt

LaKro64

 

[Paf]

Re : Macro avec boucle

Bonjour LaKro64, gilbert_RGI

avec une modif du code de gilbert_RGI (suppression du "gosub")

Sub test()
Dim j As Integer, i As Integer, g As Byte
i = 3
For j = 7 To 144
    If Sheets(1).Cells(j, 1) <> "" Then
        For g = 1 To 46
            Sheets(1).Range("B" & j & ":G" & j).Copy Sheets(2).Range("c" & i)
            i = i + 1
        Next
    End If
Next
End Sub

 

[gilbert_RGI]

Re : Macro avec boucle

avec les couleurs

Sub test()
Dim j As Integer, i As Integer, derl As Integer, derlf As Integer
Dim col As Integer
Application.ScreenUpdating = False
i = 3
col = 7
derl = Sheets(2).Range("c65536").End(xlUp).Row + 1
For j = 7 To 144
If Sheets(1).Cells(j, 1) = "" Then GoSub suite
If col = 12 Then col = 6
For g = 1 To 46
Sheets(1).Range("B" & j & ":G" & j).Copy Sheets(2).Range("c" & i)
i = i + 1
Next
derlf = Sheets(2).Range("c65536").End(xlUp).Row + 1
Sheets(2).Range("c" & derl & ":H" & derlf).Interior.ColorIndex = col
derl = derlf
col = col + 1
Next
Application.ScreenUpdating = True
Exit Sub
suite:
j = j + 1
Return
End Sub

 

[LaKro64]

Re : Macro avec boucle

Merci pour votre aide Paf et Gilbert RGI

 

[LaKro64]

Re : Macro avec boucle

Une dernière chose si vous avez quelque minute à m'accorder

La dernière opération de ma macro consiste à :
- copier la ligne (I3:BC3) de la feuille ORDA
- faire un collage spécial en valeur et transposé en colonne i de la feuille TCD.
- répéter l'opération en fonction de l'index

C'est exactement la même chose sauf qu'il faut juste faire un copier coller valeur et transposé.

Je pense que tout se jour sur la ligne

For g = 1 To 47
Sheets(1).Range("B" & j & ":G" & j).Copy Sheets(2).Range("c" & i)

mais je ne trouve pas la solution...

Merci d'avance

 

[gilbert_RGI]

Re : Macro avec boucle

etes vous certain du nombre de zero car on arrive vite à 25 zéro

 

[LaKro64]

Re : Macro avec boucle

je me suis sans doute mal exprimé

Ci-joint mon fichier test : chaque ligne de données est différente. Mais dans l'esprit c'est toujours pareil !

 

[gilbert_RGI]

Re : Macro avec boucle

désolé comprends pas la progression
1
100
10000
total 10101 ->ok
mais ou je vais chercher 22 ?? puis 33 ? puis 123 ?
total 178 -> ok
puis 12 ? etc...

 

[LaKro64]

Re : Macro avec boucle

désolé j'ai mis ces chiffres au hasard, il n'y aucune progression....Tous les chiffres sont différents.

Le principe est le meme que ce matin, la seule différence étant que je veux copier chaque ligne et la coller en valeur en transposé dans la colonne i de la feuille TCD.

ci-joint le fichier

Merci pour votre précieuse aide

 

[gilbert_RGI]

Re : Macro avec boucle

ben voilà une transposition