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 :
Cette macro ne fonctionne pas correctement. Dans l'état, lorsque je l'exécute, Visual Basic me renvoie vers le deboggeur.
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
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 :
Savez vous pourquoi ?
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
Existe-il une restriction sur les lignesMerci
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets("Recap_2013_Chiffres").Range() ?
Partager