Discussion :

[fullmetalknet]

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

[did103]

Salut
Pour écrire dans une TextBox tu dois utiliser:

Code :

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

Label.Caption = NomFeuille

Avec Label étant le nom de ta TextBox et NomFeuille la variable créée pour réceptionner le nom de ta feuille (Num_Devis?).
Tu peux construire cette variable par:

Code :

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

NomFeuille = ActiveSheet.Name & "-" & Range("A1")

[fullmetalknet]

Désolé je me suis mal exprimé!

ce classeur me permet de créer un suivi de devis et contrat suivant des compte distinct, chaque compte correspond a une feuille nommée sous le format (ATL1 000001(AA 2013)
ATL1 = région
000001 = N° de compte
AA= initial technicien gérant compte
2013= année du compte

donc ma combobox me permettrais de selectionner ma feuille ainsi que incrémenter le N° de compte(ex: 000001) dans ma textbox (Num_Devis)

Ensuite la textbox (Num_Devis) doit etre sous le format (N° de compte - N° du Devis) ex: 00001-002 pour le 2ème devis sachant que ces N° de devis s'incremente à la suite de la colonne A (ca je sais faire), mais dans cette colonne A il y aura des N° de contrat et de bon d'intervention d'un format différent.

Je me dit novice vu la capacité de VBA!

[Daniel.C]

Un petit classeur exemple - sans données confidentielles serait le bienvenu. Merci.

[Philippe Tulliez]

Bonjour,
Pourquoi ne pas profiter des cellules d'excel pour formater le nom à ta guise et ensuite tout simplement donner au contrôle TextBox la valeur de la cellule formatée.

Code :

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

TextBox1 = sh.Range("C2")

où sh est une variable objet (WorkSheet)
Sur cette page VBA / Fonction - Incrémentation de n° , il y un classeur exemple où sur la feuille [Exemple avec VBA], tu trouveras une illustration de ce que j'écris plus haut.
Comme je n'ai pas créé d'exemple avec UserForm dans ce classeur, je te propose d'en créer un avec 3 TextBox et 3 Label numérotés de 1 à 3.
Ensuite tu colles le code ci-dessous.

UserForm contenant trois TextBox(1-3) et trois Label(1-3)
Code de la UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 Dim funct As WorksheetFunction
 Set funct = Application.WorksheetFunction
 Dim n As Byte
 For n = 1 To 3
  With Me
  .Controls("Label" & n) = funct.Index(Range("dbcount"), n, 1)
  .Controls("TextBox" & n) = funct.Index(Range("dbCount"), n, 6)
  End With
 Next
End Sub

La colonne 1 de la table nommée dbCount contient les Textes Facture, Note d'envoi et Note de crédit et la colonne 2 les n° de ceux-ci formatés.

[fullmetalknet]

...heu, je vais passer le petit classeur en question.
Quand je disais que j'étais novice....

sinon je vais essayer ce code, histoire de me comprendre.

Voici le petit classeur, mon probleme se situe dans l'userform devis

[Daniel.C]

Bonjour,

je suis nocive en programmation VBA.

J'espère que non, quand même

Je n'ai pas bien compris le format de tes noms de feuille (2013 12345, par exemple ?)

Peux-tu donner un exemple de ce que tu as en colonne A ? Est-ce que c'est, pour continuer mon exemple :

122345-678
ou 12345678 ?