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
A voir également:
- Date VBA
- Airpods 3 date de sortie - Guide
- Exif date changer - Télécharger - Albums photo
- Publipostage date inversée ✓ - Forum Excel
- Convertisseur date chiffre romain - Forum Loisirs / Divertissements
- Jm date désabonnement ✓ - Forum Consommation & Internet
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