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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Recap_2013_Chiffres").Range() ?
Merci