Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Hugues
  • 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 !

Hugues

XLDnaute Impliqué
Bonjour Le Forum,

Grace au forum, j'arrive à mettre en forme une série de chiffre representant une date = exemple 091006 qui devient 09/10/2006. Merci encore à tout le monde pour l'aide.
La formule est : = DATE(DROITE(A3;2)+100;DROITE(ENT(A3/100);2);ENT(A3/10000))

Je souhaiterais intégrer cette formule dans une boucle.
Pourriez-vous m'aider à rédiger en code VBA cette formule ?

Merci par avance,

Hugues
 
Re : Code VBA

salut,

voici l'équivalent VBA de ta formule :

Dim A3, D As Date
A3 = 91006
D = DateSerial(Right$(A3, 2), Right$(Int(A3 / 100), 2), Int(A3 / 10000))


autre façon de procéder :

A3 = Right$("0" & 91006, 6)
D = DateSerial(Right$(A3, 2), Mid$(A3, 3, 2), Left$(A3, 2))
 
- 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 2019 code vba
Réponses
17
Affichages
2 K
P
  • Question Question
XL 2016 Code VBA
Réponses
11
Affichages
683
Périclès1801
P
Réponses
12
Affichages
1 K
N
Réponses
6
Affichages
2 K
Navillus
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…