Bonjour à tous,
Je suis en train de créer un formulaire. Je voudrais renseigner mes textbox en fonction de 2 variables.
J'ai 2 onglets, un avec des données en français et l'autre en anglais.
Dans chacun de ces onglets des données sont renseignées en fonction des utilisateurs.
J'arrive à renseigner les textbox en fonction des utilisateurs. Je voudrais que la macro aille cherche les données dans l'onglet correspondant. Ca marche dans le Userform Initialize mais pas dans le Nom_change. Quelqu'un a t'il une idée pour m'aider ? Merci beaucoup d'avance !
Private Sub Userform_Initialize()
Me.langue.AddItem "Français"
Me.langue.AddItem "Anglais"
Dim S As String
S = langue.Value
With Sheets(S)
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
Me.nom.AddItem (cell)
Next
End With
End Sub
Private Sub Nom_Change()
Dim I As Byte
With Sheets(S)
For I = 2 To 21
Me("Box" & I) = .Cells(Me.nom.ListIndex + 2, I)
Next I
End With
End Sub
Je suis en train de créer un formulaire. Je voudrais renseigner mes textbox en fonction de 2 variables.
J'ai 2 onglets, un avec des données en français et l'autre en anglais.
Dans chacun de ces onglets des données sont renseignées en fonction des utilisateurs.
J'arrive à renseigner les textbox en fonction des utilisateurs. Je voudrais que la macro aille cherche les données dans l'onglet correspondant. Ca marche dans le Userform Initialize mais pas dans le Nom_change. Quelqu'un a t'il une idée pour m'aider ? Merci beaucoup d'avance !
Private Sub Userform_Initialize()
Me.langue.AddItem "Français"
Me.langue.AddItem "Anglais"
Dim S As String
S = langue.Value
With Sheets(S)
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
Me.nom.AddItem (cell)
Next
End With
End Sub
Private Sub Nom_Change()
Dim I As Byte
With Sheets(S)
For I = 2 To 21
Me("Box" & I) = .Cells(Me.nom.ListIndex + 2, I)
Next I
End With
End Sub