Combobox sur plusieurs onglets

[Calvus]

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.

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

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

 

[Lone-wolf]

Ce n'est pas le lac, mais la laque! LOL 😀

Et comme elle, brouillard depuis 3 semaines 😡 . C'est comme ça quand on habite dans une cuvette. Hors de celle-ci, le soleil.

EDIT: 7 est la colonne G, hors tu parle de la colonne D ??? 🙄

 

[youky(BJ)]

Pour ouvrir le combobox et la liste à l'ouvertutre de l'userform
ajout de 2 lignes aprés le Show

Sub Lancement()
UserForm2.Show
UserForm2.ComboBox1.SetFocus
UserForm2.ComboBox1.DropDown
End Sub

Bruno

 

[Lone-wolf]

Re Bruno

Pourquoi une macro???

Private Sub UserForm_Activate()
ComboBox1.SetFocus
ComboBox1.DropDown
End Sub

 

[Calvus]

Merci Bruno,

Peux tu m'expliquer, ou Lone wolf, le Combobox1.ListIndex + 3 ?
J'avais essayé, avec les explications de Lone wolf mais en laissant Combobox1.ListIndex + 1, et là ça ne fonctionnait pas.

 

[youky(BJ)]

Hééé Lone-wolf,
La macro Activate est inutile car la macro reviens elle même aprés Show pour finir le End If
Ou alors j'ai pas pigé.
Je me demande encore pourquoi toutes les données du client ne sont pas sur une seule page et même ligne???
Bruno

 

[Calvus]

Je me demande encore pourquoi toutes les données du client ne sont pas sur une seule page et même ligne???

Parce qu'un client peut avoir plusieurs adresses. Parfois 3 ou 4.
Mais ce sont des adresses qui ne sont pas souvent utilisées.
En revanche, mon fichier, épuré ici pour l'exemple, contient d'autres données du client qui doivent être affichées.
Il était donc beaucoup plus logique de procéder comme cela pour ne pas perdre en lisibilité avec 12 ou 16 colonnes de plus.

 

[Lone-wolf]

Re Bruno, Calvus

@ Bruno: pour moi l'ajout dans la macro Lancement est inutile, puisque tu peux le faire directement dans Activate.

@ Calvus: regarde le post #11 😉. Et une autre sugestion

Private Sub MultiPage1_Change()
If Me.MultiPage1.Value = 1 Then Label15.Caption = Feuil2.Cells(2, 6) 'Titre: Adresse de livraison
End Sub

.Value = 0 est la page 1 - .Value = 1 est la page 2 - .Value = 2 est la page 3