(Resolu) Modifier une macro dans un module

riton00 · 15 Décembre 2015

Bonjour à tous les Excelliens

Recherche de l'aide sur VBA

Actuellement lorsque je modifie l'année 2015 par 2016 sur le menu déroulant qui se situe en haut à gauche il y à une macro dans un module (14) qui me permet de changer l'année des onglets uniquement lorsque l'horloge Windows change d'année, serait-il possible de modifier cette macro ou en créer une nouvelle de façon à ce que lorsque je change l'année sur le menu déroulant, que les onglets se modifient aussi tout de suite

Merci

Salutation

Riton00

JM27 · 15 Décembre 2015

Re : Modifier une macro dans un module

bonjour

Code:

Sub Année()
MOIS = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
For Each sh In Sheets
 For n = LBound(MOIS) To UBound(MOIS)

   If InStr(UCase(sh.Name), MOIS(n)) <> 0 Then
     sh.Name = MOIS(n) & " " & Range("A8") + 9
   End If
 Next n
Next
End Sub

riton00 · 15 Décembre 2015

Re : Modifier une macro dans un module

Bonsoir à tous les excelliens et JM27

Super! la modif elle marche comme sur des roulettes, il y a juste le petit truc qui me chagrine un peu, c'est que j'ai la nostalgie du 2000 😀. En fait ça serait le top si à la place du janvier 16 comme dans l'actuel avec la modif, il était marqué janvier 2016 comme avant la modif 😱
Est-ce que c'est possible?

Merci

Riton00

JM27 · 15 Décembre 2015

Re : Modifier une macro dans un module

bonsoir

Code:

Sub Année()
MOIS = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
For Each sh In Sheets
 For n = LBound(MOIS) To UBound(MOIS)

   If InStr(UCase(sh.Name), MOIS(n)) <> 0 Then
     sh.Name = MOIS(n) & " " & (Range("A8") + 2009)
   End If
 Next n
Next
End Sub

ou

Code:

Sub Année()
MOIS = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
For Each sh In Sheets
 For n = LBound(MOIS) To UBound(MOIS)
   If InStr(UCase(sh.Name), MOIS(n)) <> 0 Then
     sh.Name = MOIS(n) & " " & Sheets("Calendrier").Range("A" & Range("A8") + 1)
   End If
 Next n
Next
End Sub

ce qui revient au même (mais qui est plus logique)

riton00 · 15 Décembre 2015

Re : Modifier une macro dans un module

Re

Merci de la réactivité, c'est exactement ce que je voulais

Salutation

Riton00

(Resolu) Modifier une macro dans un module

riton00

XLDnaute Impliqué

Pièces jointes

JM27

XLDnaute Barbatruc

riton00

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

riton00

XLDnaute Impliqué

Discussions similaires

(Resolu) Modifier une macro dans un module

riton00

XLDnaute Impliqué

Pièces jointes

JM27

XLDnaute Barbatruc

riton00

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

riton00

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency