Somme erronée cellules fusionnées ou non
Résolu
T3chN0g3n Messages postés 6003 Statut Membre -
Bonjour,
Sur 1 tableau avec 2 colonnes (Matin et Après-midi), j'ai des activités soit par demi-journée, soit à la journée.
Matin = colonne M
Après-midi = colonne N
Journée = colonne M & N fusionnées
Un autre tableau calcule le nombre de personnes affecté.
=NB.SI(M10:M15;"*TEST*")+NB.SI(N10:N15;"*TEST*")/2
Résultat = 6 au lieu de 5
(exemple joint)
https://www.cjoint.com/c/LIEiU63OkOq
Merci d'avance
EXCEL 2010
Windows / Firefox 91.0
- Somme erronée cellules fusionnées ou non
- Somme de plusieurs cellules excel - Guide
- Somme si couleur - Guide
- Verrouiller cellules excel - Guide
- Somme en anglais excel - Guide
- Fusionner deux cellules excel - Guide
7 réponses
Bonjour,
Oui j'ai enfin compris que vous travaillez avec des valeurs référence (TEST, Toto) et dans la macro il y a un manque de boucle, je vais regarder pour la correction.
Bonjour,
Essayer cette version:
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
ElseIf Cells(Index, celldebut.Column + 1).Value Like "*" & Recherche & "*" Then
Total = Total + 0.5
End If
Next Index
SOMMEAUTO = Total
End Function
.../
Merci pour cette correction qui prend l'après-midi en compte.
J'ai toujours l'autre problème quand à la validation des formules qu'il faut de nouveau valider une par une quand on modifie une activité sur le planning.
Peux-tu m'aider stp? A part :
Données / Convertir + Terminer (un peu lourd à faire lors de chaque modif), je ne vois pas...
ou
re valider chaque formule...
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
Bonjour,
Dans ton exemple, en M10:M15 tu as bien 6 cellules comprenant "TEST" et 0 en N10:N15 ????
Cordialement
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'ai trouvé cela sur le net (veux post)
Une fonction qui permet de trouver le nombre de cellules fusionnées....
'Option Explicit
Function rechFusion(chaine As String, plage As Range) As Long
' recherche une chaine dans une plage
' et retourne le nombre de cellules fusionnées contenant cette chaine
'
'
' Ex syntaxe sur feuille :
' =rechFusion(J3;$m$3:$n$16)
'
Dim data As Variant, lig As Long, col As Long
Application.Volatile
If plage.Count = 1 Then Exit Function
data = plage.Value
For lig = 1 To UBound(data, 1)
For col = 1 To UBound(data, 2)
If data(lig, col) = chaine Then
rechFusion = rechFusion + plage.Cells(lig, col).MergeArea.Cells.Count
col = col + plage.Cells(lig, col).MergeArea.Cells.Columns.Count - 1
End If
Next col
Next lig
End Function
Je cherche pour utiliser cette fonction et rajouter la recherche de l'activité en vba.
Dans mon exemple, l'idée serait : si "TEST" trouvé 6 fois - (2 cellules non fusionnées /2)
Voilà une proposition:
https://www.cjoint.com/c/LIEnPXigAcX
EDIT: Ajouter
Option Compare Text
Au dessus de la fonction dans le VBA pour que ce ne soit pas sensible à la casse
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
Avec la fonction personnalisée en vba de T3chN0g3n
Voilà le code corrigé:
Option Compare Text
Function SOMMEAUTO(ByRef celldebut As Range, ByRef CellFin As Range, Recherche As String)
Application.Volatile
Total = 0
For Index = celldebut.Row To CellFin.Row
If Cells(Index, celldebut.Column).MergeCells = True Then
If Cells(Index, celldebut.Column).Value Like "*" & Recherche & "*" Then
Total = Total + 1
End If
Else
If Cells(Index, celldebut.Column).Value Like "*" & Recherche & "*" Then
Total = Total + 0.5
End If
If Cells(Index, celldebut.Column + 1).Value Like "*" & Recherche & "*" Then
Total = Total + 0.5
End If
End If
Next Index
SOMMEAUTO = Total
End Function
Bonjour,
Merci pour la méthode, mais les intitulés d'activité ne sont plus les mêmes..
Les cellules ne sont plus fusionnées
Cdlt
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