rechercher worksheets par range

[Simons]

Bonjour,

Je cherche à faire apparaitre une worksheets via la valeur d'une range. Mon problème c'est que les worksheets que je cherche sont incrémentées...

Merci d'avance pour votre aide.

 

[Baside]

Bonjour Simons le forum

Peux tu préciser car worksheets est une collection d'objets et dans ce cas de toutes les feuilles

Baside

 

[Simons]

Désolé Baside il y avait un 'S' en trop je voulais parler d'une feuille (worksheet).

 

[Baside]

Rebonjour Simons

Voir le fichier joint

Baside [file name=FeuilleRange.zip size=7429]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FeuilleRange.zip[/file]

 

[Simons]

Baside,

J'ai encore quelques soucis :

Mes feuilles ont pour nom 1, 2, 3 etc...
donc la variable X me pose problème. Mais je ne sais pas si je dois passer par name, item..

Ensuite la feuille à selectionner est cachée et forcément je souhaite la rendre visible.

Pour être plus explicite voici le code qui, incrémente ma feuille qui la nomme et qui la cache.

Sub commandbutton2_click()
Dim rep As Integer
Dim nom As String
rep = msgbox('Valider ?', vbYesNo)
rep = vbYes
If rep = vbNo Then Exit Sub
nom = sheets(2).Range('a1').Value
Application.sheets.Add After:=sheets.Item(sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = nom
Application.ActiveSheet.Range('a1') = nom
Application.ActiveSheet.Visible = False
Feuil1.Select
End Sub

Merci d'avance.

 

[Baside]

Rebonjour Simons le forum

Regarde le fichier joint

Baside [file name=FeuilleRangeSelection.zip size=9087]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FeuilleRangeSelection.zip[/file]