Message d'erreur lié à la méthode ou des données introuvables.
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:
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 :)
