Somme de nombres issues de cellules fusionneés

Océane

XLDnaute Impliqué
Bonjour le forum
je ne comprends pas pourquoi la formule de ma pièce jointe, fonctionne très bien avec des cellules non fusionnées, et pas du tout avec des cellules fusionnées.
Merci d'avance
 

Pièces jointes

  • Classeur1.xlsx
    9.9 KB · Affichages: 40

Lone-wolf

XLDnaute Barbatruc
Bonjour Pierre

Défusionne les cellules, modifie la formule comme ceci =SIERREUR(SI(NB(C2:C34)<1;"";SOMME(C2:C34));""), ensuite, fusionne les cellules, tableau par tableau. Je viens de tester et le calcul se fait sans problème.
 

job75

XLDnaute Barbatruc
Bonjour Océane, salut Lone-wolf, Kael_88,

Bah les cellules fusionnées ne posent pas de problème mais en l'état votre fichier est vérolé.

Pour vous en rendre compte entrez en E2 la formule =C2 et tirez-la vers le bas.

Vous verrez alors que les cellules (fusionnées) C17 à C22 contiennent la valeur d'erreur #REF!

Pour remédier à la vérole il suffit d'effacer le 1 en C16 puis de le remettre : on obtient bien 6 en C35.

A+
 

Victor21

XLDnaute Barbatruc
Bonjour, Océane, Loup solitaire, Kael_88

Comportement anormal, surprenant, voire "interlocatoire" !!!
Lors de la fusion de plusieurs cellules, seule la valeur de la cellule le plus à gauche, et le plus haut est conservée. Or là, même fusionnées, les cellules C17 à C22 conservent des valeurs d'erreur, et les cellules C10:C15 et C24:C34 conservent la valeur 0
Le fichier n'aurait-t-il pas été corrompu ? Ou récupéré après un plantage ?

Bonjour, Gérard. Pas rafraîchi, mais diagnostic identique. C'est rassurant pour le malade.
 

Pièces jointes

  • Oceane2.xlsx
    10.6 KB · Affichages: 18
Dernière édition:

job75

XLDnaute Barbatruc
Re, salut Patrick,

Non Patrick, seules les cellules C3:C8 (texte vide "") et C17:C22 (#REF!) sont vérolées.

Les cellules C10:C15 et C24:C34 sont bien vides, vérifier avec la fonction ESTVIDE...

Voici une macro qui permet de vérifier l'état des cellules fusionnées et d'épurer celles qui sont vérolées :
Code:
Sub Epurer()
Dim c As Range, x$
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
    If c.MergeCells Then If Application.CountA(c.MergeArea) > 1 Then _
        x = c.Formula: c.MergeArea = Empty: c = x
Next
End Sub
Fichier joint.

A+
 

Pièces jointes

  • Cellules fusionnées(1).xlsm
    23.9 KB · Affichages: 18

Discussions similaires

Réponses
5
Affichages
113

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16