Date VBA
Résolu
Fahora
Messages postés
814
Date d'inscription
Statut
Membre
Dernière intervention
-
Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention -
Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention -
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 !
ç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
A voir également:
- Date VBA
- Airpods 3 date de sortie - Guide
- Jm date désabonnement - Forum Gmail
- Publipostage date inversée - Forum Word
- Jm date resiliation ✓ - Forum Consommation & Internet
- Trier par date excel - Guide
2 réponses
target.value est la valeur de la cellule double-cliquée, tu remplaces par l'adresse de ta cellule
Cdlmnt
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
Malheureusement , je ne peux pas ouvrir les cjoint.com depuis le bureau...
amicalement