Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 recherche d'une ligne par concatenation de valeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

robindr400

XLDnaute Nouveau
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!DZ😀Z la concatenation avec " - " entre les niveaux pour plus de selection.

Merci du coup de pouce.
 

Pièces jointes

Bonjour robindr et bonne année 🙂

Peut-être comme ceci

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…