Récupérer ligne d'une combobox pour textbox

bonjour à tous

Voila je viens de créer un userform qui me permet de filtrer le N°affaire.

Cette userfom est composé d'un filtre par combobox et de plusieurs textbox qui énumère les différents aspect technique de mon affaire.

D'autant plus qu'il me sert aussi à compléter une partie des données manquante à l'aide de 2 textbox.

Mon problème est de compléter ces 2 textbox pour que le nom entré dans celle-ci se retrouve sur la même ligne que celle de mon filtre.

comment dois je mis prendre???????????

en espérant avoir été assez explicite.


et voila le tableur le probleme ce situ sur feuille 2(gestionnaire des plans)

116cahier-des-plans.rar (213.62 Ko)

Bonjour

Essaie après avoir modifié comme suit les code dans l'USF2

Remplace

Public lg As Integer
Private Sub ComboBox1_Change()

Dim cherch As String, derlign As Long

derlign = Sheets("GESTIONNAIRE_DES_PLANS").Range("B1000").End(xlUp).Row
cherch = ComboBox1

lg = Sheets("GESTIONNAIRE_DES_PLANS").Range("B2:B" & derlign).Find(cherch, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, MatchCase:=False).Row

    TextBox1.Value = Cells(lg, 3)
    TextBox2.Value = Cells(lg, 4)
    TextBox3.Value = Cells(lg, 5)
    'TextBox4.Value = Cells(lg, 8)
    'TextBox5.Value = Cells(lg, 9)
End Sub

Vielle bien à ce que la variable lg soit bien déclarée en premier !! Donc au dessus de ta première macro dans l'USF

Ensuite modifie :

Private Sub CommandButton1_Click()
Cells(lg, 8) = TextBox4.Value
Cells(lg, 9) = TextBox5.Value

Unload Me
End Sub

Tant qu'à faire modifie aussi celui ci-après

Private Sub UserForm_Initialize()

With Sheets("GESTIONNAIRE_DES_PLANS")
For Each cell In .Range("B2:B" & .Range("B1000").End(xlUp).Row)
ComboBox1.AddItem cell
Next
End With

End Sub

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

Amicalement

Ben franchement merci beaucoup Dan sa marche nickel^^.

Rechercher des sujets similaires à "recuperer ligne combobox textbox"