COMBOBOX1

Bonjour,

en faite, j'ais fais 2 userform dont un pour l'enregistrement des nouveaux membres et un autre pour la consultation, modification et suppression des membre enregistrés

j'ais finis le codage de l'Userform1 (enregistrement)

je suis à l'userform2 (consultation, modification et suppression )

mon soucis est que quand je sélection dans la combobox1 au lieu de me remplis le reste automatiquement, on met incompatibilité de type

quelqu'un peut m'aider?

Private Sub ComboBox1_Change()

ligne1 = "[A5]Offset(combobox1.ListIndex,0).row"

Me.TextBox1.Text = Cells(ligne1, 3)
Me.TextBox5.Text = Cells(ligne1, 5)
Me.TextBox6.Text = Cells(ligne1, 6)
Me.TextBox7.Text = Cells(ligne1, 7)
Me.TextBox8.Text = Cells(ligne1, 8)
Me.TextBox9.Text = Cells(ligne1, 10)
Me.TextBox13.Text = Cells(ligne1, 12)
Me.TextBox14.Text = Cells(ligne1, 13)
Me.TextBox18.Text = Cells(ligne1, 15)
Me.TextBox19.Text = Cells(ligne1, 16)
Me.TextBox24.Text = Cells(ligne1, 19)
Me.TextBox25.Text = Cells(ligne1, 20)
Me.TextBox26.Text = Cells(ligne1, 21)
Me.TextBox27.Text = Cells(ligne1, 22)
Me.TextBox28.Text = Cells(ligne1, 23)
Me.TextBox29.Text = Cells(ligne1, 24)
Me.TextBox30.Text = Cells(ligne1, 25)
Me.ComboBox2.Text = Cells(ligne1, 2)
If Cells(ligne1, 9).Value = "Marié(e" Then optionbuton1.Value = True Else optionbuton2.Value = True

If Dir(ThisWorkbook.Path & "\" & "photos" & "\" & ComboBox1 & ".jpg") = "" Then
Me.Image1.Picture = LoadPicture("")
Else
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "MEMBRE " & "\" & ComboBox1 & ".jpg")
End If

End Sub

voici si dessous en image