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:
Et dans le code de l'userform:
Autre exemple d'un code du module:
Et le code ci dessus bug sur les lignes rouges, j'imagine à cause du chemin.
Avez vous une solution miracle pour ça ?
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 ?