Textbox combobox problème pour mon inventaire

Version imprimable

Bonsoir bonsoir,

Pour mon inventaire, j ai un soucis.
J'aimerai afficher les info dans une textbox par rapport a une liste dans une combobox cellule de la meme ligne.
Info de la combobox en collone B et l'info a trouver dans la textbox en A.

J'ai test avec ca mais rien de ne fonction il me met que j'ai une erreur de compilation sub ou fonction non définie
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub selection_1_Change() ****With ThisWorkbook.Sheets("Inventaire") ********For Each Nom In .Range("B2:B" & .[B1048576].End(xlUp).Row) ************If CStr(Nom) = CStr(Me.selection_1.Value) Then ****************Me.refmouv_1.Value = .Cells(Nom.Row, 0) ************End If ********Next ****End With End Sub
Désole mais suis vraiment pas doué en VBA

Merci d'avance pour votre aide :)

SAlut,

tu fais référence à la colonne à gauce de la colonne A en utilisant cells(Nom,0)
Voici ce que je te propose.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub selection_1_Change()
 
 With ThisWorkbook.Sheets("Inventaire")
    For Each Nom In .Range("B2:B" & .[B1048576].End(xlUp).Row)
        If CStr(Nom) = CStr(Me.selection_1.Value) Then
            Me.refmouv_1.Value = .Cells(Nom.Row, 1)
            Exit Sub   'pour sortir de la boucle dès que tu as trouvé
        End If
    Next
End With
 
End Sub

13/07/2017, 23h43
zackyzac

Ca fonctionne merci beaucoup.
:D:D:D