Discussion :

[oufti84]

Je semble avoir égaré quelque peu VBA et ça semble réciproque...

Je reçois systématiquement le message "membre de méthode ou de données introuvables".

Voici le code et l'élément pour lequel je reçois une erreur

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub age()
'
' age Macro
'
' Touche de raccourci du clavier: Ctrl+g
'
effacement
Dim datenais As Date
Cells(1, 1) = "Nom"
Cells(1, 2) = "Date naissance"
Cells(1, 3) = "Age"
Cells(1, 4) = "Status"
Cells(1, 5) = "Genre"
n = InputBox("Pour combien de personnes désirez-vous calculer l'âge ?")
For i = 2 To 5
Userformage.Show
    Cells(i, 1) = Userformage.Nom.Text
    datenais = Userformage.datenais.Text
    Cells(i, 2) = datenais
    Cells(i, 5) = Userformage.Genre.Text
    Cells(i, 3) = fctage(datenais)
    Select Case Cells(i, 3)
    Case Is > 65
        Cells(i, 4) = "Pensionné"
        c = c + 1
        a = a + Cells(i + 3)
    Case 2 To 18
        Cells(i, 4) = "A l'école"
    Case Else
        Cells(i, 4) = "En activité"
    End Select
    If Max = 0 Or Cells(i, 3) > Max Then
        Max = Cells(i, 3)
    End If
    If Min = 0 Or Cells(i, 3) < Min Then
        Min = Cells(i, 3)
        nommin = Cells(1, 1)
    End If
Unload Userformage
Next i
adjust

End Sub

J'ai beau chercher sur les forums, je ne parviens pas à trouver d'où vient mon erreur. Est-ce que quelqu'un pourrait m'aider à y voir plus clair s'il vous plaît ? Merci

[Thautheme]

Bonjour Oufti, bonjour le forum,

Pas sûr que ce soit la solution mais il semblerait que tu utilises une variable datenais qui porte le même nom qu'un contrôle (TextBox, je pense) de l'UserForm. Peut-être cette confusion provoque le message...
Essaie comme ça :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub age()
'
' age Macro
'
' Touche de raccourci du clavier: Ctrl+g
'
effacement
 
Cells(1, 1) = "Nom"
Cells(1, 2) = "Date naissance"
Cells(1, 3) = "Age"
Cells(1, 4) = "Status"
Cells(1, 5) = "Genre"
n = InputBox("Pour combien de personnes désirez-vous calculer l'âge ?")
For i = 2 To n
    Userformage.Show
    Cells(i, 1) = Userformage.Nom.Text
    Cells(i, 2) = CDate(Userformage.datenais.Text)
    Cells(i, 5) = Userformage.Genre.Text
    Cells(i, 3) = fctage(datenais)
    Select Case Cells(i, 3)
        Case Is > 65
            Cells(i, 4) = "Pensionné"
            c = c + 1
            a = a + Cells(i + 3)
        Case 2 To 18
            Cells(i, 4) = "A l'école"
        Case Else
            Cells(i, 4) = "En activité"
    End Select
    If Max = 0 Or Cells(i, 3) > Max Then
        Max = Cells(i, 3)
    End If
    If Min = 0 Or Cells(i, 3) < Min Then
        Min = Cells(i, 3)
        nommin = Cells(1, 1)
    End If
    Unload Userformage
Next i
adjust
End Sub

[oufti84]

Bonjour,

Merci beaucoup pour votre réponse. A présent, j'ai la commande "userformage.show" qui se surligne en jaune et je reçois le message d'erreur "erreur d'exécution '424" : objet requis.

Avez-vous une idée de ce que ça peut bien être ?

[Thautheme]

Re,

Ce genre d'erreur se trouve souvent dans le code d'initialisation ou d'activation de l'UserForm. Mais sans avoir ni le code ni le fichier sous la main difficile de t'aider davantage...