Date VBA
Résolu
Fahora
Messages postés
949
Statut
Membre
-
Fahora Messages postés 949 Statut Membre -
Fahora Messages postés 949 Statut Membre -
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.
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 !
--
Nos seules limites sont celles que nous nous imposons nous-même.
La politesse et un merci ne tuent pas. Il existe un bouton pour "Résolu" pour confirmer que votre problème n'en est plus un. Fahora
ç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
--
Nos seules limites sont celles que nous nous imposons nous-même.
La politesse et un merci ne tuent pas. Il existe un bouton pour "Résolu" pour confirmer que votre problème n'en est plus un. Fahora
2 réponses
-
Bonjour
Un exemple en détaillant un peu
https://www.cjoint.com/c/IDAnPYKezEB
Cdlmnt -
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
