Compte Nombre de cellule vide

Bonjour le forum,

Je bloque sur un petit programme, je voudrais qu'une TxtBox affiche le nombre de cellule vide dans une plage donner. Voici mon code:

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
'Compte le nombre de cellule vide
  Me.TextCompteCaseVide = Range("B22:B32").SpecialCells(xlCellTypeBlanks).Count
End Sub

Le problème c'est qu'il m'affiche des nombre vraiment bizarre, du genre 40 puis 32 , 16 alors que j'ai ici seulement 11 cellules dans ma plage. Auriez-vous une solution a apporté a ce problème? merci de votre Excel.

Cordialement.

Bonjour mina

Un extrait de ton fichier ???

Car cela semble correct

Bonjour Patty,

Oui voici le fichier excel:

Il faut utiliser le bouton Ajouter Produit dans la feuil Bon de Commande.

Cordialament.

Bonjour,
Et si tu indiquais le nom de la feuille ?
Cdlt.

Bonjour Eric,

C'est la feuille 5 "BonDeCommande", ensuite il faut appuyer sur le Bouton Ajouter Produit. Je vous renvoie le nouveau fichier car j'ai fais quelques changement.

Cdlt.

Bonjour Minakashi,

Ta colonne B (à I) est formatée en cellules fusionnées. Donc

SpecialCells(xlCellTypeBlanks)

Cela renverra des erreurs puisqu'il est préférable d'utiliser xlCellTypeBlanks sur une cellule simple.

Comme ta colonne J, celle qui reçoit les quantités. Utilise alors ta formule sur cette colonne.

Re,
Tes cellules sont fusionnées. Divise le résultat obtenu par 8 !?
Cdlt.

Bonjour,

Tu as fusionné B:I, il te retourne donc le nombre de vides de ta plage fusionnée.
Soustrait celles en trop : 77

D'autre part tu ne peux utiliser SpecialCells() comme ça.
Il retourne une erreur s'il n'en trouve pas. Il faut fonctionner en 2 temps. Calculer la plage en traitant l'erreur, puis le calcul final.

    Dim pl As Range
    ' ...
    On Error Resume Next
    Set pl = Range("B22:B32").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    If pl Is Nothing Then Me.TextCompteCaseVide = 0 Else Me.TextCompteCaseVide = pl.Count - 77

Bon, dans le cas présent tu peux te passer du contrôle d'erreur puisque tu n'auras jamais aucune cellule vide à cause (grâce ?) à la fusion.
Mais il fallait que tu le saches.

eric
Edit : unr tite fatigue Jean-Eric ?

Re,
Bonjour Eriiic,
Non mais opté pour le minimum syndical en ce beau dimanche !
Bonne soirée.

Bonjour a tous,

A oui je comprend mieux mon erreur, merci pour votre aide .

Cldt.

La bonne réponse pour guider les futurs lecteurs n'est sûrement pas le post que tu as coché.
Si tu pouvais corriger ça stp

C'est bien un problème VBA non?

il faut cocher celui ou ceux avec la bonne réponse.
Là tu coches des posts qui sont de simples commentaires sans aucune réponse apportée...

Ahh ok j'ai compris de quoi tu parler hhh mb.

Cldt