Accolades 2

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
 

Staple1600

XLDnaute Barbatruc
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é?
 

Carl

XLDnaute Occasionnel
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
 

Carl

XLDnaute Occasionnel
voici la macro

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

Pièces jointes

  • macro_20060323132953.zip
    2.3 KB · Affichages: 24

Carl

XLDnaute Occasionnel
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

  • Accolades_20060323133440.zip
    16.8 KB · Affichages: 36

Discussions similaires

Réponses
10
Affichages
448

Statistiques des forums

Discussions
312 339
Messages
2 087 410
Membres
103 541
dernier inscrit
Sebast'o