XL 2016 Macro pour appel de valeurs

[Théo gestin]

Bonjour tous le monde , j'espère que vous allez bien , je viens vers vous car je me suis bloqué dans la réalisation d'un macro .
dans le code de l'userform 3 ( commandbuton1_click ) je dois afficher un msgbox sur l'écran : " Erreur : aucun résultat trouvé " si y a aucune correspondance à ma recherche .
Ainsi qu'il faut créer la macro MajappelTD dans le module 1 : où il faut parcourir toutes les lignes de la base de données et afficher le nom et le prénom de l'étudiant dnas le tableau correspondant ( sur la feuil 3 ) selon le numéro de groupe TD .
Je vous remercie en avance

 

[sousou]

bonjour
J'ai repris un bout de ton code et l'ai modifié.
Une manière de gérer les listbox et les combobox avec match
Private Sub UserForm_Initialize()

Dim ligne As Long
ligne = 3

While Sheets("BDD").Range("B" & ligne).Value <> ""
ComboBox1.AddItem Sheets("BDD").Range("B" & ligne).Value
ligne = ligne + 1
ReDim matable(ComboBox1.ListCount)
matable(ComboBox1.ListCount - 1) = ComboBox1.List(ComboBox1.ListCount - 1)
DoEvents
Wend


End Sub

Private Sub CommandButton1_Click()
Dim nom As String, num_ligne As Long, ligne As Long
lg = Application.Match(ComboBox1.Value, matable)
If IsError(lg) Then MsgBox "erreur"

 

[Théo gestin]

bonjour
J'ai repris un bout de ton code et l'ai modifié.
Une manière de gérer les listbox et les combobox avec match
Private Sub UserForm_Initialize()

Dim ligne As Long
ligne = 3

While Sheets("BDD").Range("B" & ligne).Value <> ""
ComboBox1.AddItem Sheets("BDD").Range("B" & ligne).Value
ligne = ligne + 1
ReDim matable(ComboBox1.ListCount)
matable(ComboBox1.ListCount - 1) = ComboBox1.List(ComboBox1.ListCount - 1)
DoEvents
Wend


End Sub

Private Sub CommandButton1_Click()
Dim nom As String, num_ligne As Long, ligne As Long
lg = Application.Match(ComboBox1.Value, matable)
If IsError(lg) Then MsgBox "erreur"

Merci sousou