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

[Invité]

Bonjour

A tester
https://www.cjoint.com/c/HLBnQ2ov64U

[patricktoulon]

Bonjour
je comprends pas bien ta boucle elle ne sert a rien en fait

tape l'année a remplacer dans l'input suivi de ":" et de la nouvelle année exemple "2019:2020" et 2019 sera remplacé par 2020

Code :

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

1
2
3
4
5
6
7
Sub REPLACE()
    Dim inpt
    inpt = InputBox("entrez l'année a remplacer puis l'année voulue séparé par "":""", Title:="Remplacer l'année trouvée")
    If inpt = "" Or InStr(inpt, ":") = 0 Then Exit Sub
    Range("G3:G11").REPLACE What:=Split(inpt, ":")(0), Replacement:=Split(inpt, ":")(1)
    'exemple qu'il faut taper "2019:2020" le premier sera remplacé par le 2d dans la plage concernée
End Sub

[BENNASR]

et pourquoi VBA !!!!

sélectionner les cellules (pour sélectionner dans plusieurs feuille laisser enfoncer CTRL et se déplacer sur toutes les feuilles)
CTRL+H
rechercer : 2019
remplacer par : 2020

[RDBAL41]

Bonjour à vous.

Bigre c'est du rapide.

Merci :

patricktoulon
Sympa la solution, je garde pour un autre projet.

BENNASR
J'y ai pensé mais dans ce cas du projet , je ne peux pas l'utiliser.

mimimathy
C'est exactement ce que je recherchais.

Merci à vous.

Et en avance : Bonne année 2019.

[unparia]

Bonjour
Et que les curieux qui auraient besoin de connaître la proposition de mimimathy acceptent de prendre le double-risque d'ouvrir un classeur tiers de surcroît passé par le tremplin du site de dépôt utilisé ...
Et même ces audacieux-là resteront le bec dans l'eau lorsque la pièce jointe concernée ne sera plus présente sur le site en cause...