Somme erronée cellules fusionnées ou non

C'est une idée à vous de l'adapter à votre besoin

Les cellules fusionnées à éviter! Utilisez plus tôt le format centrer sur plusieurs cellules

Bonjour,

Note:

Contrairement aux fonctions de base d'excel, les fonctions personnalisées ne se mettent pas à jour automatiquement quand on change la valeur de tout ou partie des arguments . Il faut sélectionner la cellule qui la contient, cliquer sur la formule puis valider pour que la mise à jour du résultat se fasse

Merci de me dire comment vous entrez les valeurs d'activité?

Salutations.
Le Pingou

.../

Soit par une saisie, soit sélection dans un choix menu déroulant..

Cdlt

Bonjour,

Je vous propose d'insérer cette ligne d'instruction [  Application.Volatile  ] comme suit :

Function SOMMEAUTO(ByRef celldebut As Range, ByRef CellFin As Range, Recherche As String)
Application.Volatile
Total = 0

Salutations.
Le Pingou

Un grand merci ! Je testerais cela demain matin ...

Salut,

Avec t'a formule, ça additionne tous les "TEST" en colonne M  (donc 6) et la deuxième partie de la formule donne zéro car la colonne N est vide. Si tu place les TEST en ligne 11 et 14 sur le soir tu obtiens bien 5.

Au plus simple tu peut supprimer les cellules fusionnées (et si une personne fait toute la journée le mettre dans les deux cellules)  et diviser par deux la somme de M et de N.

Re,

Vu que tes cellules ne sont pas contiguës, il faut développer la formule :

=NB.SI(M10;"*TEST*")+NB.SI(M12;"*TEST*")+NB.SI(M13;"*TEST*")+NB.SI(M15;"*TEST*")+(NB.SI(M11;"*TEST*")+NB.SI(M14;"*TEST*"))/2+(NB.SI(N10:N15;"*TEST*"))/2

Il y a peut-être plus court.

PS : les cellules fusionnées sont généralement une plaie dans Excel

Cordialement

Je regarde pour te faire ça en vba après manger =D

Alors si tu peux différencier :

=NB.SI(M10:N15;"*TEST 1*")+NB.SI(M10:N15;"*TEST 0,5*")/2

https://www.cjoint.com/c/LIEkAzwNdTK

Merci T3chN0g3n, pour cette fonction qui répond parfaitement à mon problème !

Cdlt

Ravis que ça puisse convenir =)

Pour la postérité ...

Option Compare Text
'Recherche une chaine de caractères dans chaque cellule d'une plage donnée, sur deux colonnes, et retourne un compte total en additionnant 0.5 par cellule individuelle et 1 pour deux cellules fusionnées
Function SOMMEAUTO(ByRef celldebut As Range, ByRef CellFin As Range, Recherche As String)
Total = 0
For Index = celldebut.Row To CellFin.Row
    If Cells(Index, celldebut.Column).Value Like "*" & Recherche & "*" Then
        If Cells(Index, celldebut.Column).MergeCells = True Then
            Total = Total + 1
        Else
            Total = Total + 0.5
            If Cells(Index, celldebut.Column + 1).Value Like "*" & Recherche & "*" Then
                Total = Total + 0.5
            End If
        End If
    End If
Next Index
SOMMEAUTO = Total
End Function

Bonjour,

Si je modifie les informations dans mon planning, la fonction ne recalcule pas le total.Pour cela, il faut que je valide de nouveau la formule. Avez-vous une solution svp ?

(Le calcul est bien automatique)

Merci d'avance