Bonjour SOTIN, LouReeD , le forum,
On peut peut-être simplifier le code ?
arr = Array("AntarroMGris", "AntarroMBlanc soie", "AntarroMInox", "AntarroMNoir terra", "AntarroDmGris", "AntarroDmBlanc soie", "AntarroDmInox", "AntarroDmNoir terra")
Me.TextBox4.Value = Clear
For i = LBound(arr) To UBound(arr)
If Me.TextBox3.Value = arr(i) Then Me.TextBox4.Value = i + 1
Next i
Cordialement,