Microsoft 365 Code pour Userform multipage

[J-Laurie]

Bonjour à tous,

J'ai essayé de chercher un sujet relatif à mon problème mais je ne trouve pas ou peut-être ai-je mal cherché.

Je vous explique la situation, je dois faire un fichier de suivi infos personnel, j'ai donc commencé à créer un fichier avec un Userform comportant une zone de recherche, une listbox et une zone multipage avec des textbox alimentés par la feuille personnel de mon fichier.
L'idée ça serait que lorsque je sélectionne une ligne dans ma listbox en fonction de ma recherche, les infos se mettent dans les textbox du multipage. Mais je n'arrive pas à trouver de code correspondant à ce que je souhaite faire.

Merci d'avance pour l'aide que vous voudriez bien m'apporter

Laurie

 

[ChTi160]

Bonjour Laurie
petit problème lorsque l'on veut ouvrir to Userform
il manque la Feuille Source "Personnel COLAS Badge perm."
d'où une erreur , qui n'incite pas a aller plus loin Lol
Bonne journée
jean marie

 

[J-Laurie]

Bonjour Laurie
petit problème lorsque l'on veut ouvrir to Userform
il manque la Feuille Source "Personnel COLAS Badge perm."
d'où une erreur , qui n'incite pas a aller plus loin Lol
Bonne journée
jean marie

Bonjour,
Effectivement, j'ai modifié le nom de la feuille pour la mise en ligne sur le forum, mais j'ai complètement oublié de modifier dans le code. Désolé
Ci-joint le bon fichier

 

[patricktoulon]

bonjour
ben on continu dans la lancée
a l'ouverture de l'userform
je précise que j'ai testé avec le 2d fichier

 

[J-Laurie]

bonjour
ben on continu dans la lancée
a l'ouverture de l'userform
je précise que j'ai testé avec le 2d fichier

Regarde la pièce jointe 1086841

Bonjour, désolé pour les réponses en retard, mais étant en Nlle-Calédonie, le décalage horaire ne m'aide pas.
Concernant le problème d'exécution, justement ça doit être dû à mon code pour le multipage que je n'arrive pas à faire.
En tous cas, merci bcp pour l'aide

Laurie

 

[jcf6464]

Bonjour J-Laurie, Patricktoulon et le forum,

Une réflexion sur le fichier,
Tu à 41 colonnes
Dans les TextBox il te manque les textbox 1, 37, 38, la (9) doit être TextBoxEnreg, et la (10) TextBoxRech d'après ma synthèse,

La colonne A à quoi te sert elle, par-contre la civilité est manquante,

voila voila
Bonne continuation jean claude

 

[CHALET53]

Bonjour à tous,
Mêmes remarques que celles que vous faites
J'ai bricolé pour passer outre
J'ai mis les entêtes dans la listbox en première ligne (ce qui permet, en faisant glisser la listbox vers la droite d'avoir les titres de colonnes
A priori, lors d'une sélection, les infos s'affichent dans les multipages

Je n'ai rien fait concernant les modifications qui pourraient être faites dans ces multipages

 

[jcf6464]

Bonsoir J-Laurie, Patricktoulon, chalet53 et le forum,

Pour laurie regarde si cela te va

bonne continuation jean claude

 

[patricktoulon]

bonjour
j'ai cru comprendre qu'il s'agissait d’Entêté de colonne pour une listebox avec un scroll horizontal en raison de son grand nombre de colonnes

je vous ai donc fait ce petit exemple
l’entête est une 2d listbox de 1 lignes (DANS UNE FRAME!!!)
la listbox contenant la liste est elle même dan une autre frame
le scroll de la frame de la liste agit sur le left de la listbox de une ligne dans sa frame
j'ai cru comprendre aussi qu'il y avait un souhait de moteur de recherche Multi colonne
j'y ai appliqué ma méthode simplifiée
pour le reste(le remplissage des textboxs au click sur liste j'ai laisser vu que ca fonctionnait

en prévisionnel (en vu de modif puis export sur feuille)et là c'est un oublie fatal
quand on filtre vous perdez forcement les index de lignes
donc après modif ça serait un cauchemars pour aller inscrire les modifs sur la bonne ligne(homonyme,doublons,etc...)
DONC j'ai ajouté une colonne aux listboxs;
listebox2(entete) ="ligne"
et dans la liste chaque ligne a son index correspond a la feuille
démonstration

 

[ChTi160]

Bonjour
Bonjour Patrick
pour ce qui est du problème des lignes cible, ça pourrait être mis dans la listbox 1 ( colonne ajoutée en fin de listbox) non ?
Ta gestion est tre

 

[patricktoulon]

bonjour @ChTi160
tu a lu en diagonale
justement c'est déjà fait

 

[ChTi160]

Re non je me suis pas aperçu que le message(incomplet )était parti lol j'ai effectivement lu de biais lol
Excuses!
Jean marie

 

[patricktoulon]

et oui sinon ça aurait été bête d'en parler dans ma réponse si je ne l'aurais pas fait

je fait cependant une toute petite correction

Private Sub Frame13_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)
    Frame14.ListBox2.Left = -Frame13.ScrollLeft + 7
End Sub

et oui elle ne se voient pas mais les frame ont des borderwidth comme les fenêtres
pour les ligne tu va au bout de la scroll on voit bien que c'est repéré

 

[jcf6464]

Bonsoir J-Laurie, Patricktoulon, chalet53 et le forum,

Beau travail patrick,

comment faire pour modifier une ligne de la listeBox si vous avez le temps moi je ne sait pas,

je vais peut être m'en servir pour une base de compétition planeur merci d'avance,

vous avez des nouvelles de J-Laurie

cordialement jean claude
bon WE

 

[CHALET53]

Bonjour
Un essai
Faire les modifs dans les textboxs
Valider par Modifier
Les infos sont reportées dans la feuille et dans la listbox (normalement)

A vérifier