Date VBA [Résolu]

Messages postés
813
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
26 avril 2019
- - Dernière réponse : Fahora
Messages postés
813
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
26 avril 2019
- 26 avril 2019 à 16:34
Bonjour à tous,

ça faisait longtemps que je n'étais pas venu ici, et je sollicite à nouveau votre aide.

Je cherche à instaurer une date en vba à partir d'une cellule écrit telle qu'elle :

YYYYMMDD
exemple :
20190104

Je cherche à transposer cette écriture en une date.

datetext = Cells(ColAnneeMois.Column, j)
Cells(j, DC).Formula = DATE(LEFT(datetext,4),(MID(datetext,5,2)),(RIGHT(datetext,2))


Malheureusement,

erreur de compilation :
Attendu : )

Ce bout de code est inscrit dans une boucle , où la variable mobile est "j" qui me permet d'aller de la ligne 2 à 10000.

Merci pour aide !



Configuration: Windows / Chrome 73.0.3683.103

Afficher la suite 

2 réponses

Messages postés
9060
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 août 2019
1607
0
Merci
Bonjour

Un exemple en détaillant un peu
https://www.cjoint.com/c/IDAnPYKezEB

Cdlmnt
Fahora
Messages postés
813
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
26 avril 2019
47 -
Merci pour ton retour,

Malheureusement , je ne peux pas ouvrir les cjoint.com depuis le bureau...

amicalement
Commenter la réponse de ccm81
Messages postés
9060
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 août 2019
1607
0
Merci
target.value est la valeur de la cellule double-cliquée, tu remplaces par l'adresse de ta cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim d As String, dd As String
Dim aa As String, mm As String, jj As String
d = Target.Value
aa = Left(d, 4)
mm = Format(Mid(d, 5, 2), "00")
jj = Format(Right(d, 2), "00")
dd = "=date(" & aa & ";" & mm & ";" & jj & ")"
Target.Offset(0, 1).FormulaLocal = dd
End Sub

Cdlmnt
Fahora
Messages postés
813
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
26 avril 2019
47 -
ça semble fonctionner, merci pour ton aide !
Commenter la réponse de ccm81