Aide listbox liée avec une feuille de saisie

Bonjour,

Je suis bloqué sur mon projet VBA, j'ai un tableau de saisie classique.

Au bout de la ligne saisie j'ai une macro qui m'ouvre une userform avec une recherche lié a une listbox. Ça c'est OK

C'est la que ça ce complique je n'arriva pas a trouver une corrélation entre la ligne trouvé dans la listbox et mon bouton résultat qui me permet de remplir ma feuille de résultat?

Pouvez vous me donner un début d'idée de code...

Merci

Bonjour toutes et tous

Regarde si çà te convient

Hello, oui merci de votre aide...

Hello,

Par contre j'ai mis le code pour les CBx.

Mais du coup je ne récupère pas les autres de donnée de ma ligne pour remplir la feuille de résultat?

Bonjour,

Il faut que tu rajoutes dans l'Userform_Initialise (un exemple , j'ai ajouté DATE pour la date de naissance lettre D, il faut ensuite que tu crées ta combo dans ton Useform Unresult et en dernier temps pour qu'elle s'affiche sur ta feuille RESULTATS et RESULTATS LITHYASE ajouter les lignes Exemple sur le bouton de commande de Commandbutton1 et pour ta feuille LYTHIASE idem mais là se sera le bouton de commande CommandButton4 , c'est pour cela qu'il est important de nommé les boutons de commandes correctement afin de se repérer facilement

Private Sub CommandButton1_Click()
Sheets("RESULTATS").Range("C13").Value = UCase(CBxNoms.Text)            ' RESULTATS NOMS
Sheets("RESULTATS").Range("G13").Value = LCase(CBxPrenoms.Text)         ' RESULTATS PRENOMS
Sheets("RESULTATS").Range("C16").Value = LCase(CBxDate.Text)            ' RESULTATS DATE DE L'ANALYSE
Sheets("RESULTATS").Range("G17").Value = LCase(CBxService.Text)         ' RESULTATS SERVICE
Sheets("RESULTATS").Range("C14").Value = LCase(CBxNee.Text)             ' RESULTATS DATE DE NAISSANCE
End Sub

Private Sub UserForm_Initialize()
ListBoxResultat.ColumnCount = 4
ListBoxResultat.ColumnWidths = "60;60;60;60"
Set CL = New ComboBoxLiées
CL.Plage Tableau.Rows(2)
CL.Add Me.CBxDate, "A"
CL.Add Me.CBxNoms, "B"
CL.Add Me.CBxPrenoms, "C"
CL.Add Me.CBxNee, "D"
CL.Add Me.CBxService, "E"
CL.CorrespRequise = True
CL.Actualiser
End Sub

je te mets un aperçu ci-joint afin de ne pas t'embrouiller le cerveau

Ok merci, j'ai compris encore merci de votre aide.

Re bonjour

Je t'ai avancé un peu le travail

cordialement,

André

Bonjour toutes et tous,

Pour éviter les #div/0

Pour la colonne AJ

(à tirer jusqu'en bas au max par exemple)

=SIERREUR(AD2/AC2;"-") 

Pour la colonne AK

=SIERREUR(=AG2/AC2;"-") 

Idem pour les autres colonnes : AL, AM, AN et AO

cela te mettra un joli trait d'union à la place des #DIV/0