Eviter répétition chemin

Florian53

XLDnaute Impliqué
Bonjour le forum,

Je dispose d'un Userform, qui contient plusieurs frames afin d'essayer de rendre le code plus lisible et j’espère moins long a exécuté, j'ai crée un Module de programmation pour chaque Frame. Je ne voulais pas que le code de L'userform soit trop long afin que je puisse me retrouver plus facilement.

Mais je me retrouve face à un problème:

Comme les événements sont dans l'userform je suis obligé de répéter le chemin à chaque événement:

Code:
Sub Slc_Exp()
Usf_interface.Frame2.Imputation200.Clear
Usf_interface.Frame2.SousFamille200.Clear
Usf_interface.Frame2.ComboBox210.Clear
Usf_interface.Frame2.ComboBox209.Clear
Init_Imputation_Exp
Usf_interface.Frame2.ComboBox210.List = Application.Transpose(Range("Type_envoi"))
End Sub

Et dans le code de l'userform:

Code:
Private Sub Label2_Click()
Slc_Exp
End Sub

Autre exemple d'un code du module:

Code:
Sub Valide_200()
Dim i As Byte, J As Byte
If Usf_interface.Frame2.TextBox209 = vbNullString Or Usf_interface.Frame2.TextBox212 = vbNullString Or Usf_interface.Frame2.Imputation200 = vbNullString Or Usf_interface.Frame2.ComboBox209 = vbNullString Or Usf_interface.Frame2.ComboBox210 = vbNullString Then
MsgBox ("Les champs marqués d'un astérisque (*) sont obligatoires.")
Usf_interface.Frame2.Imputation200.SetFocus
Exit Sub
End If
Application.ScreenUpdating = False
With Sheets(Var_Imputation200).Select
Ligne = Range("B65536").End(xlUp).Offset(1, 0).Row
Cells(Ligne, 2).Value = CDate(Date)
For i = 7 To 13
Cells(Ligne, i).Value = Controls("Usf_interface.Frame2.TextBox" & 200 + i).Value
Next i
Cells(Ligne, 3).Value = Usf_interface.Frame2.Imputation200.Value
Cells(Ligne, 4).Value = Usf_interface.Frame2.SousFamille200.Value
Cells(Ligne, 5).Value = Usf_interface.Frame2.ComboBox209.Value
Cells(Ligne, 6).Value = Usf_interface.Frame2.ComboBox210.Value

Usf_interface.Frame2.Imputation200.Value = ""
Usf_interface.Frame2.SousFamille200.Value = ""
Usf_interface.Frame2.ComboBox209.Value = ""
Usf_interface.Frame2.ComboBox210.Value = ""
For i = 7 To 13
Controls("Usf_interface.Frame2.TextBox" & 200 + i).Value = ""
Next i
End With
Application.ScreenUpdating = True
End Sub

Et le code ci dessus bug sur les lignes rouges, j'imagine à cause du chemin.

Avez vous une solution miracle pour ça ?
 

Statistiques des forums

Discussions
312 913
Messages
2 093 535
Membres
105 753
dernier inscrit
besnard