Calvus
XLDnaute Barbatruc
Bonsoir à tous,
J'ai un userform avec un combobox fonctionnel.
J'aurais aimé ajouté des champs dont les valeurs sont situées sur une autre feuille. Et là, problème !
Tenté avec Find mais sans succès.
Sur le formulaire, il y a un multi page.
Le 1er indique les valeurs de la feuille 1
Les 2 et 3 doivent indiquer les valeurs de la feuille 2, respectivement colonnes F:H pour le 2, et I:K pour le 3.
Par ailleurs, j'ai fait en sorte que le multipage 1 soit activé au lancement du formulaire, mais je n'ai plus l'initialisation sur le textbox Société.
Savez vous comment faire ?
Merci
J'ai un userform avec un combobox fonctionnel.
J'aurais aimé ajouté des champs dont les valeurs sont situées sur une autre feuille. Et là, problème !
Tenté avec Find mais sans succès.
VB:
Private Sub ComboBox1_Change() '[2] LISTE des NOMS
Dim Lgn, plage As Range, cel As Range, target As Range
'Set plage = Feuil35.Columns(2)
'Set cel = plage.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Find(Lgn)
Lgn = ComboBox1.ListIndex + 1
With Tableau
Nom.Value = .Cells(Lgn, 2)
Prenom.Value = .Cells(Lgn, 3)
Fonction.Value = .Cells(Lgn, 4)
Adresse.Value = .Cells(Lgn, 5)
'Adresse2.Value = .Cells(Lgn, 5) A modifier, idem pour CP2, adresse3, etc...
CP.Value = .Cells(Lgn, 6)
Ville.Value = .Cells(Lgn, 7)
TelFixe.Value = .Cells(Lgn, 8)
TelPort.Value = .Cells(Lgn, 9)
Mail.Value = .Cells(Lgn, 10)
MSN.Value = .Cells(Lgn, 11)
End With
End Sub
Le 1er indique les valeurs de la feuille 1
Les 2 et 3 doivent indiquer les valeurs de la feuille 2, respectivement colonnes F:H pour le 2, et I:K pour le 3.
Par ailleurs, j'ai fait en sorte que le multipage 1 soit activé au lancement du formulaire, mais je n'ai plus l'initialisation sur le textbox Société.
Savez vous comment faire ?
Merci