[VBA-excel] Selection multiple de ligne

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

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, 17h19

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, 17h41

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, 17h45

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

Vive Word

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

Edit
En vert : quelques erreurs corrigées

**SfJ5Rpw8** · 11/10/2006, 19h33

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

**DVano** · 13/10/2006, 14h54

Merci pour vos réponses, je testerai plus tard car ma charge de travail ne me permet pas pour le moment de programmer...

**DVano** · 18/10/2006, 12h14

wape, ton programme fonctionne au poil

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

EDIT :

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é

**SfJ5Rpw8** · 18/10/2006, 13h19

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