Dim E As Worksheet 'déclare la variable E (onglet Essai)
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim I As Integer 'déclare la variable I (incrément)
Set E = Worksheets("ESSAI") 'définit l'onglet E
For I = 3 To Cells(Application.Rows.Count, 1).End(xlUp).Row 'boucle des lignes 3 à la dernière ligne éditée de la colonne 1 (=A)
If Cells(I, 1).Value <> "" Then Me.ComboBox1.AddItem Cells(I, 1).Value 'si la cellule n'est pas vide ajoute la valeur de la cellukle à la ComboBox1
Next I 'prochaine ligne de la boucle
End Sub
Private Sub CommandButton1_Click() 'bouton "VALIDER"
Dim R As Range 'déclare la variable R (Recherche)
Set R = E.Columns(1).Find(Me.ComboBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur de la ComboBox1 dans la colonne 1 (=A) de l'onglet E
If Not R Is Nothing Then R.Select 'si il existe au moins une occurrence trouvée, sélectionne la première occurrence trouvée
End Sub