Réinitialiser un objet

[Tinnou]

Bonjour!

Dans une macro, j'ai défini des objets Pays et Habitants (entre autre, mais je simplifie):

Public Type Pays
 Nom As String
 NombreHabitants As Long
End Type

Public Type Habitant
 Name As String
 Age As Integer
End Type

Public France as Pays
Public Allemagne as Pays

Public Toto as Habitant
Public Titi as Habitant

A un moment donné, dans ma macro, j'ai besoin de réinitialiser un pays et un habitant donné:

Sub Main()

[...]

InitializePays(France)
InitializeHabitant(Toto)

[...]

End Sub

Sub InitializePays(MonPays as Pays)
 Dim NewPays As Pays
 MonPays = NewPays
End Sub

Sub InitializePays(MonHabitant as Habitant)
 Dim NewHabitant As Habitant
 MonHabitant = NewHabitant
End Sub

Cela a pour effet de remettre à zéros tous les paramètres du pays (nom et nombre d'habitants), et de l'habitant (nom et âge).


J'aimerais cependant créer une procédure qui puisse remplasser IntializePays et InitializeHabitant: elle prendrait en entrée un Variant (donc soit un objet Pays soit un objet Habitant), et le réinitialiserait.

Il me suffirait alors de l'appeler ainsi:

Sub Main()

[...]

Initialize(France)
Initialize(Toto)

[...]

End Sub

Est-ce possible?


Merci d'avance!!!!!