Addition cellules fusionnées
Résolu
Marie
-
MarieSnO Messages postés 8 Statut Membre -
MarieSnO Messages postés 8 Statut Membre -
Bonjour,
Je sais que la question a dû être posée je ne sais combien de fois mais je ne trouve pas la réponse à ma demande...
Il se trouve que je suis en train de réaliser les plannings de mes animateurs pour cet été et je souhaiterais que les cellules s'additionnent une fois fusionnées pour calculer automatiquement le nombre d'heures effectuées dans la journée...
Je m'explique :
Ligne 1 : plage horaire de 8h à 23h découpé en 1/2h
Si je fusionne de 8h00 à 12h30 (en écrivant le contenu de la matinée, ex : prépa activité) j'aimerais qu'apparaisse la somme de 4,5 en bout de ligne...
Comment dois-je procéder?
Merci de votre éclairage
Marie
Je sais que la question a dû être posée je ne sais combien de fois mais je ne trouve pas la réponse à ma demande...
Il se trouve que je suis en train de réaliser les plannings de mes animateurs pour cet été et je souhaiterais que les cellules s'additionnent une fois fusionnées pour calculer automatiquement le nombre d'heures effectuées dans la journée...
Je m'explique :
Ligne 1 : plage horaire de 8h à 23h découpé en 1/2h
Si je fusionne de 8h00 à 12h30 (en écrivant le contenu de la matinée, ex : prépa activité) j'aimerais qu'apparaisse la somme de 4,5 en bout de ligne...
Comment dois-je procéder?
Merci de votre éclairage
Marie
7 réponses
-
Bonjour
Eviter de fusionner les colonnes cela pose des problèmes
Menu excel 2010
Accueil
Format cellule
Alignement
Horizontal
Centrer sur plusieurs colonnes
le résultat en présentation est le même sans les inconvéniants des cellules fusionnées -
Bonjour,
Proposition de fonction personnalisée en vba à mettre dans un module standard (Alt+F11 pour ouvrir VBE).
Exemple de syntaxe :
=nbCelFusion(C3)
te retourne le nombre de cellules de la plage fusionnée, que tu n'as plus qu'à multiplier par ta durée d'une cellule.
Tant que j'y étais j'ai ajouté d'autres infos que tu peux récupérer en ajoutant un paramètre optionnel :
- "nb" : nombre de cellules
- "colonnes" : nombre de colonnes
- "lignes" : nombre de lignes
-"hautGauche" : référence de la cellule haut-gauche
- "basDroit" : référence de la cellule bas-droit
- "couleurPolice" : couleur de la police de la cellule haut-gauche
- "couleurFond" : couleur de la cellule haut-gauche
- "valeur" : valeur de la cellule haut-gauche
Ex :
=infoFusion(C3;"hautGauche") => $B$2
https://www.cjoint.com/c/CElmYxqOxs0
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.-
-
-
Une fonction personnalisée est un petit programme en VBA à ajouter à ton classeur.
Une fois fait ça t'ajoute une fonction utilisable comme toutes les autres fonction d'excel.
Pour ajouter du code VBA à un classeur voir ici :
Mise à jour d'une procédure
Sinon regarde la proposition de ccm81 en-dessous. Elle est intégrée à ton classeur, c'est sans doute plus simple pour toi si tu débutes en vba.
eric
-
-
Bonjour
Je crois bien qu'il te faudra passer par une macro, je te propose unun début de réponse
https://www.cjoint.com/?3ElmP6qImAg
bonne suite -
Je viens de reprendre la feuille de ccm81 et meme en ajoutant des infos ça calcul pas les heures...
Je suis désolée, mais je suis trop une bille... -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
J'ai modifier la fonction personnalisée pour l'adater à ton classeur et mise dedans.
Elle est utilisable comme une fonction native d'excel.
Tu peux compter soit les cellules fusionnées :
=infoFusion(B5:AK5;"nbCellFusion")/2
soit les cellules fusionnées + les cellules non fusionnées non vides (ex : une réunion d'1/2h)
=infoFusion(B5:AK5;"nbcell")/2
https://www.cjoint.com/c/CEloKt1bk30
Faire F9 pour rafraichir après des modifications.
eric
edit: nouveau fichier
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.-
Bonjour Eric
J'avais fait un essai via une fonction, pour compter les cellules coloriées d'une plage, mais le recalcul ne se faisait pas lorsqu'on modifiait une cellule après avoir validé la fonction
Public Function nbheures(plage As Range) As Single Dim cel As Range, nbh As Single, co As Long Application.Volatile If plage.Rows.Count > 1 Then Exit Function nbh = 0 For co = 1 To plage.Columns.Count If plage.Cells(1, co).Interior.ColorIndex <> xlNone Then nbh = nbh + 0.5 Next co nbheures = nbh End Function
Application.Volatile ne fonctionne (apparemment) pas en cas de changement de format
C'est pour ça que j'ai proposé le passage par un bouton à clisquer
Il en est de même avec infofusion. Si on étend la fusion d'une plage, le décompte est erroné et ne devient correct qu'après avoir revalidé la fonction.
Si tu as une idée pour une maj en cas de modification du format ....
Bonne journée -
Salut gb,
Ah oui, exact.
Ben faire F9 pour rafraichir :-s
J'ai complété le fichier d'exemple avec les nouveaux paramètres. Du coup j'ai aussi ajouté :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub
Si la fonction n'est pas appelée 1000 fois ça peut le faire. Pas mieux pour forcer la mise à jour pour l'instant ;-)
https://www.cjoint.com/c/CElpjUQL0YP
eric
-
-
Philou10120 (salut à toi et merci pour ton intervention) t'a expliqué comment utiliser l'outil
Comme je t'ai précisé plus haut, ce n'est qu'un début de réponse, si ça va dans le bon sens, on peut aménager, modifier, compléter, ...
Quoiqu'il en soit le comptage de cellules "coloriées" va très certainement passer par une macro
Bonne suite -
Ola tout le monde alors vraiment je vous dis merci!!
Dans le dernier document mis en ligne c'est juste nikel ce qu'il me fallait!!
Bon, j'ai pas trop été explorer les modules & Co. mais j'ai enregistré le doc et j'ai plus qu'à l'utiliser!!
Vraiment vous avez fait du bon boulot!!
Merci mille fois!!
