Discussion :

[ericdev67]

Bonjour,

J'ai un classeur contenant des feuilles. Chaque feuille correspond à un mois : "Janvier", "Fevrier", etc....
par macro, je récupère le nom de la feuille

Code :

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

Range("A2")=range("A1").currentregion.worksheet.name

mais ensuite, j'ai besoin de convertir ce nom de mois : par exemple "janvier"=1, "février"=2, etc....

Pour l'instant, j'utilise

Code :

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

1
2
if range("A2")="janvier" then mo=1 end if 
if range("A2")="fevrier" then mo=2 end if

etc, etc,
Y-a-t-il une fonction et/ou instruction qui converti directement ?
(lorsqu'on fait "format de cellule", on peut choisir différent formats de date et/ou de mois, donc je pense que c'est possible.....

Merci,

A+

[fring]

Bonjour,

Pour récupérer le nom de la feuille active, tu peux simplement écrire

Code :

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

Range("A2") = ActiveSheet.Name

Pour convertir le nom du mois :

Code :

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

Range("A2") = Month("01/" & ActiveSheet.Name)

[babaothe]

salut

attention : cette utilisation de Month est subordonnée à un respect absolu du nommage des feuilles en concordance avec l'orthographe des mois, notamment en matière d'accents (février,août, décembre)

[ericdev67]

Merci Fring,

Une fois de plus, tu m'as aidé. J'avais pris un code sur la FAQ et je l'avais modifié (d'où le "Currentregion"), et complètement zappé qu'il y avait plus simple..et logique......

Merci.

A+ pour de nouvelles aventures,

Merci babaothe pour cette précision, le nom des feuilles est en majuscule pour l'instant, et si je vois que le code de Fring (=utilisation de "Month") ne passe pas, je renommerai toutes les feuilles suivant ton conseil.

A+ pour de prochaines aventures.

[babaothe]

le plus prudent est peut-être de nommer tes feuilles dynamiquement, soiit au moment de leur création, soit en les renommant ensuite
exemple :

Code :

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

Sheets("feuil1").Name = MonthName(2)

nommera en "février" ta feuille "feuil1"
l'utilisation ultérieure de Month ne se heurtera ainsi à aucun obstacle.

[ericdev67]

Ok,
Tu as raison, soyons prudent....
Je vais faire une boucle

Code :

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

1
2
3
for i=1 to 12
Sheets("feuil"& i).Name = MonthName(i)
Next

histoire de ne pas être embêté par Month.

Merci,

A+ pour de prochaines aventures