Discussion :

[loacast]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 = Nothing

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Is Nothing

[loacast]

Merci vraiment !!

[leroissejp]

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

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
 
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

[loacast]

En quoi ta solution apporte quelquechose de nouveau ??

[leroissejp]

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

jpleroisse

[loacast]

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

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