Réduction de code en boucle

Version imprimable

Bonjour , si quelqu'un peut m'aider à transformer ce code en boucle, j'ai essayé mais sans résultat , Merci d'avance

Code:

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
'Worksheets(Nom3).Range("G18") = Worksheets(Nom2).Range("G11")
    'Worksheets(Nom3).Range("G19") = Worksheets(Nom2).Range("G12")
    'Worksheets(Nom3).Range("G20") = Worksheets(Nom2).Range("G13")
    'Worksheets(Nom3).Range("G21") = Worksheets(Nom2).Range("G14")
    'Worksheets(Nom3).Range("G22") = Worksheets(Nom2).Range("G15")
    'Worksheets(Nom3).Range("G23") = Worksheets(Nom2).Range("G16")
    'Worksheets(Nom3).Range("G24") = Worksheets(Nom2).Range("G17")
    'Worksheets(Nom3).Range("G25") = Worksheets(Nom2).Range("G18")
    'Worksheets(Nom3).Range("G26") = Worksheets(Nom2).Range("G19")
    'Worksheets(Nom3).Range("G27") = Worksheets(Nom2).Range("G20")
    'Worksheets(Nom3).Range("G28") = Worksheets(Nom2).Range("G21")
    'Worksheets(Nom3).Range("G29") = Worksheets(Nom2).Range("G22")
 
    'Worksheets(Nom3).Range("G30") = Worksheets(Nom2).Range("G32")
    'Worksheets(Nom3).Range("G31") = Worksheets(Nom2).Range("G33")
    'Worksheets(Nom3).Range("G32") = Worksheets(Nom2).Range("G34")
 
    'Worksheets(Nom3).Range("G35") = Worksheets(Nom2).Range("G6")
    'Worksheets(Nom3).Range("G36") = Worksheets(Nom2).Range("G7")
    'Worksheets(Nom3).Range("G37") = Worksheets(Nom2).Range("G8")
    'Worksheets(Nom3).Range("G38") = Worksheets(Nom2).Range("G9")
    'Worksheets(Nom3).Range("G39") = Worksheets(Nom2).Range("G10")
 
    'Worksheets(Nom3).Range("G40") = Worksheets(Nom2).Range("G23")
    'Worksheets(Nom3).Range("G41") = Worksheets(Nom2).Range("G24")
    'Worksheets(Nom3).Range("G42") = Worksheets(Nom2).Range("G25")
    'Worksheets(Nom3).Range("G43") = Worksheets(Nom2).Range("G26")
    'Worksheets(Nom3).Range("G44") = Worksheets(Nom2).Range("G27")
    'Worksheets(Nom3).Range("G45") = Worksheets(Nom2).Range("G28")
    'Worksheets(Nom3).Range("G46") = Worksheets(Nom2).Range("G29")
    'Worksheets(Nom3).Range("G47") = Worksheets(Nom2).Range("G30")
    'Worksheets(Nom3).Range("G48") = Worksheets(Nom2).Range("G31")

Bonjour,

essaye ça:

Code:

1
2
3
for i =18 to 29
Worksheets(Nom3).Range("G" & i) = Worksheets(Nom2).Range("G" & i-7)
next i

Citation:

Envoyé par zazay123

Bonjour , si quelqu'un peut m'aider à transformer ce code en boucle, j'ai essayé mais sans résultat , Merci d'avance

Code:

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
'Worksheets(Nom3).Range("G18") = Worksheets(Nom2).Range("G11")
    'Worksheets(Nom3).Range("G19") = Worksheets(Nom2).Range("G12")
    'Worksheets(Nom3).Range("G20") = Worksheets(Nom2).Range("G13")
    'Worksheets(Nom3).Range("G21") = Worksheets(Nom2).Range("G14")
    'Worksheets(Nom3).Range("G22") = Worksheets(Nom2).Range("G15")
    'Worksheets(Nom3).Range("G23") = Worksheets(Nom2).Range("G16")
    'Worksheets(Nom3).Range("G24") = Worksheets(Nom2).Range("G17")
    'Worksheets(Nom3).Range("G25") = Worksheets(Nom2).Range("G18")
    'Worksheets(Nom3).Range("G26") = Worksheets(Nom2).Range("G19")
    'Worksheets(Nom3).Range("G27") = Worksheets(Nom2).Range("G20")
    'Worksheets(Nom3).Range("G28") = Worksheets(Nom2).Range("G21")
    'Worksheets(Nom3).Range("G29") = Worksheets(Nom2).Range("G22")
 
    'Worksheets(Nom3).Range("G30") = Worksheets(Nom2).Range("G32")
    'Worksheets(Nom3).Range("G31") = Worksheets(Nom2).Range("G33")
    'Worksheets(Nom3).Range("G32") = Worksheets(Nom2).Range("G34")
 
    'Worksheets(Nom3).Range("G35") = Worksheets(Nom2).Range("G6")
    'Worksheets(Nom3).Range("G36") = Worksheets(Nom2).Range("G7")
    'Worksheets(Nom3).Range("G37") = Worksheets(Nom2).Range("G8")
    'Worksheets(Nom3).Range("G38") = Worksheets(Nom2).Range("G9")
    'Worksheets(Nom3).Range("G39") = Worksheets(Nom2).Range("G10")
 
    'Worksheets(Nom3).Range("G40") = Worksheets(Nom2).Range("G23")
    'Worksheets(Nom3).Range("G41") = Worksheets(Nom2).Range("G24")
    'Worksheets(Nom3).Range("G42") = Worksheets(Nom2).Range("G25")
    'Worksheets(Nom3).Range("G43") = Worksheets(Nom2).Range("G26")
    'Worksheets(Nom3).Range("G44") = Worksheets(Nom2).Range("G27")
    'Worksheets(Nom3).Range("G45") = Worksheets(Nom2).Range("G28")
    'Worksheets(Nom3).Range("G46") = Worksheets(Nom2).Range("G29")
    'Worksheets(Nom3).Range("G47") = Worksheets(Nom2).Range("G30")
    'Worksheets(Nom3).Range("G48") = Worksheets(Nom2).Range("G31")

vu que tes lignes ne se suivent pas il faut faire plusieurs boucles

voici le début essaies de faire la suite

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Lign1 as long
Lign2 as long
 
Lign2=11
for lign1=18 to 29
    Worksheets(Nom3).cells(lign1,7).value = Worksheets(Nom2).cells(lign2,7).value 
    Lign2=Lign2+1
Next Lign1
 
Lign2=32
for lign1=30 to 32
    Worksheets(Nom3).cells(lign1,7).value = Worksheets(Nom2).cells(lign2,7).value 
    Lign2=Lign2+1
Next Lign1
 
...

tu transmets une fois fini et on vérifiera si c'est bon

A bientôt

Salut

Les boucles ne sont pas nécessaires. Vu que les décalages ne sont pas identiques, tu auras besoin d'une ligne de code par bloc.
Code:

1 2 3 4 Worksheets(Nom3).Range("G18:G29").Value = Worksheets(Nom2).Range("G11:G22").Value Worksheets(Nom3).Range("G30:G32").Value = Worksheets(Nom2).Range("G32:G34").Value Worksheets(Nom3).Range("G35:G39").Value = Worksheets(Nom2).Range("G6:G10").Value Worksheets(Nom3).Range("G40:G48").Value = Worksheets(Nom2).Range("G23:G31").Value
Au passage, merci de ne pas créer plusieurs discussions sur le même sujet ;)

06/08/2020, 11h19
zazay123

je vous remercie tous pour vos solution ça m'a trop aidé