Combobox champ blanc par défaut + NBVAL
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:
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
Bonjour Daniel1965 le forum
et le fichier?? avec les explications dedans STP
a+
Papou
Re bonjour
j'ai refais une note explicative de mon problème dans le fichier.
D'avance merci beaucoup de votre aide.
Bonjour à tous
J'ai trouvé! j'ai rajouté dans le bouton ok ça
Si ça peut rendre service à quelqu'un.
Bon courage à tous
If Me.ComboBox1 = "" Then
Selection.ClearContents end if