Discussion :

[samtheh]

BOnjour à tous,

VOici mon problème :

Code :

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

1
2
3
4
5
 
Set MEM_temp = Nothing
Set MEM_temp = MEMC_temp.searchMembreNP("toto", "tata")
If MEM_temp <> Null Then
...

J'ai une erreur d'execution sur le If....

Voici le code de ma fonction :

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
17
18
19
20
21
22
 
Public Function searchMembreNP(ByVal s_nom As String, ByVal s_prenom As String) As M_CMembre
    'retour d'un membre en fonction du nom et du prenom
 
    For i = 1 To (COL_CMembres.Count - 1)
            Dim temp As M_CMembre
            Set temp = COL_CMembres.Item(i)
            Debug.Print "poup " & i
            If temp.getNom = s_nom And temp.getPrenom = s_prenom Then
                Debug.Print "temp " & temp.getNom
 
                Set searchMembreNP = temp
                Debug.Print "FIN"
                Exit For
            Else
                 Set temp = Nothing
            End If
 
    Next
    SetSearchMembreNP = Null
 
End Function

Une idée ? Merci de votre aide.

[Demco]

Problème d'utilisation de Null recurrent, la FAQ t'explique comment savoir si une valeur est nulle ou non.

[samtheh]

Ca fonctionne avec la fonction isNull. Désolé