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

 

[CHALET53]

...
Une modif apportée au fichier ci-dessus

 

[jcf6464]

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

Ce que j'ai pu faire avec ce confinement (reste à faire une suppression de ligne et peut être améliorer le codage de l'ajout.!!!)
attention les combobox sont lier avec des textbox,

Vous les maitres du codage merci de nous faire profiter de votre savoir ,

bon WE et prenez soins de vous tous,

jean claude

 

[jcf6464]

Re tous

j'ai trouvé

Private Sub B_sup_Click()
Dim Indexlist
'Détermination de la ligne dans la feuille de base
Indexlist = ListBox1.ListIndex + 3
If Indexlist < 2 Then Exit Sub
Sheets("Personnel").Rows(Indexlist).Delete
Application.ScreenUpdating = False



   Unload Me
   RechIntuit2.Show 0
End Sub

a+ jean claude

 

[CHALET53]

Tu peux aussi supprimer toute ta série de Range pour l'ajout et les remplacer par cela :

For I = 0 To UBound(tbl, 2) - 2
Cells(ligne, I + 1) = Me("Textbox" & I + 1)
Next I

Bien vu, l'idée de masquer les textbox par les comboboxs pour conserver le corps du programme

 

[CHALET53]

Pour la suppression d'une ligne comme pour la modification Patrick a rajouté en dernière colonne de la listbox le numéro de ligne (utile pour réaliser ces opérations)

Ncol = ListBox1.ListIndex

With ListBox1
nligne = .List(Ncol, 49)
End With

 

[patricktoulon]

bonjour @CHALET53
j'ai regardé le fichier
peut Etre un autre nom que NCol aurai été plus adéquat
et pour une standardisation (réutilisation éventuelle du code dans un autre project ) j'aurais mis .columncount-1 à la place de 49
c'est du codage bio (recyclable)

With ListBox1
nligne = .List(.listindex, .columncount-1)
End With

 

[jcf6464]

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

Merci à vous tous
Ici temps pourri,

dernière mouture du fichier de J-Laurie que l'on n'a pas entendu.!!!,

je pense que je vais arrêter là et me concentrer sur mon projet suivi pilote,

Cordialement jean claude

Oups rectifier sur le fichier,

 

[patricktoulon]

Bonjour @jcf6464
c'est vrai qu' on l'a beaucoup vu @J-Laurie
ca servira a d'autre
revoie quand même ta gestion boutons c'est pas ergonomique le bouton modifier qui supprime une ligne c'est pas tellement bien si tu vois ce que je veux dire

 

[jcf6464]

Bonjour Patricktoulon

Oups

Oui c'est vrai copie coller mais sans regarder des fois , rectifier sur post #22

Bon aprem

 

[patricktoulon]

a toi aussi

 

[J-Laurie]

Bonjour à tous,

Désolé pour cette semaine sans signe de vie, je n'ai pas pu me connecter. Mais là franchement je ne sais plus où donner de la tête avec votre super aide à tous , je suis choquée. Vraiment merci merci.

@patricktoulon vraiment merci pour le boulot, c'est impressionnant
Merci aussi à @jcf6464 @ChTi160 @CHALET53 vous m'avez vraiment enlevé une grande épine du pied. C'est vrai que le bidouillage c'est bien mais quand on ne comprend pas tout, c'est pas terrible.

Je vous souhaite à tous une bonne journée ou nuit selon votre heure de lecture

 

[jcf6464]

Bonjour à tous,

Avec plaisir J-Laurie , il ou elle.!!!

bonne continuation jean claude

 

[jcf6464]

Bonjour à tous,

Une pour la route saisie des dates
(ce serais plus simple de passer par une classe mais sait pas faire)

bonne soirée jean claude

 

[patricktoulon]

bonsoir @jcf6464
kado!!

 

[jcf6464]

Bonsoir Patrick, et le forum

qui cet le meilleur c'est patrick

merci