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.

voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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