Bonjour,
J'ai essayé de faire une classe Forme et une classe Cercle qui contient des propriétés comune à Forme (la couleur) mais qui en contient des propriétés pour cercle seulement (le rayon)

J'ai ce code pour la classe cForme :
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
 
Option Compare Database
Option Explicit
 
Private vCouleur As String
 
Public Sub AfficherProprietes()
  MsgBox Couleur
End Sub
 
Public Property Get Couleur() As String
  Couleur = vCouleur
End Property
 
Public Property Let Couleur(ByVal NouvelleValeur As String)
  vCouleur = NouvelleValeur
End Property
J'ai ce code pour la classe cCercle :
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
 
Implements cFormes
Private vRayon As Integer
 
Private Sub cFormes_AfficherProprietes()
  MsgBox cFormes_Couleur & " " & Rayon
End Sub
 
Private Property Get cFormes_Couleur() As String
  cFormes_Couleur = cFormes.Couleur
End Property
 
Private Property Let cFormes_Couleur(ByVal NouvelleValeur As String)
  cFormes.Couleur = NouvelleValeur
End Property
 
Friend Property Get Rayon() As String
  Rayon = vRayon
End Property
 
Friend Property Let Rayon(ByVal NouvelleValeur As String)
  vRayon = NouvelleValeur
End Property

Et puis j'ai ce code sur un bouton d'un formulaire :

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
 
Private Sub Commande0_Click()
  Dim UneForme As cFormes
  Set UneForme = New cFormes
  UneForme.Couleur = "rouge"
  UneForme.AfficherProprietes
 
  Dim UnRond As cCercle
  Set UnRond = New cCercle
  UnRond.Rayon = 25
 
  Dim UnCercle As cFormes
  Set UnCercle = New cCercle
  UnCercle.Couleur = "vert"
  UnCercle.AfficherProprietes
End Sub
J'ai l'erreur : "Variable objet ou variable de blox With non définie"
à ces lignes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
UnCercle.Couleur = "vert"
UnCercle.AfficherProprietes
Quelqu'un peut m'aider?