Boucles imbriquées

[pascal82]

Bonjour à tous,

Comment remplacer toutes ces lignes par une boucle en sachant que je décale d'une ligne le départ et la destination de 12 colonnes

Je joins un fichier exemple au cas ou

Merci par avance

 Sub Ecolonne()
    Dim a As Long, b As Long
    Range("N1:BU51") = ClearContents
    Application.ScreenUpdating = False
    
    For a = 0 To 50
    StsBar strOps & "a=" & a
    b = (a * 70)
    
    'Comment remplacer toutes ces lignes par une boucle
    'en sachant que je décale d'une ligne le départ et la destination de 12 colonnes
    
    Range("N1:X1").Offset(a, 0).Value = Range("A2:K2").Offset(b, 0).Value
    Range("Z1:AJ1").Offset(a, 0).Value = Range("A3:K3").Offset(b, 0).Value
    Range("AL1:AV1").Offset(a, 0).Value = Range("A4:K4").Offset(b, 0).Value
    Range("AX1:BH1").Offset(a, 0).Value = Range("A5:K5").Offset(b, 0).Value
    Range("BJ1:BT1").Offset(a, 0).Value = Range("A6:K6").Offset(b, 0).Value
    Next
    ActiveWorkbook.Save
    Application.ScreenUpdating = True
    End Sub

 

[Dranreb]

Re : Boucles imbriquées

Bonjour.
Comme ça à priori :

For c = 0 To 4
       Range("N1:X1").Offset(a, c * 12).Value = Range("A2:K2").Offset(b + c, 0).Value
       Next c

À +

 

[herve62]

Re : Boucles imbriquées

Bonjour
QUand il faut commencer à "Jongler" avec les lignes et les colonnes , mieux vaut utiliser CELLS
.Range(.Cells(a, b), .Cells(c, d)).value pour remplacer Range("N1:X1") par .Range(.cells(1,14), .cells(1,24))
Range("Z1:AJ1") par .Range(.cells(1,14 +12), .cells(1,24 +12))

y=1
Z=11
For X=0 to 48 step 12
.Range(.cells(1,X+14), .cells(1,X+24)).value = .Range ( .cells(2,Y) , .cells(2,Z)).value
Y=Y+1
Z=Z+1
next

En fait ca raccourci pas trop tes lignes SI il y en avait eu 50 là Oui !!!!!

PS : j'ai pas testé la syntaxe principalement pour les "." faudra peut être mettre Worksheets("fgfdgg").Range

 

[herve62]

Re : Boucles imbriquées

Yups !! Dranreb ... j'avait oublié le Offset là ca raccourci
j'ai répondu trop vite

 

[pascal82]

Re : Boucles imbriquées

Bonjour,

Un grand merci Dranred et hervé, fonctionne à merveille.
Maintenant j'essaye de comprendre la logique et je prends en compte les remarques

Encore merci