Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Remettre la date dans l'ordre

Remettre la date dans l'ordre

9 réponses
Avatar
Dinozor
Bonjour à tous,

Je possède un carnet d'adresse d'une association, qu'une autre personne
tenait à jour. Cette personne ayant disparue, j'ai rencontré quelques
problèmes dans ce fichiers.

Dans la colonne "Date d'adhésion", il y a de saisie "L'année et le mois" ce
qui donne 2003 12.

Est-ce qu'il serait possible par un e "Formule ou une macro" de remettre les
information dans l'ordre.... c'est à dire 01/12/2003.... étant un débutant
dans cette pratique pourriez-vous me dépanner par des explications
simples....

Merci à tous et bonne journée.
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Bruno LOUIS
Salut,

En A1, tu as ta date sous le forme aaaa mm ou aaaa m. En B1, saisi la
formule suivante :

ÚTE(GAUCHE(A1;CHERCHE(" ";A1)-1);DROITE(A1;NBCAR(A1)-CHERCHE(" ";A1));1)

si tu as des formats d'un autre type, revient sur le forum, on pourra
peut-être adapter.

Bruno


"Dinozor" a écrit dans le message de news:
41f4ea98$0$2515$
Bonjour à tous,

Je possède un carnet d'adresse d'une association, qu'une autre personne
tenait à jour. Cette personne ayant disparue, j'ai rencontré quelques
problèmes dans ce fichiers.

Dans la colonne "Date d'adhésion", il y a de saisie "L'année et le mois"
ce
qui donne 2003 12.

Est-ce qu'il serait possible par un e "Formule ou une macro" de remettre
les
information dans l'ordre.... c'est à dire 01/12/2003.... étant un débutant
dans cette pratique pourriez-vous me dépanner par des explications
simples....

Merci à tous et bonne journée.




Avatar
Patrick BASTARD
Bonjour, *Dinozor*
J'ai lu ton post 41f4ea98$0$2515$
avec le plus grand intéret :

si tous toutes tes dates sont sous cette forme (4 car pour l'année et 2 pour
le mois),
tes dates en colonne A,
=SOMME(1&"/"&DROITE(A1;2)&"/"&GAUCHE(A1;4))*1
(Format, Nombre, Date)
à recopier vers le bas.

Si cela ne convient pas, reviens.

Bien cordialement,

Patrick.


Bonjour à tous,

Je possède un carnet d'adresse d'une association, qu'une autre
personne tenait à jour. Cette personne ayant disparue, j'ai rencontré
quelques problèmes dans ce fichiers.

Dans la colonne "Date d'adhésion", il y a de saisie "L'année et le
mois" ce qui donne 2003 12.

Est-ce qu'il serait possible par un e "Formule ou une macro" de
remettre les information dans l'ordre.... c'est à dire 01/12/2003....
étant un débutant dans cette pratique pourriez-vous me dépanner par
des explications simples....

Merci à tous et bonne journée.


Avatar
pPTIFRED
salut
tu fait un clic droit sur la celulle concerne ensuite tu choisi format de
celulle tu selectionne date dans la liste et ensuite sur la droite tu
selectionne ton format de date
j'espere que cela t'iras

ptifred


Bonjour à tous,

Je possède un carnet d'adresse d'une association, qu'une autre personne
tenait à jour. Cette personne ayant disparue, j'ai rencontré quelques
problèmes dans ce fichiers.

Dans la colonne "Date d'adhésion", il y a de saisie "L'année et le mois" ce
qui donne 2003 12.

Est-ce qu'il serait possible par un e "Formule ou une macro" de remettre les
information dans l'ordre.... c'est à dire 01/12/2003.... étant un débutant
dans cette pratique pourriez-vous me dépanner par des explications
simples....

Merci à tous et bonne journée.





Avatar
Daniel
Bonjour.
Un peu tard, mais pour le plaisir d'utiliser "split", et sans contrôle de
vraisemblance, voici ma contribution :

Sub Test()
Dim c As Range, Plage As Range
Range("A1:A100").Select 'plage des dates à modifier
For Each c In Selection
tranche = Split(c, " ")
For Each Item In tranche
If Len(Item) = 4 Then
Annee = CInt(Item)
Else
If Item <> "" Then
mois = CInt(Item)
End If
End If
Next Item
c.Value = DateSerial(Annee, mois, 1)
Next c
End Sub

Cordialement.
Daniel
"Dinozor" a écrit dans le message de news:
41f4ea98$0$2515$
Bonjour à tous,

Je possède un carnet d'adresse d'une association, qu'une autre personne
tenait à jour. Cette personne ayant disparue, j'ai rencontré quelques
problèmes dans ce fichiers.

Dans la colonne "Date d'adhésion", il y a de saisie "L'année et le mois"
ce
qui donne 2003 12.

Est-ce qu'il serait possible par un e "Formule ou une macro" de remettre
les
information dans l'ordre.... c'est à dire 01/12/2003.... étant un débutant
dans cette pratique pourriez-vous me dépanner par des explications
simples....

Merci à tous et bonne journée.




Avatar
AV
Très facile manip :
Sélection de la plage > Données > convertir > aller à l'étape 3 de l'assistant >
cocher Date > choisir le format AMJ > ok

AV
Avatar
Dinozor
Bonjour
"Daniel" qui a écrit

Un peu tard, mais pour le plaisir d'utiliser "split", et sans contrôle de
vraisemblance, voici ma contribution :

Sub Test()
Dim c As Range, Plage As Range
Range("A1:A100").Select 'plage des dates à modifier
For Each c In Selection
tranche = Split(c, " ")
For Each Item In tranche
If Len(Item) = 4 Then
Annee = CInt(Item)
Else
If Item <> "" Then
mois = CInt(Item)
End If
End If
Next Item
c.Value = DateSerial(Annee, mois, 1)
Next c
End Sub

Il s'agit probablement d'une macro ? mais je ne sais pas comment

l'enregistrer .... ou la mettre etc... je suis NUL en ce domaine.... et
c'est pourtant intéressant !!

merci encore si tu as la patience de m'expliquer ??

Amicalement Roland

Avatar
Dinozor
Bonsoir
"AV" qui a écrit

Très facile manip :
Sélection de la plage > Données > convertir > aller à l'étape 3 de
l'assistant >

cocher Date > choisir le format AMJ > ok



Ok tu as raison très facile et bon résultat, je peux ensuite mettre la date
suivant ma convenance 01-janv-05 ou 01/01/05 etc c'est super

Merci à tous de votre participation, vous êtes sympas

Avatar
Daniel
Bonsoir.
Comme ça ne presse pas, puisque tu as d'autres solutions, je renvoie les
explications à après-demain matin.
Cordialement.
Daniel
"Dinozor" a écrit dans le message de news:
41f55e4b$0$29125$
Bonjour
"Daniel" qui a écrit

Un peu tard, mais pour le plaisir d'utiliser "split", et sans contrôle de
vraisemblance, voici ma contribution :

Sub Test()
Dim c As Range, Plage As Range
Range("A1:A100").Select 'plage des dates à modifier
For Each c In Selection
tranche = Split(c, " ")
For Each Item In tranche
If Len(Item) = 4 Then
Annee = CInt(Item)
Else
If Item <> "" Then
mois = CInt(Item)
End If
End If
Next Item
c.Value = DateSerial(Annee, mois, 1)
Next c
End Sub

Il s'agit probablement d'une macro ? mais je ne sais pas comment

l'enregistrer .... ou la mettre etc... je suis NUL en ce domaine.... et
c'est pourtant intéressant !!

merci encore si tu as la patience de m'expliquer ??

Amicalement Roland





Avatar
Dinozor
Ok Daniel je suis preneur de tous conseils.

@]++


--
(°_°) Cliquez ci-dessous pour me répondre
http://www.cerbermail.com/?Soz9ORPUwb

Questions sur votre Pare-Feux :
news://news.zoo-logique.org/pare-feux
++++++++++++++++++++++++++++++++++++++++++

"Daniel" a écrit dans le message de
news:
Bonsoir.
Comme ça ne presse pas, puisque tu as d'autres solutions, je renvoie les
explications à après-demain matin.
Cordialement.
Daniel
"Dinozor" a écrit dans le message de news:
41f55e4b$0$29125$
Bonjour
"Daniel" qui a écrit

Un peu tard, mais pour le plaisir d'utiliser "split", et sans contrôle
de



vraisemblance, voici ma contribution :

Sub Test()
Dim c As Range, Plage As Range
Range("A1:A100").Select 'plage des dates à modifier
For Each c In Selection
tranche = Split(c, " ")
For Each Item In tranche
If Len(Item) = 4 Then
Annee = CInt(Item)
Else
If Item <> "" Then
mois = CInt(Item)
End If
End If
Next Item
c.Value = DateSerial(Annee, mois, 1)
Next c
End Sub

Il s'agit probablement d'une macro ? mais je ne sais pas comment

l'enregistrer .... ou la mettre etc... je suis NUL en ce domaine.... et
c'est pourtant intéressant !!

merci encore si tu as la patience de m'expliquer ??

Amicalement Roland