Discussion :

[StabiloHB]

Bonjour à tous,

Je vois déjà beaucoup de personnes grogner par rapport à la simplicité de ma requete.
Mais ça me semble complexe car je suis très novice sous Excel.

En effet, je voudrais compter le nombre de cellules qu'une valeur (chiffres ou caractères) occupe dans une feuille.
Sachant qu'une valeur peut être inscrite sur une fusion de plusieurs cellules, je voudrais récupérer le nombre de cellules fusionnées.

Comme je l'ai dit, je ne connais pas très bien Excel . J'aimerai cependant comprendre ce que j'écris, une petite explication avec votre réponse serait génial !!

Merci d'avance !

[StabiloHB]

Bon j'ai finalement réussis ce que je voulais.
Je mets le code si besoin : source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function rechFusion(chaine As String, plage As Range) As Long
    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 And data(lig, col) <> "" 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

j'ai juste rajouté une petite option qui permet de ne pas chercher une case vide.

Donc ce code permet de rechercher une cellule dans une zone définie : rechFusion(CELLULE recherchée ; ZONE)
et resort le nombre de fois que la cellule a été comptée dans la zone, elle peut aussi calculer le nombre de cellules fusionnées.

Très pratique pour les agendas, savoir combien de temps on a passé à faire des maths ou de la programmation VBA dans la semaine par exemple

Bonne journée à tous !