XL 2016 Nombre d'Items de valeur nulle dans un tableau.

[bernardrustrel]

Bonjour à tous.
Je cherche une solution pour compter le nombre d'items de valeur nulle dans un tableau de type variant.
Ex:
Sub Toto()
Dim TbloAChercher As Variant
Dim IT as integer
AChercher = "Un - Deux - Trois - Quatre - "
TbloAChercher = Split(AChercher, " - ")

For i = 0 To UBound(TbloAChercher)
If TbloAChercher(i) = "" Then IT = IT + 1
Next i
End Sub

en utilisant ce code je peux savoir le nombre de valeurs nulles dans TbloAChercher, en outre je me demandais si il y avait une solution plus élégante que le code ci-dessus

Merci à vous, cordialement. Bernard

 

[sylvanu]

Bonjour bernardrustrel,
Que signifie une valeur nulle ?
Ce serait du genre "aaa-bbb- -ccc-) où "- -" indiquerait une valeur nulle ?
Si c'est ça, essayez :

Sub Toto()
Dim TbloAChercher As Variant
Dim IT As Integer
AChercher = "Un - Deux - Trois - - Quatre - - Cinq - "
NbVides = Len(AChercher) - Len(Replace(AChercher, "- -", "--"))
End Sub

NB: Utilisez la balise </> ( à droite de l'icone GIF ) pour le code, c'est plus lisible.

 

[jurassic pork]

Hello,
bernardrustel donne - nous un exemple où il y a trois valeurs que tu appelles nulles mais qui à mon avis qui sont plutôt (pas le chien) des valeurs vides.
Si la valeur vide est en fait un espace entre deux tirets la solution de sylvanu devrait faire l'affaire.
Ami calmant, J.P

 

[sylvanu]

Re,
Et si un "vide" peut être soit "--" ou "- -" alors :

Sub Toto()
Dim TbloAChercher As Variant
Dim IT As Integer
AChercher = "Un - Deux -- Trois - - Quatre - - Cinq -- Six- "
NbVides = Len(Replace(AChercher, " ", "")) - Len(Replace(Replace(AChercher, " ", ""), "--", "-"))
End Sub

 

[bernardrustrel]

Bonjour
Merci à vous. La dernière solution de Sylvanu me convient parfaitement. Ainsi plus de cas de figure sont envisagés.
J'ai encore appris une subtilité de VBA.
Bonne journée à vous tous.