texte dans inputbox

Eric C

XLDnaute Barbatruc

• 14 Juin 2005

• #2

Bonjour le forum
Bonjour Simons

Tu peut essayer ceci :

Code:

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 --

 

Vote positif 0 Vote négatif

J

jeromegmc

XLDnaute Occasionnel

• 14 Juin 2005

• #3

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 14 Juin 2005

• #4

Bonjour le forum
Bonjour Simons

Tu peut essayer ceci :

Code:

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 --

 

Vote positif 0 Vote négatif

G

GLO

Guest

• 14 Juin 2005

• #5

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]

 

Pièces jointes

• ChoixSem.zip

  9.5 KB · Affichages: 15

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 14 Juin 2005

• #6

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]

 

Pièces jointes

• ChoicFeuilles.zip

  10.2 KB · Affichages: 19

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 14 Juin 2005

• #7

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:

 

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 14 Juin 2005

• #8

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...

 

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 17 Juin 2005

• #9

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.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 17 Juin 2005

• #10

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 :

Code:

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

 

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 20 Juin 2005

• #11

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

 

Vote positif 0 Vote négatif