Bonjour à tous,

Marre de tourner en rond je sollicite votre aide.
j'ai une formule qui additionne les nombre de cellule renseigné (A11=NBVAL(A1:A10)) mais quand je clique sur A2 pour lancer ma combobox et valide ok en laissant le champs blancs par défaut, il me compte 1 alors que les cellules A1:A10 sont vide !
Je sélectionne A2 et appuie sur la touche supprime du clavier il me compte 0

Merci de votre aide

Daniel

Ci joint la combobox:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox1_Change()
Set D1 = CreateObject("Scripting.Dictionary")
X = Replace(Replace(Me.ComboBox1, ".", ""), " ", "")
tmp = "*"
For i = 1 To Len(X): tmp = tmp & Mid(X, i, 1) & "*": Next i
tmp = UCase(tmp)
For Each c In a
tmp2 = "*"
X = c
For i = 1 To Len(c): tmp2 = tmp2 & Mid(X, i, 1) & "*": Next i
'Stop
If UCase(tmp2) Like tmp Then D1(c) = ""
Next c
Me.ComboBox1.List = D1.keys
Me.ComboBox1.DropDown
End Sub