Date VBA Résolu/Fermé

Question

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

ccm81 · Answer

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

ccm81 · Answer

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

Date VBA

2 réponses

Discussions similaires