Sujet Précédent Sujet Suivant

Date VBA

Résolu/Fermé
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 - 26 avril 2019 à 15:19
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 - 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

2 réponses

Réponse 1 / 2
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
26 avril 2019 à 15:42
Bonjour

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

Cdlmnt
0
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
26 avril 2019 à 15:44
Merci pour ton retour,

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

amicalement
0
Réponse 2 / 2
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
26 avril 2019 à 15:59
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
0
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
26 avril 2019 à 16:34
ça semble fonctionner, merci pour ton aide !
0

Discussions similaires

Prélèvement JM Jacquie et Michel date.
Kekradinho -
Kar -

31 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses
Pix
Anyssa -
vibe -

4 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses