Remplissage couleur ligne

Remplissage couleur ligne - VB/VBA/VBS - Programmation

Marsh Posté le 31-08-2006 à 10:39:27    

Sur un programme, j'ai programmé un sous-total "selection.subtotal groupby......" ceci fonctionne correctement sans souci, mais je voudrais mettre en évidence cette ligne (du sous-total) par une couleur ou un encadrement
Toutes les manip que j'ai fais remplissent le tableau entièrement (et non la ligne du sous-total)
Quelqu'un peut-il m'aider ?
D'avance Merci

Reply

Marsh Posté le 31-08-2006 à 10:39:27   

Reply

Marsh Posté le 31-08-2006 à 15:22:14    

Bonjour,
utilise :
 
Rows(7).Interior.ColorIndex = 3
 
A+

Reply

Marsh Posté le 31-08-2006 à 16:54:59    

OK merci
Ce que je n'avais pas dit c'est qu'il y a plusieurs sous-totaux dans le meme tableau !
Est ce qu'il est possible de selectionner tous les differents sous-totaux ??
A+
 
 
 

Reply

Marsh Posté le 31-08-2006 à 20:16:16    

Oui, mais dans ce cas il faut écrire comme ça :
 
Range("3:3,8:8,12:12" ).Interior.ColorIndex = 6
 
Mais il est quand même préférable de définir avec précision les cellules qui t'intéressent :
 
Range("A3:G3,A8:G8,A12:G12" ).Interior.ColorIndex = 3
 
A+


Message édité par galopin01 le 31-08-2006 à 20:19:07
Reply

Marsh Posté le 01-09-2006 à 08:21:55    

Oui mais les sous-totaux ne sont pas toujours à la même ligne et leur nombre est variable !
C'est un calcul de besoin en production, les données sont jamais identiques, elles dépendent des commandes
Excuse-moi j'aurai dû être plus explicite au début
Merci
 
 

Reply

Marsh Posté le 01-09-2006 à 08:55:42    

bonjour,
Pour un nombre de groupes variables il faut que tu te débrouilles pour déterminer la ligne de sous-total et tu la mémorises dans un Array : Les sous-totaux étant faits il subsiste dans ces lignes des cellules vides tu peux te fixer dessus pour déterminer rapidement ces lignes. Tu pourrais également te fixer sur la formule de ces sous-totaux  :
(en petit nègre...)
for each o in colonne(5)
if left(o.formula,4) = "=sum" then  
c'est une formule de sous total, je stocke o.row dans un Array
 
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed