Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
If Me.ComboBox2.Value = "" Then Exit Sub 'si la ComboBox2 est vide, sort de la procédure
'récupère dans la TextBox2 la valeur à l'intersection de REP et du mois
Me.TextBox2.Value = Sheets("Feuille relevé journalier 2012").Cells(ComboBox1.ListIndex + 8, ComboBox2.ListIndex + 4)
'récupère dans la TextBox2 la valeur à l'intersection de REP et du mois antérieur
Me.TextBox3.Value = Sheets("Feuille relevé journalier 2012").Cells(ComboBox1.ListIndex + 1, ComboBox2.ListIndex + 4)
Dim Dico As Object, c As Range
With Sheets("Feuille relevé journalier 2012")
For Each c In .Range(.[a2], .Cells(.Rows.Count, 1).End(xlUp))
If c = Me.ComboBox1.Value Then
Me.TextBox4 = c.Offset(, 1).Value
Exit For
End If
Next c
End With
End Sub
Private Sub ComboBox2_Change()
If Me.ComboBox1.Value = "" Then Exit Sub 'si la ComboBox1 est vide, sort de la procédure
'récupère dans la TextBox2 la valeur à l'intersection de REP et du mois
Me.TextBox2.Value = Sheets("Feuille relevé journalier 2012").Cells(ComboBox1.ListIndex + 8, ComboBox2.ListIndex + 4)
'récupère dans la TextBox2 la valeur à l'intersection de REP et du mois antérieur
Me.TextBox3.Value = Sheets("Feuille relevé journalier 2012").Cells(ComboBox1.ListIndex + 1, ComboBox2.ListIndex + 4)
End Sub