Changement de date en auto ou en manuel
Résolu
BABAR07
-
BABAR07 -
BABAR07 -
Bonjour,
je suis un peu dans l'embarras, voila mon prob
en A1 j'ai 03/09/1954, je sollicite votre savoir pour que seulement l'année change donc 03/09/2011 avec une macro ou une formule, je n'y arrive pas.
GRAND MERCI A CEUX QUI PEUVENT SOULAGER MON PETIT CERVEAU DE BIENTOT 64 ANS
je suis un peu dans l'embarras, voila mon prob
en A1 j'ai 03/09/1954, je sollicite votre savoir pour que seulement l'année change donc 03/09/2011 avec une macro ou une formule, je n'y arrive pas.
GRAND MERCI A CEUX QUI PEUVENT SOULAGER MON PETIT CERVEAU DE BIENTOT 64 ANS
A voir également:
- Changement de date en auto ou en manuel
- Manuel d'utilisation en français - Guide
- Changer de dns - Guide
- Changer clavier qwerty en azerty - Guide
- Changement d'heure - Guide
- Changement d'écriture facebook - Guide
4 réponses
Bonjour,
Vous avez en A1 une date et voulez avoir, en B1 par exemple, cette même date, 57 ans plus tard...
En B1 :
=DATE(ANNEE(A1)+57;MOIS(A1);JOUR(A1))
Vous avez en A1 une date et voulez avoir, en B1 par exemple, cette même date, 57 ans plus tard...
En B1 :
=DATE(ANNEE(A1)+57;MOIS(A1);JOUR(A1))
SAlut,
Par macro, avec une InputBox demandant à l'utilisateur de combien d'années il veux décaler la date :
Sélectionner au préalable la cellule contenant la date, ALT+F8, choisir "Chgmt_Annee" et cliquer sur Exécuter...
Par macro, avec une InputBox demandant à l'utilisateur de combien d'années il veux décaler la date :
Sub Chgmt_Annee()
Dim result As String
result = InputBox("Saisir un nombre d'année :", "De combien d'années souhaitez vous décaler la date?")
ActiveCell.Offset(0, 1).Value = CDate(Day(ActiveCell) & "/" & Month(ActiveCell) & "/" & Year(ActiveCell) + CInt(result))
End Sub
Sélectionner au préalable la cellule contenant la date, ALT+F8, choisir "Chgmt_Annee" et cliquer sur Exécuter...
Bonjour,
Une variante...
Qui ajoute autant d'années que désirées à toutes les cellules de la colonne A, tout en vérifiant que result est bien numérique, et que les cellules concernées sont bien des dates :
Bonne journée
Une variante...
Qui ajoute autant d'années que désirées à toutes les cellules de la colonne A, tout en vérifiant que result est bien numérique, et que les cellules concernées sont bien des dates :
Sub Chgmt_Annee()
Dim result As String
Dim Cel As Range
Do
result = InputBox("Saisir un nombre d'année :", "De combien d'années souhaitez vous décaler les dates?")
If result = "" Then Exit Sub
Loop While Not IsNumeric(result)
For Each Cel In Range("A1:A" & [A65000].End(xlUp).Row)
If IsDate(Cel) Then Cel.Offset(0, 1).Value = DateAdd("yyyy", result, Cel)
Next Cel
End Sub
Bonne journée
merci de tout coeur