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
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 UserForm_initialize() Dim i As Byte For i = 4 To Sheets.Count Num_compte.AddItem Sheets(i).Name Next i End Sub
Merci pour vos réponse
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
Partager