Discussion :

[zackyzac]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jerome.vaussenat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zackyzac]

Ca fonctionne merci beaucoup.