texte dans inputbox

[Simons]

Bonjour le forum,

J'ai un classeur dont chaque feuille représente les semaine de l'année (nommée de S1 jusqu'à S54).
Je voudrais à l'ouverture de mon classeur qu'une inputbox me permette d'aller sur la semaine voulue.
Et au lieu de saisir 'S34' par exemple je voudrais juste avoir à saisir '34'.
Quelqu'un connais le 'Truc' ??

Merci d'avance.

 

[Eric C]

Bonjour le forum
Bonjour Simons

Tu peut essayer ceci :

Sub AtteindreOnglet()
Dim position As Long
position = InputBox('Saisir un numéro d'onglet')
Worksheets('S' & position).Select
End Sub

Bonne soirée à toute & à tous et allez vous regaler de suite sur le forum XLD avec la démo de Pascal --

 

[jeromegmc]

Message édité par: jeromegmc, à: 14/06/2005 19:09

 

[Eric C]

Bonjour le forum
Bonjour Simons

Tu peut essayer ceci :

Sub AtteindreOnglet()
Dim position As Long
position = InputBox('Saisir un numéro d'onglet')
Worksheets('S' & position).Select
End Sub

Bonne soirée à toute & à tous et allez vous regaler de suite sur le forum XLD avec la démo de Pascal --

 

[GLO]

Bonjour Simon.

Voici un fichier exemple qui je crois devra te satisfaire.

( Voir la macro Workbook_Open() ).

A+ [file name=ChoixSem.zip size=9740]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ChoixSem.zip[/file]

 

[Baside]

Bonsoir Simons le fil le forum

Une autre solution sympa

Bonne soirée, Baside [file name=ChoicFeuilles.zip size=10411]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ChoicFeuilles.zip[/file]

 

[Simons]

Bonsoir le forum,

Merci à tous pour vos réponses mais j'ai toujours un problème..
Pour les feuilles 1 à 9 j'ai le message 'l'indice n'appartient pas a la selection'
:angry:

 

[Simons]

Re le forum,

Mais c'est bien sur...
Mes premières feuilles sont appellées S01 à S09 donc normal si ca marche pas... :S
Donc VBA ne reconnais forcément pas les feuilles S1 S2 S3 etc...

 

[Simons]

Bonjour le Forum,

J'ai opté pour la solution de Baside qui est plus conviale.
J'aimerais maintenant savoir si je peux ajouter le numéro de la semaine en cours dans l'USF. (Et oui tout le monde n'as pas forcément un calendrier qui indique la semaine en cours sous les yeux) inch:

Merci d'avance pour votre aide.

 

[Eric C]

Bonjour le forum
Bonjour Simons, bonjour GLO, bonjour Baside & bonjour Eric_C

Ayant opté pour une solution plus 'conviviale' (Tu demandais un InputBox au départ.... Je ne suis pas vexé loin de là s'en faut.... ), je te propose néanmoins ceci qui vient de Thierry ... un peu de lecture des posts antérieurs.... (Thierry si tu me lis bonsoir). Tu places un Label dans le USF de Baside et tu y places :

Private Sub UserForm_Initialize()
Dim TheDay As Date
TheDay = 38515 'demain le 12/06/2005 un dimanche

Label1.Caption = 'La semaine en cours est la ' & DatePart('WW', TheDay, vbMonday, vbFirstFourDays) & ' ème'

End Sub

 

[Simons]

Bonjour Eric, le Forum,

Merci pour ton code que je testerais dès que possible.

Et heureux de voir que tu n'est pas rancunier parceque je n'avais pas choisi ton code
Bon début de semaine.

Bye