Changement de feuille suivant variable

Bonjour,

Je me permet de venir vers vous car j'ai un petit problème ...

Voilà j'ai créer un fichier qui au fur à mesure que l'on va le remplir il va généré des feuilles de 1 à ... ( pas de limite )

Or voici le problème :

[*]Je souhaiterais depuis un code de type ci dessous passer de feuille en feuille pour faire la récupération des données qui m'intéresse :

Finfeuilleperso = Sheets("Configuration").Cells(1, 1).Value

For FeuillePerso= 1 to Finfeuilleperso
Sheets.(feuilleperso).visible = xlSheetVisible
Sheets.(feuilleperso).Activate 
Next Feuilleperso

Malheureusement le code ne fonctionne pas du tout ...

Merci pour les réponses que vous pourrez m'apporter

Antho

Bonjour

A tester

Sub test()
  Finfeuilleperso = Sheets("Configuration").Cells(1, 1).Value

  For feuilleperso = 1 To Finfeuilleperso
    Sheets(feuilleperso).Visible = xlSheetVisible
    Sheets(feuilleperso).Activate
  Next feuilleperso
End Sub

alors le petit truc c'est que cela est que une partie du code autrement il est intégrer dans :

Option explicit

Private Sub CommandButtonValider_Click()

    Dim Feuilleperso As Variant
    Dim Finfeuilleperso As Integer 

' **** Quelques ligne de code pour récupérer des valeurs dans une autre feuille 

'*******************************************************************************************
  Finfeuilleperso = Sheets("Configuration").Cells(1, 1).Value

  For feuilleperso = 1 To Finfeuilleperso
    Sheets(feuilleperso).Visible = xlSheetVisible
    Sheets(feuilleperso).Activate
  Next feuilleperso

End sub 

Et j'ai toujours le problème quand il s'agit d'une feuille ayant un nom numérique

edit : J'ai fais le test dans un module et après je fait un

Call Test 

Aucun résultat mes feuilles toujours invisible et ma dernière feuille non active

Bonjour

Fournis un fichier ayant les mêmes contraintes que ton fichier réel

Bonjour,

Désoler hier je pouvais pas envoyer le fichier .

Voici l'exemple avec le code que j'ai beaucoup réduit mais avec les mêmes contrainte

• 2 feuilles cacher en niveau 2
• a faire réapparaitre suivant la variable

Cordialement ,

Bonjour

A tester

Option Explicit
Private Sub CommandButtonValider_Click()

    Dim Feuilleperso As Variant
    Dim Finfeuilleperso As Integer

' **** Quelques ligne de code pour récupérer des valeurs dans une autre feuille

'*******************************************************************************************
 Finfeuilleperso = Sheets("Configuration").Cells(6, 3).Value

  For Feuilleperso = 1 To Finfeuilleperso
    Sheets(CStr(Feuilleperso)).Visible = xlSheetVisible
    Sheets(CStr(Feuilleperso)).Activate
  Next Feuilleperso

End Sub

Ouahhhh génial merci

Par contre petite question technique c'est quoi CStr ?

Bonjour

CStr() convertit une donnée en chaîne de caractère

CStr(1) = "1"

CStr(120) = "120"

CStr("Toto") = "Toto"