Unload Me Kills Public Variable

[pacoako]

Bonjour tout le monde!

2e question du jour, je suis vraiment coincé!

J'ai déclaré 2 variables dans mon Module1 et ces 2 variables sont utilisées pour des If/Then par un autre module et jusque là je n'ai pas de problème.. le problème survient quand je «Unload UserFormTraiter». Ce UserForm utilise les variables en question pour des If/Then encore... J'ai ajouter des Msgbox après le UserFormTraiter_Activate pour être certain que les variable sont toujours «En Vie» après l'activation du UserForm, et elles le sont bien... mes variables sont «Tuées» seulement lorsque je «Unload UserFormTraiter». Je n'y comprend rien, je croyais que les variables déclaré Public dans un Module à part reste tel quel, tant que le WorkBook est ouvert?

Je vous laisse un apperçu de mon Module 1 et de mon UserFormTraiter

Je vous remerci tous d'avance!! Ciaoo

===============Module1================
Option Explicit
Public Utilisateur As String
Public LoginType As Integer


===============UserFormTraiter================
Private Sub CommandButtonQuitter_Click()

Unload Me

End Sub

Private Sub UserForm_Activate()

'Load info in all comboboxes
LoadComboBoxes
MsgBox Utilisateur
MsgBox LoginType

End Sub

Sub LoadComboBoxes()

Set UltraSelection = Range(Feuil6.Cells(1, 1), Feuil6.Cells(9999, 1))
LastRowAgent = UltraSelection.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row

If LoginType = 1 Then
PlageAgent = Range(Feuil6.Cells(1, 1), Feuil6.Cells(LastRowAgent, 1))
ComboBoxRechercherAgent.Clear
ComboBoxRechercherAgent.List = PlageAgent
ComboBoxAssignerAgent.Clear
ComboBoxAssignerAgent.List = PlageAgent
End If
If LoginType = 2 Then
PlageAgent = Range(Feuil6.Cells(1, 1), Feuil6.Cells(LastRowAgent, 1))
ComboBoxRechercherAgent.Clear
ComboBoxRechercherAgent.List = PlageAgent
ComboBoxAssignerAgent.Clear
ComboBoxAssignerAgent.List = PlageAgent
End If
If LoginType = 3 Then
ComboBoxRechercherAgent.Clear
ComboBoxRechercherAgent.AddItem Utilisateur
ComboBoxAssignerAgent.AddItem Utilisateur
End If

End Sub

 

[pacoako]

Re : Unload Me Kills Public Variable

Bon et bien, désolé de vous avoir dérrangé avec tous ça, mais le problème semble s'être résolu de lui même... je n'y comprends rien, je n'ai rien changé mais tout fonctionne bien maintenant!

Merci quand même eheh!