onglet mois textbox

pierrejean

XLDnaute Barbatruc

• 7 Avril 2012

• #2

Re : onglet mois textbox

Bonjour ccpapy

Code:

Private Sub CommandButton1_Click()
'selectionne l'onglet pour le mois correspondant au textbox... ?
Sheets(Format(TextBox1, "mmmm")).Select
End Sub

NB: ne pas oublier de renommer pour avoir les accents de Février Août Décembre

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 7 Avril 2012

• #3

Re : onglet mois textbox

Bonjour ccpapy et voisin,
Bon comme j'ai fait...sans accents
Bruno

Code:

Private Sub CommandButton1_Click()
'selectionne l'onglet pour le mois correspondant au textbox... ?
If Not IsDate(TextBox1) Then Exit Sub
mois = Array("", "Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juilet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
Sheets(mois(Month(TextBox1))).Select
End Sub

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 7 Avril 2012

• #4

Re : onglet mois textbox

merci à vous 2
youki/ tu as mis un accent à décembre... mais je te pardonne. LOL
les 2 solutions fonctionnent (on n'en doutait pas) celle de pierrejean est celle sur laquelle j'étais parti mais sans réussir.
en voyant le code maintenant, cela parait tout simple.
merci encore et bon week-end

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 7 Avril 2012

• #5

Re : onglet mois textbox

Hello les amis 🙂

Une autre solution avec une ComboBox et les feuilles listées dedans...

Si ça lui va...

Bon dimanche de Pâques à tous !

 

Pièces jointes

• mois(Hulk).xls

  67 KB · Affichages: 36

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 7 Avril 2012

• #6

Re : onglet mois textbox

merci hulk,
celle-là, je connaissais mais je l'avais écartée.
j'ai besoin de mon textbox avec la date "aujourd'hui" à l'ouverture.

il me reste plus qu'un souci de combobox en cascade pour finaliser mon projet
j'ai essayé de m'aider du travail de Menus en cascade
mais je suis perdu.
si vous avez la solution sinon j'ai ouvert un autre sujet de discussion
https://www.excel-downloads.com/threads/combobox-cascade.182134/
merci

 

Pièces jointes

• cascade.xls

  58.5 KB · Affichages: 49
• cascade.xls

  58.5 KB · Affichages: 44
• cascade.xls

  58.5 KB · Affichages: 42

Dernière édition: 7 Avril 2012

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Avril 2012

• #7

Re : onglet mois textbox

Re

Vois si cela te convient

 

Pièces jointes

• cascade.xls

  66 KB · Affichages: 36
• cascade.xls

  66 KB · Affichages: 49
• cascade.xls

  66 KB · Affichages: 46

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 8 Avril 2012

• #8

Re : onglet mois textbox

Bonjour,

Code:

Private Sub ComboBox4_Change()
  Me.ComboBox6.List = Application.Transpose(Range(Replace(Me.ComboBox4, " ", "_")))
End Sub

JB

 

Pièces jointes

• Copie de cascade.xls

  51 KB · Affichages: 33
• Copie de cascade.xls

  51 KB · Affichages: 38
• Copie de cascade.xls

  51 KB · Affichages: 37

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 8 Avril 2012

• #9

Re : onglet mois textbox

bonjour et merci à vous 2
je vais regarder ça,
bon week-end

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 8 Avril 2012

• #10

Re : onglet mois textbox

voilà,
BOISGONTIER/ ton code met une erreur si on choisit un article puis si on s'est trompé sur l'article
on choisit un article où les tailles n'éxistent pas (ex: chaussettes)
Pierrejean/ on n'a pas ce souci avec le tien
gràce à vous, j'ai pris un peu des 2 pour arriver à ça:

'On Error Resume Next
'Me.ComboBox6.Clear
' Me.ComboBox6.List = Application.Transpose(Range(Replace(Me.ComboBox4, " ", "_")))
encore merci à vous

 

Dernière édition: 8 Avril 2012

Vote positif 0 Vote négatif