[VBA-excel] Selection multiple de ligne

Version imprimable

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:

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

Bonjour,

Essaye qqch du genre :

Code:

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

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

Peut-être plus simple :

Code:

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

Ce qui devrait donner un truc comme ça ;)

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
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 ...

Vive Word :lol:
Vérifie ça Range("3796:3827"), en rouge dans le code, je suis pas sûr

Edit
En vert : quelques erreurs corrigées

11/10/2006, 18h33
SfJ5Rpw8

et pourquoi tu t'embête à sélectionner toutes ces lignes !! tu peu les masquer 32 lignes / 32 lignes...
13/10/2006, 13h54
DVano

Merci pour vos réponses, je testerai plus tard car ma charge de travail ne me permet pas pour le moment de programmer...
18/10/2006, 11h14
DVano

wape, ton programme fonctionne au poil :king:

ouskel'n'or quant à toi, j'ai un message d'erreur quand je fais copier/coller, c'est juste un problème de mise en forme et j'ai pour le moment pas le temps de le retravailler... Je testerai donc plus tard.

Ce topic est donc résolu mais il reste à tester le programme d'ouskel'n'or

:merci:

EDIT :

Citation:

Envoyé par bbil

et pourquoi tu t'embête à sélectionner toutes ces lignes !! tu peu les masquer 32 lignes / 32 lignes...

Je sais pas si t'as questions s'adresse à moi mais si je fais ca, c'est pour une question de lisibilité à l'écran... Ce sont des informations facultatives dont je n'ai pas tout le temps la nécessité :)
18/10/2006, 12h19
SfJ5Rpw8

Citation:

Envoyé par DVano

.....
Je sais pas si t'as questions s'adresse à moi mais si je fais ca, c'est pour une question de lisibilité à l'écran... Ce sont des informations facultatives dont je n'ai pas tout le temps la nécessité :)

ben pour masquer des lignes tu n'as pas besoin de les sélectionner ..:roll:
18/10/2006, 12h32
illight

Citation:

Range("2242:227")

T'aurai pas oublié un chiffre ? :aie: