Récupérer intersection ligne-colonne de deux combobox dans textbox

Bonjour à vous,

J'ai un tableau qui comporte en X des types de sol et en Y la profondeur du sol. L'intersection me donne une valeur qui dépend des facteurs type de sol et profondeur de sol combinés.

Le type et la profondeur du sol ont chacun leur combobox. J'aimerais qu'une fois les deux combobox remplies, la valeur de l'intersection apparaisse dans une textbox

Par exemple, le sol est limoneux, il a une profondeur comprise entre 0 et 60cm donc la valeur qui apparait vaut 15

Ci-joint mon fichier mais je ne vois pas du tout comment faire

Quelqu'un pour éclairer ma lanterne ?

Merci d'avance à vous

Bonjour,

une solution possible serait d'utiliser un tableau(array) contenant les valeurs de la feuille et d'utiliser les listindex de chaque combobox comme indices pour lire dans le tableau:

Tout en haut du module de code de l'userform, déclaration des variables accessibles à l'ensemble du module :

Dim T, i As Byte, j As Byte

mise en tableau des valeurs de la feuille :

Private Sub UserForm_Initialize()
T = Worksheets("N restant").Range("C3:F6")
End Sub

Initialisation des variables indices pour lecture du tableau:

Private Sub ComboBox1_Change()
i = ComboBox1.ListIndex + 1
If j > 0 Then TextBox1.Value = T(i, j)
End Sub

Private Sub ComboBox2_Change()
j = ComboBox2.ListIndex + 1
If i > 0 Then TextBox1.Value = T(i, j)
End Sub

A+

Salut Algoplus,

Ton code fait exactement ce que je souhaitais.

Merci beaucoup et bonne journée =)

1