Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Inverser une date

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion olive323
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

olive323

XLDnaute Occasionnel
Bonjour à tous,


Je souhaiterais inverser une date,

20110420 EN 20/04/2011

Est ce l'un d'entre vous aurait une idée???

Une autre question
Sur le fichier joint, j'extrais des données par le biais d'une macro, dans cette extraction il y a des cellules vides.
Quand je fais la formule NBVAL le resultat tient compte des cellulles vides.
Dans le fichier ci joint le resultat devrait etre 9 et ca m'annonce 17



Cordialement

olive323
 

Pièces jointes

Trier par date Trier par votes
Re : Inverser une date

Bonjour,

Deux solutions :


- par formule :

Code: 
=TEXTE(A1;"0000""-""00""-""00")*1


- avec la fonction Convertir d'Excel :

sélectionner la colonne contenant tes données, puis : Données - Convertir - Largeur fixe - Suivant - Suivant - Cocher : Date et sélectionner AMJ - et Terminer

@+
 
Vote positif 0 Vote négatif
Re : Inverser une date

ce qui ralentirait le moins , si tu peux STP l'integrer dans la macro? Moi j'en suis pas capable.

Sub toto_6()
Dim f, c, n, l, v
With Sheets("Feuil1")
f = .Cells(.Rows.Count, 5).End(xlUp).Row 'à chaque changement de la colonne 5'
c = 2 'toutes les 2 colonnes'
n = 2 'à partir de la 2ème ligne'
Do While n <= f
v = .Cells(n, 5)
l = 4 'reporte les données à partir de la ligne 4'
Do While .Cells(n, 5).Value = v 'à chaque changement de la colonne 5'
Sheets("Feuil2").Cells(l, c).Value = v
Sheets("Feuil2").Cells(l, c - 1).Value = .Cells(n, 6) 'colonne reporté'
l = l + 1
n = n + 1
Loop

c = c + 2 'reporté toutes les 2 colonnes'
Loop
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Inverser une date

Bonjour Olive323,

Pour la date, si elle est en A1 :
Code: 
=DATE(GAUCHE(A1;4);STXT(A1;5;2);DROITE(A1;2))

Pour la formule dans ton classeur, je ne sais pas trop ce que contiennent tes cellules apparemment vides mais dans le doute, essaie cete formule :
Code: 
=NB.SI(A2:A4998;"")

A+
 
Vote positif 0 Vote négatif
Re : Inverser une date

Re, Bonjour Tibo, Bonjour Fred0o

Désolé de m'amuser comme un gamin ( à mon age pppffff )


EDITION : Maintenant quatre en un
(j'ai ajouté la solution de Tibo 😉 )
VB: 
Sub On_Passe_Le_Temps_CommeOnPeut_LeWeekEND()
Dim idees

idees = _
InputBox("Choisir 1 solution parmi 4 pour l'inversion" & vbLf & vbLf & _
"Répondre 1, 2 3 ou 4" & vbLf & vbLf & vbTab & _
"Choix par défaut : 3", "XLD INVERSATOR", 3)

[B1] = Empty

Select Case idees
Case 1
Range("A1") = "20110420"
Range("B1").FormulaR1C1 = _
        "=RIGHT(RC[-1],2)&""/""&MID(RC[-1],5,2)&""/""&LEFT(RC[-1],4)*1"
Case 2 'Fred0o avait la même formule que moi donc on reste à 4 solutions ;-)
Range("A1") = "20110420"
Range("B1").FormulaR1C1 = _
        "=DATE(LEFT(RC[-1],4),MID(RC[-1],5,2),RIGHT(RC[-1],2))"
Case 3
Columns("B:B").Delete Shift:=xlToLeft
Range("A1") = "20110420"
Range("A1").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 5), TrailingMinusNumbers:=True
        
Case 4 'Tibo
Range("A1") = "20110420"
Range("B1").FormulaR1C1 = "=TEXT(RC[-1],""0000""""-""""00""""-""""00"")*1"
End Select
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Inverser une date

Merci à tous pour ces reponses
Pour la date en formule ca fonctionne parfaitement
Pour le NBsi fredo ca marche pas

La macro doit coller une valeur vide parce que quand je selection les cellules et que je suppr le NBVAL fonctionne !!!
 
Vote positif 0 Vote négatif
Re : Inverser une date

S'il y a quelqu'un qui ne s'est pas quoi faire,j'ai du boulot!!!
Un coup de main j'accepte sans problème
Une petite synthese
l'objectif est de compter le nombre de ligne par jour
Par exemple
Le 01/04/2011 3 ISSSCH


Merci🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 Inverser concatener une cellule
Réponses
4
Affichages
653
Agecanonix35400
Y
  • Résolu(e)
XL 2013 Borner une chronologie
Réponses
11
Affichages
664
Dranreb
M
  • Résolu(e)
Microsoft 365 Incrémentation colonne par rapport à la date et au nombre de ligne
Réponses
2
Affichages
399
Muzomax59
M
Y
  • Question Question
XL 2013 TCD avec une colonne avec le total des éléments d'une segment et une colonne avec un ou plusieurs éléments du même segment
Réponses
0
Affichages
436
Yvan1
Y
D
  • Question Question
Microsoft 365 Remplir les cellules en fonction d'une date d'arrivée et d'une date de départ
Réponses
2
Affichages
695
de_hanstrapp
D
O
  • Question Question
Microsoft 365 Présence d'au moins une date d'un mois/année choisi dans un intervalle de date donné
Réponses
2
Affichages
522
olivier777
O
Y
  • Question Question
Microsoft 365 Calcule d'une date après le 1er janvier avec prix associé
Réponses
4
Affichages
597
Yoyo60
Y
P
  • Question Question
Microsoft 365 Nombre de jours entre deux date mais avec une condition
Réponses
7
Affichages
2 K
sylvanu
  • Question Question
Microsoft 365 Copier la valeur de cellules non contigües de plusieurs feuilles vers une feuille récapitulative.
Réponses
14
Affichages
1 K
Droopyougo
A
  • Résolu(e)
XL 2019 Vérifier si une date est comprise dans une série d'intervalles
Réponses
2
Affichages
1 K
ArnaudBut
A
A
  • Question Question
Autres Règler une erreur de formule "index" qui va chercher une date
Réponses
6
Affichages
885
alain.pierrephie
A
T
  • Résolu(e)
XL 2016 Sélectionner une cellule date excel en fonction d'une combobox dans un formulaire
Réponses
5
Affichages
1 K
TyrosCB
T
S
  • Question Question
XL 2013 Macro ou formule pour remplir un tableau automatiquement par rapport à la date
Réponses
2
Affichages
1 K
Sylvain. B
S
C
  • Question Question
XL 2019 Textbox <=> Cells <=> Array/Dictionary, comment gérer une possible date ? Format International vs US ? dd/mm/yy vs mm/dd/yy
Réponses
4
Affichages
848
patricktoulon
M
  • Résolu(e)
Microsoft 365 Récupération des données pour la date la plus récente seulement
Réponses
7
Affichages
1 K
MorganArdeche007
M
M
  • Question Question
XL 2019 [RESOLU] Trouver une date pour un chiffre compris entre deux valeurs
Réponses
2
Affichages
710
MARC91
M
R
  • Résolu(e)
XL 2016 inserer une notion de date dans une formule
Réponses
7
Affichages
1 K
Rata75
R
S
  • Question Question
Microsoft 365 Formule SI avec une case dans un format de date
Réponses
1
Affichages
883
JHA
J
A
  • Question Question
XL 2019 Calculer une occurence en fonction d'une date supérieur à une autre
Réponses
9
Affichages
1 K
FlamXYZ
F
P
  • Question Question
XL 2010 EXTRACTION SELON UNE DATE
Réponses
6
Affichages
992
Pache69
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…