Discussion :

[pachi44]

Petit probleme de syntaxe.
Selon la valeur je voudrais changer de feuilles :
C'est un test qui ne marche pas il bloque avec mois:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Macro1()
 
v = 2
mois1 = "Feuil2"
mois2 = "Feuil3"
 
Sheets(mois & v).Select
 
End Sub

J'ai reussi avec cette commande :

Code :

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

1
2
 
Sheets("Feuil" & v).Select

Le problème c'est que dans mon vrai fichier les feuilles s'apelle "Janvier 2012","Fevrier 2012".
Donc ca ne s'applique plus

Merci de votre coup de main

[Philippe Tulliez]

Bonjour,
Tu mélanges nom de variable et chaîne de caractères
Utilise plutôt des variables tableaux
Exemple

Code :

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

1
2
3
4
 Dim mois(1 To 2)
 mois(1) = "Feuil1"
 mois(2) = "Feuil3"
 Worksheets(mois(1)).Select

[Marcandy]

Bonjour,

En supposant que tes feuilles vont de "Janvier 2012" à "Décembre 2012", tu peux déclarer un tableau contenant tous tes noms de feuilles et utiliser v comme indice.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
' pour commencer le tableau avec l'indice 1
Option Base 1  
 
Dim Feuille As String    
Feuille = Array("Janvier 2012", "Fevrier 2012", ... "Decembre 2012")
 
' Ensuite l'activation de la feuille en fonction de v est simple ...
 
Sheets(Feuille(v)).Select