Cellule excel vers Userform

[gislain99]

Bonjour,

J'ai un Userform nomé "Userform3" avec une multipage. Sur une des pages nomé "Containers" j'ai plusieur textbox
listbox bouton qui me permete de renseigner une feuille excel nomé "bases containers" jusque la pas de probleme mais j'ai un bouton pour réaliser des modifications quand je clique dessus j'ouvre un userform nomé "Userform5" qui me demande de saisir l'immatriculation à modifier puis je valide et la je voudrais que toutes les info disponible sue cette immatriculation réaparesse dans les textbox listbox de ma page nomé "container".
Une petite precision mon immatriculation qui ce trouve en colonne "A" à etait rentré a l'aide de 3 textbox et un label ((Format des saisies)1er textbox AAAA ; 2eme textbox 123456 ; label - ; 3eme Textbox 3).

Ci joint mon code

Comme vous pouvez le voir j'ai fais plusieur essais mais pas de bon resultat.

'Modification container
Private Sub CommandButton1_Click()
Dim cel As Range, lig&, i&
Dim Resultat As Range
If TextBox1 + TextBox2 + Label2 + TextBox3 <> "" Then
Set cel = Feuil11.Range("A2:A" & Feuil11.Range("A" & Rows.Count).End(xlUp).Row).Find(TextBox1 + TextBox2 + Label2 + TextBox3, , , xlWhole)
If Not cel Is Nothing Then lig = cel.Row Else MsgBox "Aucune correspondance trouvée", , "Pas de correspondance": Exit Sub
'Resultat.TextBox4 = Feuil11.Cells(lig, 1)
'Resultat.TextBox5 = Feuil11.Cells(lig, 1)
'Resultat.TextBox6 = Feuil11.Cells(lig, 1)
'Resultat.TextBox7 = Feuil11.Cells(lig, 2)
'Resultat.TextBox8 = Feuil11.Cells(lig, 2)
'Uerform3.MultiPage1.Pages("page1").ComboBox1.Value = Feuil11.Cells(lig, 3)
'Me.ComboBox2.Value = Feuil11.Cells(lig, 4)
Resultat.TextBox18 = Feuil11.Cells(lig, 5)
Resultat.TextBox146 = Feuil11.Cells(lig, 6)
Resultat.ComboBox3 = Feuil11.Cells(lig, 7)
Resultat.TextBox10 = Feuil11.Cells(lig, 8)
Resultat.ComboBox5 = Feuil11.Cells(lig, 9)
Resultat.ComboBox6 = Feuil11.Cells(lig, 10)
Resultat.ComboBox7 = Feuil11.Cells(lig, 11)
Resultat.ComboBox8 = Feuil11.Cells(lig, 12)
Resultat.TextBox20 = Feuil11.Cells(lig, 13)
Resultat.TextBox61 = Feuil11.Cells(lig, 14)
Resultat.Show
End If
End Sub

Ci joint mon fichier

Pour ouvrir Appuyer sur le bouton valider
Puis sur le bouton container et vous seraez sur la page ou j'ai besoin d'aide

Merci d'avance

 

[gislain99]

Re : Cellule excel vers Userform

manque t'il des information dans ma demande