Discussion :

[fullmetalknet]

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)

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

voici le code de mon userform

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

[fullmetalknet]

un ptit Up!

Après acharnement j'ai réussi a trouvé le code qui me permet de récupérer la ligne depuis la selection dans mon combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = 16 To 20000
If Num_Devis.Value = Range("A" & i).Value Then
Sheets(Feuille).Cells(i, 1).Select
Exit For
End If
Next i
 
r = ActiveCell.Row

reste plus que le probleme de "filtrer" les formats