Compter le nombre de colonne de celulles fusionnées

Bonjour,

Je sèche sur un problème de comptage de cellule.

Sur une ligne, je veux vérifier que les cellules soit non vide et j'ajoute le nombre de colonne des cellules fusionnées à un compteur.

Malheureusement, cela ne fonctionne pas. :ouin:

voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function NbCells(Plage As Range) ' Déclaration des variables Dim I As Integer Dim mG Dim test Dim ligne As Long Dim derCol As Long Dim occupation ' Fin des déclarations ligne = Plage.Row derCol = Plage.Columns.Count + Plage.Column - 1 For I = 115 To derCol If Cells(ligne, I).Value <> "" Then Cells(ligne, I).Select occupation = Range(Selection.Address).Count + occupation End If Next I NbCells = occupation End Function

---

Finalement, il compte les cellules pour 1 quelles soient fusionnées ou pas.

Auriez-vous une idée?

Merci d'avance

Cordialement

Zuthos

Bonjour,

Citation:

---

Envoyé par Zuthos

Finalement, il compte les cellules pour 1 quelles soient fusionnées ou pas.

Auriez-vous une idée?

---

Les fusions sont une véritable plaie a gérer en VBA
Si tu le peux je conseille vivement de toutes les enlever, sais-tu que tu peux reproduire le visuel de la fusion dans format -> alignement -> horizontal -> centrer sur plusieurs colonnes

Citation:

---

Envoyé par halaster08

Les fusions sont une véritable plaie a gérer en VBA

---

Je suis d'accord

Citation:

---

Envoyé par halaster08

Si tu le peux je conseille vivement de toutes les enlever, sais-tu que tu peux reproduire le visuel de la fusion dans format -> alignement -> horizontal -> centrer sur plusieurs colonnes

---

Oui, je sais que cela est possible. En plus, cela permet de faire des effets en changeant la couleur du fond de chaque cellule.
Toutefois, cela ne réglera pas mon problème.

A savoir, compter le nombre de colonne.

re
salut

c'est mergearea

exemple la cellule C4 si elle fait parti d'une fusion

Code:

---

1 2 3 4 5

msgbox cells(4,3).mergearea.address'donne l'adresse de la fusion msgbox cells(4,3).mergearea.cells(1).address'donne l'adresse de la cellule(1) de la fusion(celle qui est considérée) msgbox cells(4,3).mergearea.columns.count'donne le nombre de colonne de la fusion msgbox cells(4,3).mergearea.rows.count'donne le nombre de ligne de la fusion

---

;)

Citation:

---

Envoyé par Zuthos

Sur une ligne, je veux vérifier que les cellules soit non vide et j'ajoute le nombre de colonne des cellules fusionnées à un compteur.

Finalement, il compte les cellules pour 1 quelles soient fusionnées ou pas.

---

A la lecture de ta demande, je n'arrive pas à comprendre si tu veux que plusieurs cellules fusionnées entre elles soient compter comme une seule cellule ou comme plusieurs. :koi: