Valeur textbox selon combobox

[nextrevolution]

Bonjour à tous,

Etant novice en VBA,j'ai cherché pendant quelques heures sur google mais j'arrive pas à trouvé ce qu'il me faut, alors je fait appel à vous.

Je pense que la réponse est simple mais j'ai pas trouvé de tutoriaux pour trouver ma solution.

J'aimerais lorsque j'indique une valeur dans ma combobox, que dans mon Textbox s'affiche la cellule associé par rapport à une base de donnée (je met un exemple en pièces jointes)

Juste au niveau de ma combobox, pour le moment j'ai mis un code qui indique qu'elle ligne prendre mais j'aimerais qu'il prenne automatiquement les cases remplis, j'ai essayé quelques codes que j'ai laissé dans mon exemple mais j'arrive pas à les adapter.

Merci d'avance pour vos réponses

 

[RENAUDER]

Re : Valeur textbox selon combobox

Bonjour,
Dans le code du formulaire, tu rajoutest

Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Sheets(1).Cells(Me.ComboBox1.ListIndex + 2, 2).Value
End Sub

 

[nextrevolution]

Re : Valeur textbox selon combobox

Merci ça fonctionne.

Par contre lorsque c'est une valeur qui est pa sréférencié il m'affiche l'information de la cellule B1. J'ai essayé d'inclure un MsgBox si la valeur est fausse mais ca fonctionne pas. Il doit y avoir une erreur de référence dans mon code.

Private Sub ComboBox1_Change()
    If ComboBox1.Value = True Then
    Me.TextBox3.Text = Sheets("1").Cells(Me.ComboBox1.ListIndex + 2, 2).Value
   End If
    If ComboBox1.Value = False Then
   Me.TextBox3.Text = " "
   Call MsgBox("Le code n'existe pas", vbInformation, Application.Name)
   End If
End Sub

 

[RENAUDER]

Re : Valeur textbox selon combobox

Bonjour,
je ne comprends car ta Combobox est alimentée par la colonne A donc tu n'as que des valeurs qui sont référencées !!!

pour éviter cela, tu mets la propriété Style de ta Combobox à : 2 - fmStyleDropDownList

 

[nextrevolution]

Re : Valeur textbox selon combobox

Re,
Enfaite c'est lorsqu'on rentré les valeurs manuellement, et que la valeur n'est pas dans la combobox. Mais d'avoir changer la propriété Style ça a résolu le problème. Merci

Par contre ma base de donnée risque d'augmenté, je dois écrire quoi à la place de:

Dim i
    For i = 2 To 55
       ComboBox1.AddItem Sheets("1").Cells(i, 1)
    Next

J'avais trouvé sur le forum ce code:

Sheets("1").Cells(65536, ActiveCell.Column).End(xlUp).Row
  ComboBox1.AddItem Sheets("1").Cells(i, ActiveCell.Column).Value

Mais il doit manquer une partie du code pour que ca fonctionne

 

[RENAUDER]

Re : Valeur textbox selon combobox

Bonjour,
Tu peux mettre ceci

Private Sub UserForm_Initialize()
    With Sheets("Feuil1").Range("A2")
        Me.ComboBox1.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
    End With
End Sub

 

[nextrevolution]

Re : Valeur textbox selon combobox

Merci tout fonctionne