Nombre cellules vide

Bonjour,

j'aimerais que dans le classeur 1 il y est une bulle qui compte simultanément le nombre de cellule vide contenu dans

les colonnes " I " des classeurs "CA", "RTT", "RELIQUAT N-1", "Heures supplémentaires"

Bonjour,

Un premier essai.

ALT F11 pour ouvrir l'éditeur VBE.

Voir module Feuil1 (Feuil1).

Cdlt.

Private Sub Worksheet_Activate()
Dim ws As Worksheet, Counter As Double, x As Double
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> Me.Name Then
            Counter = WorksheetFunction.CountBlank _
                    (ws.ListObjects(1).ListColumns(9).DataBodyRange)
            x = x + Counter
        End If
    Next
    [M2] = x
End Sub

Merci, j'y avais pas pensé j'essayé à tout pris de mettre l'écriture dans la bulle au lieu de la cellule

Comment à tu fais pour selectionner les feuilles concerné car lorsque je veux ajouter des feuilles cela me crée une erreur ?

Bonjour,

Si tu as ajouté des feuilles, ajouté des données sans normaliser ces dernières, tu as effectivement un souci.

Tu dois déclarer tes données en tableau (comme les feuilles précédentes).

Cdlt.

Bonjour,

le problème est que certaine feuilles de mon classeur ne sont pas sous forme de tableau ainsi en m'inspirant de ton code j'ai fait un essaie mais sa ne fonctionne pas.

Private Sub Worksheet_Activate()
Dim ws As Worksheet, Counter As Double, x As Double
    Application.ScreenUpdating = False

    For Each ws In ActiveWorkbook.Worksheets
    If Sheets(Array("CA", "RTT", "RELIQUAT N-1", "Heures supplémentaires")).Range("a&65536").End(xlUp).Value
    Then
            Counter = WorksheetFunction.CountBlank(Range("I1:I65000"))

            x = x + Counter

End If
    [M2] = x
    Next

End Sub

Bonjour,

Envoie un fichier.

Mais tu dois apprendre à travailler avec des données normalisées.

Cdlt.

Voici, mon fichier

Re,

La proposition initiale doit fonctionner dans ton nouveau fichier.

Veux-tu que je commente le code pour une meilleure compréhension?

Cdlt.