Eviter répétition chemin

[Florian53]

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:

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:

Private Sub Label2_Click()
Slc_Exp
End Sub

Autre exemple d'un code du module:

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 ?

 

[Florian53]

Cells(Ligne, i).Value = Controls("Usf_interface.Frame2.TextBox" & 200 + i).Value

 

[mapomme]

Bonjour Florian53,

Avez vous une solution miracle pour ça ?

Comme c'est d'actualité, rejoindre le Pape à Fátima pour y attendre en sa compagnie (ça devrait aider 🙄) l'apparition d'un fichier joint 🙂😀

Bon! Je sors...

 

[eriiic]

Bonjour,

...rendre le code plus lisible...

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

eric

 

[Florian53]

Super, merci à vous