Discussion :

[Eric_03]

Bonjour,
j'utilise le tutoriel de Pierre Fauconnier sur les modules de classes "Création et utilisation de classes personnalisées en VB 6.0 et vb". Je reste bloqué sur "Génération d'une erreur au sein de la classe" partie IV-D-1. Le 2eme bloc de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
On Error GoTo Erreurs
Contact.Prenom = "Pierre"
Contact.DateNaissance = DateSerial(2008, 12, 26)
 
MsgBox Contact.Prenom & " a " & Contact.Age & " ans"
 
Erreurs:
Select Case Err
    Case -2147221503
        MsgBox "La date saisie n'est pas valide et ne sera pas enregistrée", vbOKOnly + vbExclamation, "Erreur de saisie"
        Resume Next
    End Select"

que j'ai inséré dans un module ne prend pas la main.

Merci pour les explications que vous pourriez m'apporter.

Eric

[ouskel'n'or]

Comment déclares-tu l'appel au module de classe dans ton application en cas d'erreur ?

[Eric_03]

Le classeur Tuto.xls en Pj ne comporte qu'une vingtaine de ligne de code.


Merci
Eric

[Eric_03]

Est ce que cela correspond à la philosophie de la gestion des erreurs dans un module de classe?

Cordialement
Eric