Discussion :

[RDBAL41]

Bonjour à tous.
Bonnes fêtes à vous.



J'utilise une macro faite par Harzer du 27 janvier 2017, concernant le changement de l'année dans une série de dates.
Elle fonctionne à merveille.
Je voudrais l'adapter pour l'utiliser dans un classeur avec ts les mois.
Mais (je suis pas doué, mais j'avance), je n'arrive pas à sélectionner ts les mois pour ce changement et de plus le tableau se répète une fois à la fin de celui-ci.

J'ai cherché, pas trouvé. Donc SOS.
Merci à vous.
RDBAL

Voici le code "bricolé" et un fichier exemple :

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
18
19
20
21
22
Sub REPLACE()
 
Dim Mot As Variant
Dim REPLACE As Variant
 
Application.ScreenUpdating = False
 
tabloF = Array("JANVIER", "FEVRIER", "MARS", "AVRIL")
For f = 0 To 4
 
plage = REPLACE
Mot = InputBox("Quelle annnée souhaitez-vous modifier?", Title:="Recherche une Année - Format ""AAAA""")
If Mot = "" Then Exit Sub
 
REPLACE = InputBox("Par quelle année voulez vous la remplacer ?", Title:="Remplacer l'année trouvée")
If REPLACE = "" Then Exit Sub
 
Range("G3:G11").Select
Selection.REPLACE What:=Mot, Replacement:=REPLACE
   Next f
 
End Sub