recap des noms des onglets

tototiti2008

XLDnaute Barbatruc

• 1 Mars 2010

• #2

Re : recap des noms des onglets

Bonjour rudy, Bonjour Jean-Marcel,

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

 

Pièces jointes

• Classeur1.xls

  26 KB · Affichages: 92
• Classeur1.xls

  26 KB · Affichages: 91
• Classeur1.xls

  26 KB · Affichages: 95

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 1 Mars 2010

• #3

Re : recap des noms des onglets

Jean-Marcel à dit:

Bonsoir
Ci joint un exemple

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 1 Mars 2010

• #4

Re : recap des noms des onglets

merci
tototiti2008

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Mars 2010

• #5

Re : recap des noms des onglets

Re,

décidément toujours un train de retard 😉

 

Pièces jointes

• Classeur1.xls

  27 KB · Affichages: 84
• Classeur1.xls

  27 KB · Affichages: 79
• Classeur1.xls

  27 KB · Affichages: 82

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 1 Mars 2010

• #6

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Mars 2010

• #7

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

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 2 Mars 2010

• #8

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Mars 2010

• #9

Re : recap des noms des onglets

Bonjour,

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

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 2 Mars 2010

• #10

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+

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 2 Mars 2010

• #11

Re : recap des noms des onglets

bonsoir tototiti2008 et pourtant ça ne tourne pas ??

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 2 Mars 2010

• #12

Re : recap des noms des onglets

erreur 9

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

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 2 Mars 2010

• #13

Re : recap des noms des onglets

grace a vous j ai trouvé ouf quelle effort merci

A+

 

Vote positif 0 Vote négatif