XL 2010 recherche d'une ligne par concatenation de valeur

[robindr400]

Bonjour la communauté et meilleurs voeux !
J'avance sur mon usf et je prends vachement de plaisir à apprendre. C est vraiment génial les usf.

Petite question :
J'avais reussi a retrouver le numero de ligne a partir de la selection d'une valeur dans une combobox avec la fonction :

Private Sub CommandButton4_Click()
Dim no_ligne As Integer
no_ligne = ComboBox35.ListIndex + 2

Sauf que depuis la combobox35 n est plus selectionnable et ne sert plus à rien et je voudrais la supprimer mais utiliser la concatenation de la combobox1 &" - "&combobox33&" - "&combobox34 pour trouver la ligne dans la colonne DZ de l'onglet data afin de rappeler les données.

J'ai essayé de triché en inscrivant la concatenation dans la combobox35 mais ca marche pas...

La procedure serait de choisir une donnée dans la combobox1, puis un deuxieme niveau de donnée dans la combobox33 puis un troisieme dans la combobox34 puis cliquer sur >>> et hop les données apparaissent.
J'ai créé en colone data!DZZ la concatenation avec " - " entre les niveaux pour plus de selection.

Merci du coup de pouce.

 

[Lone-wolf]

Bonjour robindr et bonne année

Peut-être comme ceci

Private Sub CommandButton4_Click()
Dim cel As Range, plage$, no_ligne&
plage = (ComboBox1.ListIndex + 2) & " - " & (ComboBox33.ListIndex + 2) & " - " & (ComboBox34.ListIndex + 2)
With Sheets("data").Range("dz2:dz65536")
Set cel = .Find("*", , xlFormulas, xlByRows)
If Not cel Is Nothing Then
no_ligne = cel.Row
End If
With Sheets("data")
TextBox1.Value = .Cells(no_ligne, 3).Value
TextBox2.Value = .Cells(no_ligne, 4).Value
TextBox3.Value = .Cells(no_ligne, 5).Value

End With
End With