[VBA-excel] Selection multiple de ligne

**DVano** · 11/10/2006, 15h36

Après de nombreuses recherches sur le site, après plusieurs essais, je m'en réfère à vous...

Problème :
Je dois faire une sélection de ligne afin de les masquer pour une lecture à l'écran plus propre... Mon problème est de sélectionner ses lignes, en effet, je désire sélectionner 32 lignes toutes les 42 lignes... Tout cela de la ligne 8 à 5045

Voici mon 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
 
...
Union(Range( _
"16:47,58:89,100:131,142:173,184:215,226:257,268:299,310:341,352:383,394:425,436:467,478:509,520:551,562:593,604:635,646:677,688:719,730:761,772:803,814:845,856:887,898:929,940:971,982:1013,1024:1055,1066:1097,1108:1139" _
), Range( _
"1150:1181,1192:1223,1234:1265,1276:1307,1318:1349,1360:1391,1402:1433,1444:1475,1486:1517,1528:1559,1570:1601,1612:1643,1654:1685,1696:1727,1738:1769,1780:1811,1822:1853,1864:1895,1906:1937,1948:1979,1990:2021" _
), Range( _
"2032:2063,2074:2105,2116:2147,2158:2189,2200:2231,2242:227,2284:2315,2326:2357,2368:2399,2410:2441,2452:2483,2494:2525,2536:2567,2578:2609,2620:2651,2662:2693,2704:2735,2746:2777,2788:2819,2830:2861,2872:2903" _
), Range( _
"2914:2945,2956:2987,2998:3029,3040:3071,3082:3113,3124:3155,3166:3197,3208:3239,3250:3281,3292:3323,3334:3365,3376:3407,3418:3449,3460:3491,3502:3533,3544:3575,3586:3617,3628:3659,3670:3701,3712:3743,3754:3785,3796" _
), Range( _
"3827,3838:3869,3880:3911,3922:3953,3964:3995,4006:4037,4048:4079,4090:4121,4132:4163,4174:4205,4216:4247,4258:4289,4300:4331,4342:4373,4384:4415,4426:4457,4468:4499,4510:4541,4552:4583,4594:4625,4636:4667,4678:4709" _
), Range( _
"4720:4751,4762:4793,4804:4835,4846:4877,4888:4919,4930:4961,4972:5003,5014:5045" _
)).Select
...

Premièrement, ca fonctionne pas, deuxièmement, y a surement plus simple...

Merci pour votre aide

**wape** · 11/10/2006, 16h19

Bonjour,

Essaye qqch du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
Dim MaPlage As Range
 
For i = 16 To 5014 Step 42
   If MaPlage Is Nothing Then
      Set MaPlage = Range(i & ":" & i + 31)
   Else
      Set MaPlage = Union(MaPlage, Range(i & ":" & i + 31))
   End If
Next i
 
MaPlage.Select

wape

**ouskel'n'or** · 11/10/2006, 16h41

Peut-être plus simple :

Code :

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

Union(Range("5:8"), Range("10:15")).Select

**ouskel'n'or** · 11/10/2006, 16h45

Ce qui devrait donner un truc comme ça

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
Union(Range("16:47"),Range("58:89"),Range("100:131"),Range("142:173"), _
Range("184:215"),Range("226:257"),Range("268:299"),Range("310:341"), _
Range("352:383"),Range("394:425"),Range("436:467"),Range("478:509"), _
Range("520:551"),Range("562:593"),Range("604:635"),Range("646:677"), _
Range("688:719"),Range("730:761"),Range("772:803"),Range("814:845"), _
Range("856:887"),Range("898:929"),Range("940:971"),Range("982:1013"), _
Range("1024:1055"),Range("1066:1097"),Range("1108:1139"),Range("1150:1181"), _
Range("1192:1223"),Range("1234:1265"),Range("1276:1307"),Range("1318:1349"), _
Range("1360:1391"),Range("1402:1433"),Range("1444:1475"),Range("1486:1517"), _
Range("1528:1559"),Range("1570:1601"),Range("1612:1643"),Range("1654:1685"), _
Range("1696:1727"),Range("1738:1769"),Range("1780:1811"),Range("1822:1853"), _
Range("1864:1895"),Range("1906:1937"),Range("1948:1979"),Range("1990:2021"), _
Range("2032:2063"),Range("2074:2105"),Range("2116:2147"),Range("2158:2189"), _
Range("2200:2231"),Range("2242:227"),Range("2284:2315"),Range("2326:2357"), _
Range("2368:2399"),Range("2410:2441"),Range("2452:2483"),Range("2494:2525"), _
Range("2536:2567"),Range("2578:2609"),Range("2620:2651"),Range("2662:2693"), _
Range("2704:2735"),Range("2746:2777"),Range("2788:2819"),Range("2830:2861"), _
Range("2872:2903"),Range("2914:2945"),Range("2956:2987"),Range("2998:3029"), _
Range("3040:3071"),Range("3082:3113"),Range("3124:3155"),Range("3166:3197"), _
Range("3208:3239"),Range("3250:3281"),Range("3292:3323"),Range("3334:3365"), _
Range("3376:3407"),Range("3418:3449"),Range("3460:3491"),Range("3502:3533"), _
Range("3544:3575"),Range("3586:3617"),Range("3628:3659"), _
Range("3670:3701"),Range("3712:3743"),Range("3754:3785"), _
Range("3796:3827"),Range("3838:3869"),Range("3880:3911"), _
Range("3922:3953"),Range("3964:3995"),Range("4006:4037"), _
Range("4048:4079"),Range("4090:4121"),Range("4132:4163"), _
Range("4174:4205"),Range("4216:4247"),Range("4258:4289"), _
Range("4300:4331"),Range("4342:4373"),Range("4384:4415"), _
Range("4426:4457"),Range("4468:4499"),Range("4510:4541"), _
Range("4552:4583"),Range("4594:4625"),Range("4636:4667"), _
Range("4678:4709"),Range("4720:4751"),Range("4762:4793"), _
Range("4804:4835"),Range("4846:4877"),Range("4888:4919"), _
Range("4930:4961"),Range("4972:5003"),Range("5014:5045")).Select ...