Macro masquer des lignes
Bonjour,
Je sollicite à nouveau l'aide du forum, cette fois pour faire une macro me permettant de masquer certaines lignes.
Je souhaite savoir comment faire une macro masquant les ligne suivantes:
7,8,9,10,11,12,14,15,16,17,18,19,21,23,28,29,30,31,33
Le soucis que j ai est que j ai déjà enregistré une macro manuelle masquant en théorie ces lignes là, mais dans les faits, elle me masque lénsemble des lignes 7 à 33 si bien que je ne vois plus rien
Bonjour,
Essaye comme ça ou en ajoutant la ligne dans ta macro existante :
Sub masquerLigne()
Range("7:12, 14:19, 21:21, 23:23, 28:31, 33:33").EntireRow.Hidden = True
End Subok merci bien, je vais essayer
malheureusement, le fichier est confidentiel donc je ne peux pas me permettre de le publier sur le forum
Re,
Je ne t'ai demandé ton fichier. C'est un conseil que j'ai mis dans ma signature. Dans ton cas, tu as bien expliqué le problème, certes simple. Donc cela a suffit de préconiser une solution plausible sans le fichier.
J ai fait le code vba suivant, mais il y a visiblement une erreur (error 1004):
Sub masquerLigne()
Range("7:12, 14:19, 21:21, 25:26, 36:36, 39:41, 43:43, 46:48, 50:50, 53:55, 60:60, 63:65, 67:67, 70:72, 75:75, 78:80, 82:82, 85:87, 89:89, 92:94, 96:96, 99:101, 103:103, 106:108, 110:110, 113:115, 117:117, 120:122, 124:124, 127:129, 131:131, 134:136, 138:138, 141:143, 145:145, 148:150, 152:152, 155:157, 160:160, 163:165, 167:167, 170:172, 174:174, 177:179, 181:181, 184:186, 188:188, 191:193, 197:197, 200:202, 204:204, 207:209, 211:211, 218:218, 221:223, 225, 228:230, 232:232, 235:237, 239, 242:244, 246:246, 249:251, 253:258, 260:260, 263:265, 267:267, 270:272, 311:311, 314:316, 318:318, 321:323, 325:330, 334:334, 337:339, 366:366, 369:371, 394:396, 402:403, 408:410, 414:419, 421:426, 428:428, 431:433, 435:435, 438:440, 442:442, 445:447, 470:470, 473:475, 477:477, 480:482, 484:484, 487:489, 564:569, 571:576, 580:585, 587:592").EntireRow.Hidden = True
End Sub
mais je ne vois pas ou est l'erreur...
Fcarpentier a écrit :J ai fait le code vba suivant, mais il y a visiblement une erreur (error 1004):
Sub masquerLigne()
Range("7:12, 14:19, 21:21, 25:26, 36:36, 39:41, 43:43, 46:48, 50:50, 53:55, 60:60, 63:65, 67:67, 70:72, 75:75, 78:80, 82:82, 85:87, 89:89, 92:94, 96:96, 99:101, 103:103, 106:108, 110:110, 113:115, 117:117, 120:122, 124:124, 127:129, 131:131, 134:136, 138:138, 141:143, 145:145, 148:150, 152:152, 155:157, 160:160, 163:165, 167:167, 170:172, 174:174, 177:179, 181:181, 184:186, 188:188, 191:193, 197:197, 200:202, 204:204, 207:209, 211:211, 218:218, 221:223, 225, 228:230, 232:232, 235:237, 239, 242:244, 246:246, 249:251, 253:258, 260:260, 263:265, 267:267, 270:272, 311:311, 314:316, 318:318, 321:323, 325:330, 334:334, 337:339, 366:366, 369:371, 394:396, 402:403, 408:410, 414:419, 421:426, 428:428, 431:433, 435:435, 438:440, 442:442, 445:447, 470:470, 473:475, 477:477, 480:482, 484:484, 487:489, 564:569, 571:576, 580:585, 587:592").EntireRow.Hidden = True
End Sub
mais je ne vois pas ou est l'erreur...
Si je dis pas de bétise
Bonjour,
dans ce cas découpe en plusieurs blocs, la lecture est plus aisée et ça divise la zone de recherche.
Range("7:12, 14:19, 21:21, 25:26, 36:36, 39:41, 43:43, 46:48, 50:50, 53:55, 60:60, 63:65, 67:67, 70:72, 75:75, 78:80, 82:82, 85:87").EntireRow.Hidden = True
Range("89:89, 92:94, 96:96, 99:101, 103:103, 106:108, 110:110, 113:115, 117:117, 120:122, 124:124, 127:129, 131:131, 134:136, 138:138").EntireRow.Hidden = True
Range("141:143, 145:145, 148:150, 152:152, 155:157, 160:160, 163:165, 167:167, 170:172, 174:174, 177:179, 181:181, 184:186, 188:188, 191:193").EntireRow.Hidden = True
Range("197:197, 200:202, 204:204, 207:209, 211:211, 218:218, 221:223, 225, 228:230, 232:232, 235:237, 239, 242:244, 246:246, 249:251").EntireRow.Hidden = True
Range("253:258, 260:260, 263:265, 267:267, 270:272, 311:311, 314:316, 318:318, 321:323, 325:330, 334:334, 337:339, 366:366, 369:371, 394:396").EntireRow.Hidden = True
Range("402:403, 408:410, 414:419, 421:426, 428:428, 431:433, 435:435, 438:440, 442:442, 445:447, 470:470, 473:475, 477:477, 480:482, 484:484, 487:489, 564:569, 571:576, 580:585, 587:592").EntireRow.Hidden = Trueun des blocs a 2 erreurs.
eric
oui en effet, erreur stupide cela marche cette fois merci !
Re,
Erreur ligne 225 et 239. En dehors de ça, il y a trop de paramètres de plage. Il faut essayer en plusieurs lignes. Si tu nous disait vraiment ce que tu as besoin avec un fichier mis à la disposition, on trouvera surement d'autres solutions. En tout cas , je suis persuadé que ton code peut-être amélioré.