Discussion :

[Kris41]

Bonjour à tous,

J'ai programmé un classeur pour un suivi et je cherche à automatiser la mise à jour des mes feuilles par rapport à leur nom.

Avec le temps le nombre de feuille ne cesse d'augmenter. Les feuilles qui s'ajoutent automatiquement par du code sont une copie d'une feuille exemple nommé FEUILLE_EXEMPLE(FEUILLE EXEMPLE).
Lorsque qu'une nouvelle feuille s'ajoute, elle est nommée FEUILLE_EXEMPLE2(nom de feuille programmé).

J'aimerais faire un code à l'ouverture du classeur pour activer le code de chaque FEUILLE_EXEMPLE et ne pas activer les autres feuilles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim WS As Worksheet
Dim VARNAMEFEUILLE As String
Dim VARREFERENCENAMEFEUILLE As String
 
For Each WS In ThisWorkbook.Worksheets
 
    VARNAMEFEUILLE = Worksheets.Name.Value
    VARREFERENCENAMEFEUILLE = Left(VARNAMEFEUILLE, 15)
    If VARREFERENCENAMEFEUILLE = "FEUILLE_EXEMPLE" Then
    Worksheets(VARNAMEFEUILLE).Activate
    End If
 
Next WS

J'ai déjà fait le code ci-dessus mais sans résultat.

[Kris41]

J'ai un peu corriger le problème, sauf que j'ai une erreur 9 qui se produit sur le sheets.activate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim WS As Worksheet
Dim VARNAMEFEUILLE As String
Dim VARREFERENCENAMEFEUILLE As String
 
For Each WS In ThisWorkbook.Worksheets
 
    VARNAMEFEUILLE = WS.CodeName
    VARNOMFEUILLE1 = WS.Name
    VARREFERENCENAMEFEUILLE = Left(VARNAMEFEUILLE, 15)
    If VARREFERENCENAMEFEUILLE = "FEUILLE_EXEMPLE" Then
    Sheets("VARNOMFEUILLE1").Activate
    End If
 
    VARNAMEFEUILLE = ""
 
Next WS

[Kris41]

Je pense que c'est bon j'avais juste mal écrit ma variable du nom de feuille.

Bonne journée.

[Philippe Tulliez]

Bonjour,

Je pense que c'est bon j'avais juste mal écrit ma variable du nom de feuille

Si je puis me permettre un petit conseil, qui te fera gagner un temps précieux dans le débogage de tes programmes

• placer en tête de module la ligne Option Explicit
  En cochant l'option déclaration des variables obligatoire de l'onglet [Editeur] de la boîte de dialogue Options ce sera automatique dès la création des prochains modules
  Pour activer cette boîte de dialogue, aller dans Outils, Options... de l'éditeur VBE (Visual Basic Editor),
• utiliser la technique du Camel case pour l'écriture du nom des variables.
  C'est moins agressif pour l'oeil et cela rend le code plus lisible
  Exemple : VarNameFeuille au lieu de VARNAMEFEUILLE

A lire éventuellement Utiliser les variables en VBA Excel et tout particulièrement le chapitre III. Option Explicit