If sur liste déroulante

[flo2002]

Bonjour le forum,

depuis ce matin une de mes macros a décidé de ne plus fonctionner.

J'ai sur garde E4 une liste déroulante avec les mois et j'ai sur une autre feuille un bouton lié à cette macro:

Sub Save_Rolling()


If Sheets('Garde').Cells(4, 5).Text = 'Janvier' Then Save_Rolling_Janvier
If Sheets('Garde').Cells(4, 5).Value = 'Février' Then Save_Rolling_Février
If Sheets('Garde').Cells(4, 5).Value = 'Mars' Then Save_Rolling_Mars
If Sheets('Garde').Cells(4, 5).Value = 'Avril' Then Save_Rolling_Avril
If Sheets('Garde').Cells(4, 5).Value = 'Mai' Then Save_Rolling_Mai
If Sheets('Garde').Cells(4, 5).Value = 'Juin' Then Save_Rolling_Juin
If Sheets('Garde').Cells(4, 5).Value = 'Juillet' Then Save_Rolling_Juillet
If Sheets('Garde').Cells(4, 5).Value = 'Août' Then Save_Rolling_Août
If Sheets('Garde').Cells(4, 5).Value = 'Septembre' Then Save_Rolling_Septembre
If Sheets('Garde').Cells(4, 5).Value = 'Octobre' Then Save_Rolling_Octobre
If Sheets('Garde').Cells(4, 5).Value = 'Novembre' Then Save_Rolling_Novembre
If Sheets('Garde').Cells(4, 5).Value = 'Décembre' Then Save_Rolling_Décembre


End Sub

Bizzarement il ne comprend plus. ( le .text a été ajouté pour test mais ca ne marche pas non plus). Avant j'ai au lieu du . cells un .range('e4').

Une idée???

Merci d'avance!

 

[flo2002]

Re et mea culpa!

avec :
If Sheets('Garde').Range('E4') = 'Janvier' Then Save_Rolling_Janvier
If Sheets('Garde').Range('E4') = 'Février' Then Save_Rolling_Février
If Sheets('Garde').Range('E4') = 'Mars' Then Save_Rolling_Mars
If Sheets('Garde').Range('E4') = 'Avril' Then Save_Rolling_Avril
If Sheets('Garde').Range('E4') = 'Mai' Then Save_Rolling_Mai
If Sheets('Garde').Range('E4') = 'Juin' Then Save_Rolling_Juin
If Sheets('Garde').Range('E4') = 'Juillet' Then Save_Rolling_Juillet
If Sheets('Garde').Range('E4') = 'Août' Then Save_Rolling_Août
If Sheets('Garde').Range('E4') = 'Septembre' Then Save_Rolling_Septembre
If Sheets('Garde').Range('E4') = 'Octobre' Then Save_Rolling_Octobre
If Sheets('Garde').Range('E4') = 'Novembre' Then Save_Rolling_Novembre
If Sheets('Garde').Range('E4') = 'Décembre' Then Save_Rolling_Décembre

cela fonctionne trés bien!!

le truc c'est que j'avais réjouter un activesheet.copy en fin de Save_Rolling_Mois

Désolé pour le dérangement