Connaître le nombre de cellules vides

[Magic_Doctor]

Bonsoir à tous,

J'ai, sur ma feuille, plusieurs cellules de saisies non contiguës, et je voudrais connaître le nombre de cellules de saisies vides.
Pour ce faire, j'ai rédigé une macro. J'ai l'intuition que je suis sur la bonne voie, mais ça dérape...

Ci-joint un exemple.

Merci d'avance de vos conseils.

 

[Papou-net]

Re : Connaître le nombre de cellules vides

Bonsoir Magic Doctor,

Tu as une zone nommée inexistante dans ta macro (en rouge) : supprimes la et ça fonctionnera.

Cordialement.

Sub CompteCellsVides()

Dim zone As Variant, n As Byte, i As Byte

zone = Array("Dil1NbUXFl1", "Dil1VolS1", [COLOR="Red"][B]"NbGrS1", [/B][/COLOR]"Dil1NbGrS1", "Dil1NbUXParGr1")

For n = LBound(zone) To UBound(zone)
  If Range(zone(n)) = "" Then
    i = i + 1
  End If
Next n

[E2].Value = i

End Sub

 

[Efgé]

Re : Connaître le nombre de cellules vides

Bonsoir Magic_Doctor, Papou-net
Si votre demande est en rapport avec Ce fil Je pense qu'il faut trouver si la cellule est nommée. Pour l'instant je ne trouve pas la formule en rouge, mais je n'ai pas abandonné 😛

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("Résultat") = ""
For Each C In Range("Dil1CellStrategique1")
    If C [COLOR=red][B]est nommée [/B][COLOR=black]And C.Value = ""[/COLOR][/COLOR]
        Range("Résultat") = C
        Exit For
    End If
Next
End Sub

Cordialement

 

[Magic_Doctor]

Re : Connaître le nombre de cellules vides

Bonsoir Papou-net & Efgé,

Effectivement, dans l'Array il y avait un argument de trop. Je l'ai donc supprimé, mais ça ne fonctionne toujours pas.

 

[JNP]

Re : Connaître le nombre de cellules vides

Buenas noches senor Doctor,
J'espère que tu vas bien (vu le décalage horaire, je vais aller me coucher 😛)

Sub CompteCellsVides()
Dim cellule As Range, Plage As Range, I As Integer
Set Plage = Union(Range("Dil1NbUXFl1"), Range("Dil1VolS1"), Range("Dil1NbGrS1"), Range("Dil1NbUXParGr1"))
For Each cellule In Plage
If cellule = "" Then
I = I + 1
End If
Next
[E2].Value = I
End Sub

devrait répondre à tes attentes.
Une petite fonction

Function CompteCellulesVides() As Integer
Dim cellule As Range, Plage As Range
Set Plage = Union(Range("Dil1NbUXFl1"), Range("Dil1VolS1"), Range("Dil1NbGrS1"), Range("Dil1NbUXParGr1"))
For Each cellule In Plage
If cellule = "" Then
CompteCellulesVides = CompteCellulesVides + 1
End If
Next
End Function

avec en E2

=CompteCellulesVides()

ferait aussi l'affaire, et t'éviterait d'appuyer sur le bouton 😀...
Hasta luego 😎

 

[Magic_Doctor]

Re : Connaître le nombre de cellules vides

Hola JNP,

Muchisímas gracias por tus soluciones. Les 2 marchent parfaitement bien. J'ai rajouté dans ta fonction un "Application.Volatile" et c'est Top!
Décidément, j'ai encore des progrès à faire, mais ça avance...!!!

Muy buenas noches, ou plutôt buenos días quand tu me liras.

 

[Habitude]

Re : Connaître le nombre de cellules vides

Pourquoi ne pas mettre ne E2

=NB.VIDE(E4:E11)-4

 

[Papou-net]

Re : Connaître le nombre de cellules vides

Bonsoir Papou-net & Efgé,

Effectivement, dans l'Array il y avait un argument de trop. Je l'ai donc supprimé, mais ça ne fonctionne toujours pas.

Bonjour Magic Doctor,

Pour info : bien que ton problème soit résolu, et j'en suis content pour toi, ma solution tirée de ton code fonctionne parfaitement.
J'ai simplement omis de te préciser qu'il fallait intervertir UBound et LBound (comme dans mon code précédemment joint).

Cordialement.

Sub CompteCellsVides()

Dim zone As Variant, n As Byte, i As Byte

zone = Array("Dil1NbUXFl1", "Dil1VolS1", "Dil1NbGrS1", "Dil1NbUXParGr1")

For n = [COLOR="Red"]L[/COLOR]Bound(zone) To [COLOR="Red"]U[/COLOR]Bound(zone)
  If Range(zone(n)) = "" Then
    i = i + 1
  End If
Next n

[E2].Value = i

End Sub