A voir également:
- Fonction split excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Fonction si excel - Guide
- Déplacer une colonne excel - Guide
- Excel remplir une cellule en fonction d'une autre ✓ - Forum Excel
1 réponse
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
25 oct. 2019 à 16:21
25 oct. 2019 à 16:21
Bonjour
Cdlmnt
Public Sub ok() Dim s As String, ts, d As Date s = [A2].Value ts = Split(s, " ") s = ts(0) & "/" & ts(1) & "/" & ts(2) d = CDate(s) [J1].Value = d End Sub
Cdlmnt
Modifié le 25 oct. 2019 à 16:28
Vu ce qui est ecrit dans A2 d'apres toto, 4 textes separes par un espace, j'y vois plutôt comme ceci
Si seulement annee deux chiffres, enlever CDate
Sub test() Dim tab1 As Variant With Worksheets("feuil1") 'donn?es du XX/XX/XX 456464 tab1 = Split(.Range("A2"), " ") .Range("J1").Value = CDate(tab1(2)) End With End Sub25 oct. 2019 à 16:50
Dans mon code entier, la feuille sur laquelle travailler est active.
je ne peut pas lui donner de nom car la feuille porte un nom différent à chaque fois, générée par un serveur.
peut être que votre solution fonctionne mais je ne sais pas comment aller cherchez l'information du numéro de la feuille :/
étant donné que la feuille à manipuler est active lorsque je veux effectuer cette manipulation, j'ai testé cotre code en enlevant la fonction with, mais le code bloque dans la fonction split au (.range) :
erreur de compilation : référence incorrecte ou non qualifiée
auriez-vous une idée ?
cordialement,
25 oct. 2019 à 16:32
toutefois, le code bloque à la ligne 6 :/
erreur 13 : incomparabilité de type
faut-il déclarer d en temps qu'une variable quelconque ? ou autre chose ?
Cordialement
Modifié le 25 oct. 2019 à 16:56
Sub test() Dim tab1 As Variant 'donn?es du XX/XX/XX 456464 tab1 = Split(Range("A2"), " ") Range("J1").Value = CDate(tab1(2)) End Sub25 oct. 2019 à 17:06
merci beaucoup, bonne fin de journée