COMBOBOX1

Résolu
amram.a Messages postés 56 Date d'inscription   Statut Membre Dernière intervention   -  
amram.a Messages postés 56 Date d'inscription   Statut Membre Dernière intervention   -
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



5 réponses

Réponse 1 / 5
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 

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

Vous ne voyez pas les " en debut et fin? C'est une chaine de caracteres pas une instruction
Manque un point entre [A5] et OFFSET
0
amram.a Messages postés 56 Date d'inscription   Statut Membre Dernière intervention  
 
ok merci f894009
je vais essayé
0
Réponse 2 / 5
amram.a Messages postés 56 Date d'inscription   Statut Membre Dernière intervention  
 
merci f894009

j'ai mis le point mais ça ne passe pas !
y a pas une autre méthode
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Vous avez enlevez les " ici: 

ligne1 = "[A5]Offset(combobox1.ListIndex,0).row"
0
Réponse 3 / 5
amram.a Messages postés 56 Date d'inscription   Statut Membre Dernière intervention  
 
AH VRAIMENT CA NE PASSE TOUJOURS PAS
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 

ligne1 = [A5].Offset(ComboBox1.ListIndex, 0).Row

chez moi ca marche

Sans votre fichier, si toujours pas marche, je ne peux rien faire
0
Réponse 4 / 5
amram.a Messages postés 56 Date d'inscription   Statut Membre Dernière intervention  
 
bon ça marche maintenant mais quand je met ça:

If Cells(ligne1, 9).Value = "Célibataire" Then optionbuton1.Value = True Else optionbuton2.Value = True

sa ne passe plus !!

la partie en gras sort en jaune
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

OptionButton
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
amram.a Messages postés 56 Date d'inscription   Statut Membre Dernière intervention  
 
merci f894009 ça marche parfaitement
une fois de plus merci doyens
0