Modifier toutes les dates d'un fichier excel

Question

Bonjour à tous, et Meilleurs vœux pour cette nouvelle année 2017.
Merci d'avance à ceux qui prendront un peu de temps pour me répondre.
Mon problème est le suivant
Alors en fait, j'ai un gros fichier Excel contenant des dizaines de macros qui tournent parfaitement au boulot.
Par contre, c'est un fichier annuel donc il est maintenant terminé et je l'ai donc copié collé pour attaquer cette nouvelle année 2017. Mais le problème c'est que j'ai énormément de dates qui sont en 2016 sur mon fichier et pour éviter de perdre un temps fou à les modifier à la main, Est-ce qu'il y aurait une méthode permettant de les modifier en quelques clics?
Merci

PHILOU10120 · Answer

Bonjour Caillasse147
Difficile de le dire sans le fichier
Vos dates sont-elles des séries ou individuelle ?
Si vous pouvez nous mettre le fichier sans données confidentielle cela serait plus facile pour vous aider.

caillasse147 · Answer

Bonjour,
Malheureusement je ne peux pas mettre le fichier non mais ce sont des dates individuelles, tapées à la main une par une quoi

Patrice33740 · Answer

Bonjour,
Dans un module standard, essaies ce code :
Option Explicit
Sub Remplacer2016par2017()
Dim w As Worksheet
Dim c As Range
Dim d As Date
  For Each w In Worksheets
    For Each c In w.UsedRange.Cells
      If VarType(c.Value) = vbDate Then
        If InStr(1, c.Formula, "=") = 0 Then
          d = c.Formula
          If Year(d) = 2016 Then
            d = DateAdd("yyyy", 1, d)
            c.Formula = d
          End If
        End If
      End If
    Next c
  Next w
End Sub

PHILOU10120 · Answer

Bonjour
Sélectionner les dates, si en colonne pas de problème
Autrement Sélectionner en maintenant la touche Ctrl enfoncée
Menu accueil
Edition
Remplacer
2016
2017
remplacer tout

Modifier toutes les dates d'un fichier excel

4 réponses

Discussions similaires

Newsletters