Bonjour à tous,
Pour continuer mon projet, ou j'ai déja demandé de l'aide sur ce forum ICI.
J'ai encore besoin d'aide
Tout d'abord j'ai une userform dans laquel j'ai une combobox (num_compte) qui récupère les noms des feuilles, j'ai une 2eme combobox (num_devis) qui récupère les données de la colonne A et je souhaiterais récupérer seulement les données sous format(00000-000) pour remplir ma combobox(num_devis) et récupérer la ligne du numéro choisi dans le combobox (num_devis) afin de la completer
voici le code de la combobox (num_compte)
voici le code de mon userform
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Private Sub Num_compte_Click() Dim Feuille As String Feuille = Me.Num_compte Sheets(Feuille).Select Dim lig As Integer Dim col As Integer col = 1 lig = 16 ' a partir de la ligne 16 Num_Devis.Clear With Sheets(Feuille) While .Cells(lig, col) <> "" Num_Devis.AddItem .Cells(lig, col) lig = lig + 1 Wend End With Num_Devis.ListIndex = -1 End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub UserForm_initialize() Dim i As Byte For i = 4 To Sheets.Count Num_compte.AddItem Sheets(i).Name Next i End Sub
Partager