Modifier toutes les dates d'un fichier excel

caillasse147 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

4 réponses

Réponse 1 / 4
PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
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.
0
Réponse 2 / 4
caillasse147 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

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

Meilleurs vœux à toi aussi pour cette année 2017.

Comme tu as copié / collé ton classeur de 2016 pour en faire celui de 2017,
il me semble que le problème est plus général : tu dois d'abord effacer
toutes tes anciennes données (y compris tes dates de 2016) ; ensuite,
tu auras toute liberté pour saisir tes nouvelles données.

Mais pour ne pas avoir le même problème en 2018, je te conseille de
faire un modèle de ton classeur Excel sans aucune données : *.xltm

Cordialement.  :)
 
0
Réponse 3 / 4
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
Réponse 4 / 4
PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
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
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Attention avec remplacer, tu risques de remplacer autre chose que des dates, par exemple des années !
0