onglet mois textbox

[ccpapy]

bonjour,
je coince malgré mes recherches sur le forum:
je voudrai que l'usf me renvoie sur l'onglet correspondant à la date du textbox
un petit fichier joint
merci

 

[pierrejean]

Re : onglet mois textbox

Bonjour ccpapy

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

 

[youky(BJ)]

Re : onglet mois textbox

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

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

 

[ccpapy]

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

 

[Hulk]

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 !

 

[ccpapy]

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

 

[pierrejean]

Re : onglet mois textbox

Re

Vois si cela te convient

 

[BOISGONTIER]

Re : onglet mois textbox

Bonjour,

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

JB

 

[ccpapy]

Re : onglet mois textbox

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

 

[ccpapy]

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