Bonjour et Bonne année à tous,
N'ayant pas beaucoup d'expérience avec VBA j'ai recherché sur Internet différent tutoriel pouvant m'aiguiller dans la saisie des codes, je suis cependant arrive à une impasse:
J'ai crée un formulaire composé de 2 ComboBox dont les informations proviennent d'un tableau excel et d'une TextBox.
La 1ère ComboBox me donne le nom d'un produit qui est situé sur la colonne A du tableau sur 176 lignes, la seconde me donne la période, 31/12/17, 31/12/18 et 31/12/18, et dans ce tableau se trouve le prix des différents produit selon la date, j'aimerai que lorsque le produit est sélectionner ainsi que la date la TextBox me donne le prix du produit, voici la formule que j'ai utilisé:
Private Sub CommandButton1_Click()
Set Ws = Sheets("Prix ")
Dim ligne As Long
If Me.ComboBox1.ListIndex = -1 And Me.ComboBox2.Value = "31/12/2017" Then
ligne = Me.ComboBox1.ListIndex + 3
Me.TextBox1 = Ws.Cells(ligne, "B")
ElseIf Me.ComboBox1.ListIndex = -1 And Me.ComboBox2.Value = "31/12/2018" Then
ligne = Me.ComboBox1.ListIndex + 3
Me.TextBox1 = Ws.Cells(ligne, "D")
ElseIf Me.ComboBox1.ListIndex = -1 And Me.ComboBox2.Value = "31/12/2019" Then
ligne = Me.ComboBox1.ListIndex + 3
Me.TextBox1 = Ws.Cells(ligne, "F")
Else
MsgBox ("Pas d'informations disponible")
End If
End Sub
Cependant seul la message box s'affiche. Si quelqu'un aurait une idée je leur en serai très reconnaissant.