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]

Bonsoir Calvus

Toujours aussi chauve???

Dans la macro, tu n'as aucune référence de la feuille. Il faut mettre With Feuil1-------End With - With Feuil2-------End With - With Feuil3-------End With, en ajoutant les lignes que tu veux avoir dans la combo. Tout ceci dans Userform_Initialize.

 

[Calvus]

Hello Lone !

Comment vas tu ?
Je n'y arrive pas. Le code ne bug plus mais je n'ai pas le résultat escompté.

 

[youky(BJ)]

Bonjour tous,
Voici de retour le fichier qui fonctionne
J'ai fait plusieurs modifs.
Bruno

 

[Calvus]

Bonsoir youky(BJ),

Merci.
C'est presque ça.
Par exemple, la page 2 devrait donner 10 boulevard Antibes, or elle donne 1 avenue...
Ce doit être le numéro des lignes qui n'est pas bon.

 

[youky(BJ)]

C'est le N° colonne qui était pas bon
Rectifié maintenant
Bruno

 

[Lone-wolf]

Bonsoir Bruno , Re le Chauve

ça va bien et toi? Pas mal l'idée du Multipage.

Une sugestion: au lieu de combobox1.listindex; Lgn = Application.Match(ComboBox1, .Columns(2), 0)

 

[Calvus]

Re,

Cette ligne :
CP2.Value = .Cells(Lgn, 5)
pose toujours problème.
On obtient le résultat des colonnes E au lieu de D.

 

[Lone-wolf]

Re

Il faut mettre 4 au lieu de 5 . 1 = A - 2 = B - 3 = C - 4 = D - 5 = E etc.

 

[Calvus]

Lone ! c'est toi qui dis, c'est toi qui l'es !

Comment fait on concrètement au lieu de me parler chinois ?

 

[Lone-wolf]

Fait-on quoi???

On fêtes NOËL????

Private Sub ComboBox1_Change()  '[2]  LISTE des NOMS
Dim plage As Range, cel As Range, target As Range, Lgn

With Feuil1
  Lgn = Application.Match(ComboBox1, .Columns(2), 0)

        Nom.Value = .Cells(Lgn, 2)
        Prenom.Value = .Cells(Lgn, 3)
        Fonction.Value = .Cells(Lgn, 4)
        Adresse.Value = .Cells(Lgn, 6)
        CP.Value = .Cells(Lgn, 7)
        Ville.Value = .Cells(Lgn, 8)
    End With
With Feuil2
      Adresse2.Value = .Cells(Lgn, 6)
      Adresse3.Value = .Cells(Lgn, 8)
      CP2.Value = .Cells(Lgn, 4)
      CP3.Value = .Cells(Lgn, 10)
      Ville2.Value = .Cells(Lgn, 5)
      Ville3.Value = .Cells(Lgn, 11)
End With
End Sub

 

[Calvus]

Oui, en l’occurrence 7 !
Et ce qui est fou, c'est que ça ne fonctionnait pas avec 7 il y a 5 minutes !
A n'y rien comprendre.

Merci beaucoup à vous deux !

Et pour l'autre problème ? Pour que le curseur soit sur le 1 textbox à l'ouverture ?

 

[Calvus]

Pas mal l'idée du Multipage.

Merci !

 

[Lone-wolf]

Pour le curseur

Essaie avec Userform_Activate, Nom.SetFocus

 

[Calvus]

Parfait, merci !
Comment ça va le lac ?