[VBA Excel] problème de range avec find

Salut, voilà le code que je tente de faire marcher :

Code:

---

1 2 3 4 5 6 7 8 9

Public Function estDansPlage(ByVal valeur As Variant) As Boolean   If (maPlage.Find(valeur) = Nothing) Then estDansPlage = False Else estDansPlage = True End If   End Function

---

maPlage étant biensûr un objet Range existant. Le truc c'est que VB n'a pas l'air de beaucoup aimer Nothing alors que dans l'aide est expliqué que Nothing est l'objet renvoyé lorsque la valeur n'est pas trouvée dans la plage.

:(

remplace

Code:

---

1 2

= Nothing

---

par

Code:

---

Is Nothing

---

:roll: :wink:

Merci vraiment !! :D

Bonjour,
Voilà ta Fonction corrigée, pour l'essayer tappes "Jean", dans une cellule entre A1 et G 100.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Function estDansPlage(ByVal valeur As Variant) As Boolean Dim MaPlage As Range On Error Resume Next Set MaPlage = Range("A1:G100") If (MaPlage.Find(valeur) Is Nothing) Then estDansPlage = False Else estDansPlage = True End If End Function   Sub Test() MsgBox estDansPlage("Jean") End Sub

---

jpleroisse

En quoi ta solution apporte quelquechose de nouveau ??

Bonjour,
Pourquoi, q'attend tu exactement, franchement je ne comprend pas ??
Ce qu'elle apporte de nouveau ? Bin ça fonctionne.

jpleroisse

Citation:

---

Pourquoi, q'attend tu exactement, franchement je ne comprend pas ??

---

Je n'attend rien, le problème est déjà résolu :?