Intégrer le "/" dans une suite de nombre
Résolu/Fermé
Crealex1979
Messages postés
15
Date d'inscription
lundi 1 septembre 2014
Statut
Membre
Dernière intervention
10 avril 2020
-
24 août 2018 à 11:23
Crealex1979 Messages postés 15 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 10 avril 2020 - 24 août 2018 à 12:08
Crealex1979 Messages postés 15 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 10 avril 2020 - 24 août 2018 à 12:08
A voir également:
- Intégrer le "/" dans une suite de nombre
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs
- Comment intégrer une vidéo dans un powerpoint - Guide
- Nombre facile - Télécharger - Outils professionnels
- Excel compter le nombre de caractères spécifique dans une cellule ✓ - Forum Excel
- Nombre de combinaison possible avec 10 chiffres - Forum Programmation
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
24 août 2018 à 11:43
24 août 2018 à 11:43
Bonjour,
En vba Faire Alt F11 pour accéder à l'éditeur.
Cliquez sur la feuille qui contient les données en haut à gauche.
Mettre ce code :
Allez sur la feuille, changer de feuille, revenez , c'est opérationnel
Il suffit d'enregistrer sous Classeur prenant en charge les macros
En vba Faire Alt F11 pour accéder à l'éditeur.
Cliquez sur la feuille qui contient les données en haut à gauche.
Mettre ce code :
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) '---Convertit un nombre de 7 ou 8 chiffres en date--- Dim d As Variant d = Target.Value 'l'idéal serait de connaître la frappe exacte... If Not (d Like "#######" Or d Like "########") Then Exit Sub d = Left(Right(d, 6), 2) & "/" & Left(Right(0 & d, 8), 2) & "/" & Right(d, 4) 'mm/dd/yyyy d = ExecuteExcel4Macro("DATEVALUE(""" & d & """)") If IsNumeric(d) Then Target.NumberFormat = "dd/mm/yyyy" Target = d Else Target.NumberFormat = "General" End If End Sub
Allez sur la feuille, changer de feuille, revenez , c'est opérationnel
Il suffit d'enregistrer sous Classeur prenant en charge les macros
Crealex1979
Messages postés
15
Date d'inscription
lundi 1 septembre 2014
Statut
Membre
Dernière intervention
10 avril 2020
24 août 2018 à 12:08
24 août 2018 à 12:08
Super merci pour cette réponse rapide !