Changer l'année vba

Version imprimable

1 pièce(s) jointe(s)

Changer l'année vba

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:

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

27/12/2018, 14h43
Invité

Bonjour

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

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:

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

27/12/2018, 15h07
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
27/12/2018, 15h22
RDBAL41

Changer l'année en VBA (résolu).

Bonjour à vous.

Bigre c'est du rapide.

Merci :

patricktoulon :lol:
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 :D
C'est exactement ce que je recherchais.

Merci à vous.

Et en avance : Bonne année 2019.
27/12/2018, 15h29
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é ...:roll:
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... ;)

j'ai pris le risque
et la proposition de de minimathy n'a absolument rien a voir avec la demande
autrement dit c'est un coup de chance que ca fasse l'affaire

le code de la propsition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Dim ws As Worksheet
Private Sub CommandButton1_Click()
Dim I As Integer
 
  With Sheets("Imprimer RSI")
    .Range("Tableau51017").ClearContents
    For I = 1 To Me.ListView1.ListItems.Count
      .Range("A" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(1).Text
      .Range("B" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(2).Text
      .Range("C" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(3).Text
      .Range("D" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(4).Text
      .Range("E" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(5).Text
      .Range("F" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(6).Text
 
    Next I
    Me.Hide
 
  On Error Resume Next
    Range("A6:A500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    'Worksheets("Imprimer compte").PageSetup.Orientation = xlLandscape
    '.PrintPreview
    '.PrintOut  'Imprime la feuille
UserForm_Initialize
  End With
 
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Clear
    'Sheets("Feuil1").Activate
    Set ws = Sheets("Feuil1") 'Correspond au nom de votre onglet dans le fichier Excel
    With Me.ComboBox1
        For j = 2 To ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem ws.Range("A" & j)
        Next j
    End With
End Sub
Private Sub UserForm_Activate()
   With ListView1
      .View = 3                   ' type Report
      .Gridlines = True           ' affichage de lignes
      .FullRowSelect = True       ' sélection complète de la ligne
      .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
      .LabelEdit = 1              ' ne pas autoriser la saisie
      .ColumnHeaders.Clear  ' Vider le listview
      .ColumnHeaders.Add , , "Num", 0
      .ColumnHeaders.Add , , "Date", 80
      .ColumnHeaders.Add , , "Client", 80
      .ColumnHeaders.Add , , "N° Facture", 80, lvwColumnCenter
      .ColumnHeaders.Add , , "Paiement", 80
      .ColumnHeaders.Add , , "Crédit", 80
      .ColumnHeaders.Add , , "Débit", 80
   End With
 
InitList "", 1
End Sub
Private Sub InitList(V As String, Col As Long)
  N = 1
   With Feuil12 ' = aux CodeName
         ListView1.ListItems.Clear
      For L = 2 To .Range("A" & Rows.Count).End(xlUp).Row
         If Format(.Cells(L, Col), "mm") Like LCase(V) & "*" Then
          If Left(.Cells(L, 4), 1) = "D" Or Left(.Cells(L, 4), 1) = "F" Then
            ListView1.ListItems.Add , , L
            ListView1.ListItems(N).ListSubItems.Add , , .Cells(L, 2)
            ListView1.ListItems(N).ListSubItems.Add , , Format(.Cells(L, 3), "mm")
            ListView1.ListItems(N).ListSubItems.Add , , .Cells(L, 4)
            ListView1.ListItems(N).ListSubItems.Add , , .Cells(L, 5)
            ListView1.ListItems(N).ListSubItems.Add , , .Cells(L, 6)
            ListView1.ListItems(N).ListSubItems.Add , , .Cells(L, 7)
             N = N + 1
          End If
         End If
      Next
  End With
 
  Label1.Caption = "Nombre d'opération trouvé : " & ListView1.ListItems.Count
 
End Sub
Private Sub ComboBox1_Change()
InitList ComboBox1.Value, 2
End Sub
 
'Private Sub Userform_QueryClose(Cancel As Integer, CloseMode As Integer)
'If CloseMode = vbFormControlMenu Then Cancel = True     ' désactive la croix rouge
'End Sub

:roll:
rien a voir avec un replacement de chaine de caracteres dans une plage

27/12/2018, 16h56
RDBAL41

Changer l'année en VBA (résolu).

Re bonsoir à tous.

Heu... je n'ai rien compris à ce dernier débat. 8O

J'espère ne pas avoir involontairement mit quelqu'un dans l'embarras.
Me concernant, ma demande d'aide ponctuelle a été entendue.
Merci encore à vous tous.
Bonne soirée.
RDBAL

c'est pas un debat c'est une remarque
voila le code que tu a posté au depart
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 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
bien que mal concu on comprend tout de suite que ton but est de changer l'année dans les dates qui sont en G3:G11
hors la proposition qui t'a été faite ne touche en rien aux cellules
il faut etres plus clair dans ses demandes
;)

27/12/2018, 17h43
RDBAL41

Changer l'année en VBA (résolu).

Re. patricktoulon

Je prends en compte la remarque.
Effectivement, j'y ferais très attention la prochaine fois.

Pour :unparia
(Me concernant : j'utilise un vieux portable pour télécharger les fichiers, jamais le principal et je regarde de près le code que je recopie entièrement.
J'évite ainsi tout risque).

Bonne soirée.

RDBAL.

Changer l'année en VBA (résolu).

Bonjour,

Je reviens une dernière fois sur ce sujet qui est pour moi clos.

Je n'aime pas ne pas comprendre.

Mais voilà le code que: minimathy m'a fourni avec le fichier : HLBnQ2ov64U_changeAn.xlsm
Celui-ci est parfaitement adapter à ma problématique et à résolu celle-ci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Dim Mot As Variant
Dim REMPLACE As Variant
Dim Ws As Worksheet
 
Sub REPLACE()
  Mot = InputBox("Quelle annnée souhaitez-vous modifier?", Title:="Recherche une Année - Format ""AAAA""")
  If Mot = "" Then Exit Sub
 
  REMPLACE = InputBox("Par quelle année voulez vous la remplacer ?", Title:="Remplacer l'année trouvée")
  If REMPLACE = "" Then Exit Sub
    For Each Ws In ThisWorkbook.Worksheets
    Sheets(Ws.Name).Activate
    Set Ws = Sheets(Ws.Name)
      With Ws
        .Range("G3:G11").Select
        Selection.REPLACE What:=Mot, Replacement:=REMPLACE, lookAt:=xlPart
      End With
    Set Ws = Nothing
    Next Ws
    Sheets("JANVIER").Activate
    Range("C11").Select
End Sub

Bonne journée à vous tous et encore merci.
RDBAL.