Bonjour à tous,

Je me permets de vous demander de l'aide, je suis nocive en programmation VBA.

J'ai une combobox qui est alimenté par un code qui recupere les noms des feuilles, j'ai une textbox qui doit comporter certain caractere des noms des feuilles et un numéro.
mes feuilles sont sous le format (AAAA 00000(AA 2013)
je souhaiterais que mon textbox se remplisse seul sous le format (00000-000)
00000 tiré du nom de la feuille
000 tiré de la feuille en question de la colonne A a la suite du précédent

voici mes codes
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
Dans un premier temps je n'arrive pas a récupérer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Num_compte_Change()
Num_Devis.Value = Num_compte
Num_Devis = Format(Num_Devis, "00000-000")
Num_Devis.MaxLength = 9
 
End Sub
 
End Sub
Merci pour vos réponse