Microsoft 365 créer un comboBox dans une feuille de mon classeur

[gothc]

Bonjour le forum
je cherche à mettre directement une combobox avec un code vba sur ma feuil 1 pour aller chercher des informations dans un tableau en feuil2

je souhaite afficher la ligne sélectionner cellule a:b:c:d sur ma feuil 2 de mon tableau sur ma feuil 1

Merci de votre aide

 

[Staple1600]

Bonsoir

J'ai une ComboBox sur ma feuille 1
et ce code dans la feuille 1

Option Explicit

Private Sub ComboBox1_Change()
Application.Goto Sheets(2).Cells(ComboBox1.Value, 1)
End Sub

Private Sub Worksheet_Activate()
ComboBox1.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
End Sub

Test OK sur mon fichier de test.
🙄

 

[gothc]

Bonjour je laisse un fichier en pièce jointe car je me suis mal expliqué sur le résultat

Merci bonne journée

 

[Staple1600]

Bonjour

Un solution "basique"
(test OK sur la PJ)

Private Sub ComboBox1_Change()
Dim x&
x = Application.Match(CLng(ComboBox1.Value), Feuil2.Range("K:K"), 0)
[B3] = Feuil2.Cells(x, 1)
[C3] = Feuil2.Cells(x, 5)
[D3] = Feuil2.Cells(x, 7)
[E3:G3].Value = Feuil2.Cells(x, 8).Resize(, 3).Value
End Sub

Private Sub Worksheet_Activate()
Dim t, f As Worksheet: Set f = Feuil2
f.Cells(2, "K").Resize(f.Cells(Rows.Count, 1).End(3).Row).Name = "base"
t = [base].Value
Me.ComboBox1.List = t
End Sub

 

[gothc]

Super un grand merci
bonne fête de fin d'année