Combobox

[breeze]

Au secours!
J'ai un problème avec la longueur de macro.
DAns ma user form il y a un combobox qui m'affiche mes 400 élèves.
Je veux qu'en sélectionnant un nom , mon curseur se positionne à la page 2 et que la fiche de l'élève apparaisse en haut de la page.
Pour se faire j'ai utiliser cette formule

Private Sub ComboBox3_Change()

If ComboBox3.Value = Range("feuil1!d5").Value Then
Sheets("feuil2").Select
Range("a4").Select
End If
Le problème c'est qu'il faudrait que je l'écrive 400 fois.
Y a-t-il un moyen plus court???
Mon fichier est trop lourd pour le joindre. J'espère avoir été clair
Merci pour votre aide

 

[néné06]

Re : Combobox

Bonjour breeze

En utilisant
cells(ComboBox3.listindex +1 ,colonne).select
Avec une petite PJ, je cernerai mieux le probléme.

Cordialement

 

[Paritec]

Re : Combobox

Bonjour Breeke le forum,
je comprend bien pour les 400 noms d'élèves mais le reste ??? !!!!
pourrais-tu recréer un fichier même type que le gros avec seulement quelques 10 lignes et 10 fiches pour te faire un truc qui marche comme il faut
avec les explications dans le fichier
a te relire
a+
papou 🙂

 

[Paritec]

Re : Combobox

Bonjour Néné,
oui avec un petit fichier on comprendrait mieux son affaire de fiche à afficher
a+
Papou🙂

 

[néné06]

Re : Combobox

Bonjour Paritec

D'après ce que j'ai compris , je pense donc que listindex pourrait lui convenir,mais après un modèle, nous comprendrions mieux ses besoins?

A+

 

[breeze]

Re : Combobox

Bonjour
voici le fichier réduit j'ai laisser le plus important
Donc en ouvrant le fichier la userform devrait ouvrir. Dans la UF il y a la combobox qui comporte le noms des élèves. En cliquant sur un nom il me renvoie dans l'autre page ou il y aura la fiche de mes 400 élèves.
en cliquant dans la UF ca amème mon curseur dans la page 2 et comme les fiches sont une en dessous de l'autre, le curseur se déplace pour amener la bonne fiche un haut de l'écran.
Je ne sais pas si je suis clair
Merci

 

[néné06]

Re : Combobox

Peut étre comme ceci?

A+

 

[breeze]

Re : Combobox

Merci Néné ton fichier fonctionne très bien mais quand je copie la macro combobox3 dans mon classeur il m'apparait cette erreur
Cells(5 + ((ComboBox3.ListIndex - 2) * 85), 4).Select. Est-ce que la listindex doit être modifié ou quoi ??

Merci

 

[néné06]

Re : Combobox

ComboBox3.ListIndex est le numero de la fiche choisie dans la liste,mais la premiere valeur choisie sera en listindex=0 et ainsi de suite.
85 car une fiche à l'autre fait 85 lignes
Le 5 car la premiere ligne des fiches est en ligne 5
4 correspond à la 4eme colonne.

A adapter selon tes fiches

A+

 

[breeze]

Re : Combobox

Bonjour Néné 06
Je me sent vraiement niaiseux mais je ne saisie pas. Dans mon classeur Quand je clique sur les 3 premiers noms j'obtiens le message d'erreur. a partir du 4ième nom c'est correct
Je m'excuse et merci beaucoup

 

[breeze]

Re : Combobox

Merci Néné,
Ça fonctionne très bien
Merci infiniement pour ton aide précieux et merci aux autres qui m'ont apporté de bonnes idées.
A+