• Initiateur de la discussion Initiateur de la discussion Carl
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Carl

XLDnaute Occasionnel
Bonjour,

On a déjà une macro pour une accolade (colonne S) et on désire deux autres macros pour deux autres accolades colonnes P et Q.

Colonne P, calcul la moyenne des heures sur 5 jours et
colonne Q, le total des heures de congés.

et la colonne S, calcul le total des minutes par jours.

Et en macro on est très novice en la matière.

Avec nos remerciements

Merci à toute l'équipe du forum pour vos précieuses formules.

Carl [file name=Accolades.zip size=17247]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Accolades.zip[/file]

Message édité par: carl, à: 22/03/2006 19:06
 
Bonsoir

Option Explicit
Sub Accolades()
Dim sh As Shape
Dim t As Range, Premier As Integer
' Déplie le plan sinon ça fait n'importe quoi
ActiveSheet.Outline.ShowLevels RowLevels:=2
' Supprime toutes les accolades
For Each sh In ActiveSheet.Shapes
sh.Select
If sh.Type = 1 Then sh.Delete
Next sh
' Cherche les totaux en colonne Y et ajoute l'accolade
For Each t In Range('Y4:Y409') ' A adapter ?
En remplcalant le Y par P et par Q tu as essayé?
 
Bonjour

Oui, on a essayé de remplacer Y par P ou Q, mais le problème c'est que ça me donne 365 accolades et c'est trop.

On veux ajouter deux collones supplémentaires d'accolades, en avoir 3 en tout.

Merci et salutations

Carl
 
bonjour

j'ai bien regardé mon fichier joint et la macro je l'ai copiée dans un cadre texte.

la voilà encore une fois et elle est mise dans les macro si j'ai fait juste.

salutations et merci

Carl [file name=Accolades_20060323133440.zip size=17229]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Accolades_20060323133440.zip[/file]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
1 K
Réponses
5
Affichages
598
Réponses
0
Affichages
1 K
Réponses
10
Affichages
2 K
Retour