Souci Requête avec Vba.

Version imprimable

Bonjour,

J'ai un souci avec une macro.
Ma macro doit me masquer/démasquer certaines lignes sur une feuille "Recap_2013_Chiffres".
Les numéros des lignes sont : 119,120,124,125,129,130,134,135,139,140,144,145,149,150,154,155,159,160,164,165,169,170,174,175,179,180,184,185,189,190,194,195,201,202,206,207,211,212,216 & 217.

Ma macro est la suivante :

Code:

1
2
3
4
5
6
7
Sub cache_decache_ligne()
If Sheets("Recap_2013_Chiffres").Range("119:119,120:120,124:124,125:125,129:129,130:130,134:134,135:135,139:139,140:140,144:144,145:145,149:149,150:150,154:154,155:155,159:159,160:160,164:164,165:165,169:169,170:170,174:174,175:175,179:179,180:180,184:184,185:185,189:189,190:190,194:194,195:195,201:201,202:202,206:206,207:207,211:211,212:212,216:216,217:217").EntireRow.Hidden = False Then
Sheets("Recap_2013_Chiffres").Range("119:119,120:120,124:124,125:125,129:129,130:130,134:134,135:135,139:139,140:140,144:144,145:145,149:149,150:150,154:154,155:155,159:159,160:160,164:164,165:165,169:169,170:170,174:174,175:175,179:179,180:180,184:184,185:185,189:189,190:190,194:194,195:195,201:201,202:202,206:206,207:207,211:211,212:212,216:216,217:217").EntireRow.Hidden = True
Else
Sheets("Recap_2013_Chiffres").Range("119:119,120:120,124:124,125:125,129:129,130:130,134:134,135:135,139:139,140:140,144:144,145:145,149:149,150:150,154:154,155:155,159:159,160:160,164:164,165:165,169:169,170:170,174:174,175:175,179:179,180:180,184:184,185:185,189:189,190:190,194:194,195:195,201:201,202:202,206:206,207:207,211:211,212:212,216:216,217:217").EntireRow.Hidden = False
End If
End Sub

Cette macro ne fonctionne pas correctement. Dans l'état, lorsque je l'exécute, Visual Basic me renvoie vers le deboggeur.
Pour qu'elle fonctionne, je dois retirer les dernières lignes à masquer/démasquer (201,202,206,207,211,212,216,217).
Ce qui donne :

Code:

1
2
3
4
5
6
7
Sub cache_decache_ligne()
If Sheets("Recap_2013_Chiffres").Range("119:119,120:120,124:124,125:125,129:129,130:130,134:134,135:135,139:139,140:140,144:144,145:145,149:149,150:150,154:154,155:155,159:159,160:160,164:164,165:165,169:169,170:170,174:174,175:175,179:179,180:180,184:184,185:185,189:189,190:190,194:194,195:195").EntireRow.Hidden = False Then
Sheets("Recap_2013_Chiffres").Range("119:119,120:120,124:124,125:125,129:129,130:130,134:134,135:135,139:139,140:140,144:144,145:145,149:149,150:150,154:154,155:155,159:159,160:160,164:164,165:165,169:169,170:170,174:174,175:175,179:179,180:180,184:184,185:185,189:189,190:190,194:194,195:195").EntireRow.Hidden = True
Else
Sheets("Recap_2013_Chiffres").Range("119:119,120:120,124:124,125:125,129:129,130:130,134:134,135:135,139:139,140:140,144:144,145:145,149:149,150:150,154:154,155:155,159:159,160:160,164:164,165:165,169:169,170:170,174:174,175:175,179:179,180:180,184:184,185:185,189:189,190:190,194:194,195:195").EntireRow.Hidden = False
End If
End Sub

Savez vous pourquoi ?
Existe-il une restriction sur les lignes

Code:

Sheets("Recap_2013_Chiffres").Range() ?

Merci

EDIT

L'adresse à l'intérieur Range est limitée à 255 caractères

Utilise ce code

Code:

1
2
3
4
5
6
7
8
Sub Cache_Decache_Ligne()
 
With Worksheets("Recap_2013_Chiffres")
    With Union(.Range("119:119,120:120,124:124,125:125,129:129,130:130,134:134,135:135,139:139,140:140,144:144,145:145,149:149,150:150"), .Range("154:154,155:155,159:159,160:160,164:164,165:165,169:169,170:170,174:174,175:175,179:179,180:180,184:184,185:185,189:189,190:190,194:194,195:195,201:201,202:202,206:206,207:207,211:211,212:212,216:216,217:217")).EntireRow
        .Hidden = Not .Hidden
    End With
End With
End Sub

25/06/2013, 17h17
jeanmichel0404

Souci Requête avec Vba.

Bonjour,

Merci pour votre réponse concernant la restriction sur Range.
Vous serait-il possible de me refaire toute ma requête avec votre modèle ?
Merci

Je t'avais donné un code qui fonctionne en utilisant Union.

Sinon, une autre approche plus flexible

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Cache_Decache_Ligne()
Dim i As Integer
 
Application.ScreenUpdating = False
With Worksheets("Recap_2013_Chiffres")
    For i = 119 To 216 Step 5
        With Rows(i).Resize(2)
            .Hidden = Not .Hidden
        End With
    Next i
End With
End Sub

Souci Requête avec Vba.

Bonsoir,

J'ai remplacé toute ma requête par

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Cache_Decache_Ligne()
 
Dim i As Integer
Application.ScreenUpdating = False
With Worksheets("Recap_2013_Chiffres")
    For i = 119 To 216 Step 5
        With Rows(i).Resize(2)
            .Hidden = Not .Hidden
        End With
    Next i
End With
 
End Sub

Mais cela ne marche pas.

Par contre, celle-ci fonctionne

Sub Cache_Decache_Ligne()

Code:

1
2
3
4
5
6
7
With Worksheets("Recap_2013_Chiffres")
    With Union(.Range("119:119,120:120,124:124,125:125,129:129,130:130,134:134,135:135,139:139,140:140,144:144,145:145,149:149,150:150"), .Range("154:154,155:155,159:159,160:160,164:164,165:165,169:169,170:170,174:174,175:175,179:179,180:180,184:184,185:185,189:189,190:190,194:194,195:195,201:201,202:202,206:206,207:207,211:211,212:212,216:216,217:217")).EntireRow
        .Hidden = Not .Hidden
    End With
End With
 
End Sub

25/06/2013, 18h59
mercatog

Es-tu sûr que le code 1 ne fait pas ce que tu souhaite?

Les 2 fonctionnent correctement. le premier code est plus adaptable.
25/06/2013, 19h52
jeanmichel0404

La 3ème solution ne marche pas chez moi, les lignes ne se masquent/demasquent pas.

La 2nd marche très bien

Désolé, une coquille s'est glissée (un point manquait avant Rows(i))

Il fallait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Cache_Decache_Ligne()
Dim i As Integer
 
Application.ScreenUpdating = False
With Worksheets("Recap_2013_Chiffres")
    For i = 119 To 216 Step 5
        With .Rows(i).Resize(2)
            .Hidden = Not .Hidden
        End With
    Next i
End With
End Sub

25/06/2013, 20h02
jeanmichel0404

Je viens de tester et elle marche nickel ;-)
Merci beaucoup pour ce coup de main
26/06/2013, 10h06
jeanmichel0404

Je confirme la macro passe nickel.
J'ai juste réadapté la ligne "For i = 119 To xxx Step 5" en modifiant xxx