Modifier toutes les dates d'un fichier excel

Fermé
caillasse147 Messages postés 71 Date d'inscription lundi 26 décembre 2016 Statut Membre Dernière intervention 28 juin 2017 - 2 janv. 2017 à 09:41
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 2 janv. 2017 à 11:33
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

PHILOU10120 Messages postés 6371 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 5 mai 2024 797
2 janv. 2017 à 10:15
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
caillasse147 Messages postés 71 Date d'inscription lundi 26 décembre 2016 Statut Membre Dernière intervention 28 juin 2017
2 janv. 2017 à 10:23
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
2 janv. 2017 à 10:49
 
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
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
2 janv. 2017 à 10:58
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
PHILOU10120 Messages postés 6371 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 5 mai 2024 797
2 janv. 2017 à 11:14
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
2 janv. 2017 à 11:33
Attention avec remplacer, tu risques de remplacer autre chose que des dates, par exemple des années !
0