[E-07] probleme incompatibilité de type textbox

Bonjour

J'ai un petit souci lorsque que j'utilise la fonction DeBloquerCombo cela fonctionne mais pour ma fonction BloquerSaisie cela ne fonctionne pas

Dans cete fonction je met un combobox en paramètre

Code:

---

1 2 3 4

Friend Sub DeBloquerCombo(p_NomCombo As ComboBox) p_NomCombo.Locked = False p_NomCombo.BackStyle = fmBackStyleOpaque End Sub

---

Dans cete fonction je met une textbox en paramètre

Code:

---

1 2 3 4

Friend Sub BloquerSaisie(p_NomSaisie As TextBox) p_NomSaisie.Locked = True p_NomSaisie.BackStyle = fmBackStyleTransparent End Sub

---

message d'erreur : '13' incompatibilité de type

cordialement law56100

cela fonctionne

Code:

---

1 2 3 4

Friend Sub BloquerSaisie(p_NomSaisie) p_NomSaisie.Locked = True p_NomSaisie.BackStyle = fmBackStyleTransparent End Sub

---