Bonjour,
Il y a une chose que je ne comprends pas. J'ai passe le code dans tous les sens et je ne comprends pas.
Voici mon bout de code :
Dim i As Integer
MsgBox "On charge les labels"
For i = 1 To 2
Load Me.Lbl_TitreType(i)
With Me.Lbl_TitreType(i)
.Top = Coord(i).Top
.Left = Coord(i).Left
.Visible = True
End With
MsgBox "Fin du chargement du label " & i
Next i
MsgBox "fin des chargement"
For i = 1 To 3
If Not Me.Lbl_TitreType(i) Is Nothing Then
Unload Me.Lbl_TitreType(i)
End If
MsgBox "On décharge " & i
Next i
MsgBox "fin déchargement"
Je croyais que
If Not Me.Lbl_TitreType(i) Is Nothing Then
Unload Me.Lbl_TitreType(i)
End If
ne devait ne pas se faire si le label n'était pas créé mais il se fait quand même.
Pourquoi?
Ce code marche bien si je décharge les 2 première éléments mais au 3ème il me dit que l'objet n'existe pas (logique vu que je ne le crée pas mais comment ce ### arrive à me dire qu'il n'est pas Nothing?)