Problème avec NBVAL cellules vides mais pleines

Bonjour,

Je travaille sur un fichier Excel sur lequel j'ai un planning à construire. J'utilise la fonction NBVAL pour connaître le nombre d'action planifié par semaine.

Le problème est que les deux premières semaines du tableur sont vides hors la fonction m'indique quand même un nombre supérieur à 100.

Lorsque je test un =ESTVIDE sur l'une de ces cellules, ça me répond FAUX, alors que d'apparence elles sont bien vides puisqu'il n'y a rien dedans, pas même un espace.

Les seuls solutions que j'ai trouvé pour y remédier, c'est soit de double cliquer sur une cellule ou de faire suppr pour que NBVAL diminue de 1 à chaque case.

Je vous ai mis en PJ une partie du tableur dont je parle. J'ai appliqué la solution ci-dessus sur les dix dernières ligne des deux colonnes.

Le vrai fichier où se trouve tout le planning est déjà rempli, je ne peux donc pas m'amuser à supprimer le contenu fantôme (???) des cellules censé être déjà vides 1 par 1.

Merci pour vos éclaircissements et aides,

Cordialement.

Bonjour,

1- accepter les macros

2 - éviter les cellules fusionnées comme la peste !!!

3- nettoyer

Bonjour,

Merci pour votre réponse. Savez-vous d'où vient le problème, qu'est-ce qui se trouve dans ces cases ?

En revanche je suis obligé de conserver les cellule fusionnées. C'est primordiale pour mon tableur.

bonjour

un (le) remede ;remplace par

=NB.SI(A3:A275;"><")

cordialement

Bonjour,

A tester avec les cellules fusionnées.

Cdlt.

Option Explicit

Public Sub DEMO()
Dim ws As Worksheet
Dim lastCol As Long, lastRow As Long
Dim rngData As Range, Cell As Range
Dim ma As Range

    Application.ScreenUpdating = False

    Set ws = ActiveSheet

    With ws
        lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        Set rngData = .Cells(1).Resize(lastRow, lastCol)
        For Each Cell In rngData
            Set ma = Cell.MergeArea
            If ma.Address = Cell.Address Then
                If Not IsEmpty(Cell) And Len(Cell) = 0 Then Cell.ClearContents
            Else
                ma.MergeCells = False
                If Not IsEmpty(ma(1)) And Len(ma(1)) = 0 Then ma(1).ClearContents
                ma.MergeCells = True
            End If
        Next Cell
    End With

    Set ma = Nothing: Set rngData = Nothing
    Set ws = Nothing

End Sub