recap des noms des onglets

[rudy dehaudt]

Bonjour a tous
j aimerai placer dans mon USF une liste deroulante composer des noms des onglets de mon classeur ( qui augmente souvent ) je l ai vu sur le site mais pas possible de le retrouver ??
A+

 

[tototiti2008]

Re : recap des noms des onglets

Bonjour rudy, Bonjour Jean-Marcel,

puisque je l'ai fait, je le poste....

 

[rudy dehaudt]

Re : recap des noms des onglets

Bonsoir
Ci joint un exemple

bonsoir jean-marcel
merci de ton aide j aurai une petit question suppémentaire
existe t il un moyen de ne faire apparaitre unique que les noms des onglets commançant par les mots " nvl commande " ??
merci
A+

 

[rudy dehaudt]

Re : recap des noms des onglets

merci
tototiti2008

 

[tototiti2008]

Re : recap des noms des onglets

Re,

décidément toujours un train de retard 😉

 

[rudy dehaudt]

Re : recap des noms des onglets

je reviens vers vous
j ai copier coller vos code qui fonctionne impect mais en voulant ajouter le même code avec le mot reclamation ça deconne ?
quelle serai le bon code ?


premier code
Private Sub UserForm_Initialize()
Dim Wks As Worksheet
With UserForm1.ComboBox2
.Clear
For Each Wks In ThisWorkbook.Worksheets
If Wks.Name Like "reclamation*" Then .AddItem Wks.Name
Next
End With

End Sub


deuxiéme code
Private Sub UserForm_Initialize1()
Dim Wks As Worksheet
With UserForm1.ComboBox1
.Clear
For Each Wks In ThisWorkbook.Worksheets
If Wks.Name Like "bon de commande*" Then .AddItem Wks.Name
Next
End With
End Sub

 

[tototiti2008]

Re : recap des noms des onglets

Bonjour à tous,

soit la solution de Jean-Marcel fonctionne (en mettant "*reclamation*" qui signifie 'contient reclamation')
soit, si ça ne fonctionne pas, sache que VBA est sensible à la casse (fait la différence entre minuscules et majuscules) et qu'il faut évidement faire attention aux accents

 

[rudy dehaudt]

Re : recap des noms des onglets

bonjour a tous

pour parfaire mon project
j aurai voulu afficher l onglets séléctionner



avec par exemple lette exemple de code mais je n arrive pas a l integret dans le deuxiéme code ( qui fonctionne ) ??

d avance merci de votre aide

Private Sub CommandButton1_Click()
Worksheets(ComboBox2.Text).Select
ActiveWindow.SelectedSheets.Visible = True
End Sub

Private Sub UserForm_Initialize()
Dim Wks As Worksheet
With UserForm1.ComboBox2
.Clear
For Each Wks In ThisWorkbook.Worksheets
If Wks.Name Like "reclamation*" Then .AddItem Wks.Name
Next
End With

With UserForm1.ComboBox1
.Clear
For Each Wks In ThisWorkbook.Worksheets
If Wks.Name Like "bon de commande*" Then .AddItem Wks.Name
Next
End With
End Sub

 

[tototiti2008]

Re : recap des noms des onglets

Bonjour,

je ne comprend pas , le code que tu as posté semble correct

 

[rudy dehaudt]

Re : recap des noms des onglets

bonsoir jean marcel
bonsoir a tous
merci pour ton aide mais seul les onglets nommer reclamation s affiche ??

A+

 

[rudy dehaudt]

Re : recap des noms des onglets

bonsoir tototiti2008 et pourtant ça ne tourne pas ??

 

[rudy dehaudt]

Re : recap des noms des onglets

erreur 9

Application.GoTo Reference:=Sheets(NomDeMaFeuille).Range("A1"), Scroll:=True ??

 

[rudy dehaudt]

Re : recap des noms des onglets

grace a vous j ai trouvé ouf quelle effort merci

A+