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
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