Fonction Replace et format de date

Version imprimable

Bonjour,

J'ai une extraction au format csv d'une application sur laquelle je n'ai pas la main. A l'intérieur j'ai une colonne "date de début" qui contient des informations du style "Ouvert le: 28-01-2014 10:34". Je souhaite supprimer la chaine de caractères "Ouvert le: ", pour ne garde que la date et l'heure.

tout se passe bien si je fais la manip avec un Control+H.

Par contre si je ré-execute la macro que me génère excel, ca me transforme ma date en format américain et du coup ca inverse le mois et le jour :calim2:

Voici le code que j'execute en macro
Code:

1 2 3 4 5 Columns("D:D").Select Selection.Replace What:="Ouvert le: ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _ ReplaceFormat:=False
j'ai essayé de rajouter ce bout code avant:
Code:

1 2 3 Selection.NumberFormat = "@" Application.FindFormat.NumberFormat = "@" Application.ReplaceFormat.NumberFormat = "@"
Mais ca change rien.

et si je change l'option ReplaceFormat par True, et bien ca remplace rien.

Merci de votre aide

J'ai solutionné mon problème en faisant ca

Code:

1
2
3
4
5
6
7
8
 
Sub texte()
    Dim i As Long, derlign As Long
    derlign = Range("D65000").End(xlUp).Row 'donne la dernière ligne non vide en colonne A
   For i = 1 To derlign
        Cells(i, 4) = Replace(Cells(i, 4).Value, "Ouvert le: ", "")
    Next i
End Sub

Par contre en utilisant la commande suivante (qui découpe ma colonne qui contient plusieurs date en faite), ca me retransforme encore les dates:

Code:

1
2
3
4
5
 
    Columns("D:D").Select
        Selection.TextToColumns Destination:=Range("E1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(16, 1), Array(18, 1), Array(34, 1), Array(36, 1)) _
        , TrailingMinusNumbers:=True

05/02/2014, 19h08
papouclo
Bonjour,
Le nom de la procédure est bien choisi car on reste avec du texte dans la colonne D ce qui est peut être ennuyeux pour du traitement ultérieur.
Si on désire des dates, on peut essayer la procédure suivante :
Code:

1 2 3 4 5 6 7 Sub TexteEnDate() Range("D1", Range("D1048576").End(xlUp)).Select For Each cel In Selection On Error Resume Next cel.Value = CDate(Replace(cel.Value, "Ouvert le: ", "")) Next cel End Sub
Cordialement
Claude
06/02/2014, 10h53
maxvador
En fait les enregistrements dans la colonne D sont du style:
Code:

1 2 3 "Ouvert le: 18-04-2013 16:13 Ferme le: 22-04-2013 08:47 Duree totale: 2 Minute(s)"
Ce qui m'interesse c'est d'extraite la date de début et la date de fin dans 2 colonnes. La durée étant fausse, elle n'a pas d'importance.

Donc comment séparer en 2 ma colonne D?
06/02/2014, 12h36
Didier Gonard

1 pièce(s) jointe(s)
Bonjour,

il y plein de façons d'y arriver, question de contexte exact....

Ce qui se produit en inversion est logique si on se penche sur la façon dont excel et le vba traitent les dates :

Comprendre et gérer les dates sous Excel et en VBA

Le moyen sur de ne pas avoir de soucis est donc d'injecter dans ton excel feuille des numéros de série qui sont "inchangeables" et de le faire dans une colonne que tu auras préalablement formatée en date ;)

sur les divers moyens, je pense qu'un traitement direct (idéal en vitesse) comme tu as tenté est à oublier car on seras soumis aux "pouvoirs d’interprétation croisés VBA / feuille". Il faudra donc boucler sur la feuille (ou passer pas un array si très grande plage).
Ensuite reste le choix selon le contexte, ça se résume à du traitement de chaînes et à des conversions genre :
Code:

1 2 3 Sub gogo() ActiveCell = CLng(CDate(Left(Replace(Range("D3"), "Ouvert le: ", ""), 10))) End Sub
Pour une feuille comme l'image jointe, on a une date inversible en D3, la colonne F en format natif et la G en Date, on sélectionne F5, on exécute, G5 et on exécute..

Image : Pièce jointe 136274

Si tu veux récupérer les heures, il suffit d'adapter en toute logique :
Code:

1 2 3 4 Sub gogo2() ActiveCell = CDec(CDate(Left(Replace(Range("D3"), "Ouvert le: ", ""), 16))) End Sub
Sinon tu peux utiliser Split genre :
Code:

1 2 3 4 5 6 Sub gogo3() Dim tbo As Variant tbo = Split(ActiveCell, "-") End Sub
et traiter les résultats obtenus pour reformater la date voulue etc., etc.

cordialement,

Didier

Bonjour maxvador

Une solution:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub TexteEn2Colonnes()
Derniere = Range("D" & Rows.Count).End(xlUp).Row
Set r = Range(Range("D1"), Range("D" & Derniere))
r.Select
whatOuvert = "Ouvert le:"
whatFermer = "Ferme le:"
whatDuree = "Duree "
For Each cel In r
 If InStr(cel, whatOuvert) Then
  cel.Offset(0, 1).Value = CDate(Trim(Replace(cel.Value, whatOuvert, "")))
 ElseIf InStr(cel, whatFermer) Then
  cel.Offset(0, 2).Value = CDate(Trim(Replace(cel.Value, whatFermer, "")))
 ElseIf InStr(cel, whatDuree) Then
  Else
  cel.Select
  MsgBox "Contenu inconnu"
 End If
Next cel
End Sub

Merci à vous 2 pour vos réponses.

J'ai résolu mon problème avec ce bout de code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub texte()
    Dim i As Long, derlign As Long
    Dim str As String
    derlign = Range("D65000").End(xlUp).Row 'donne la dernière ligne non vide en colonne A
    For i = 1 To derlign
        Cells(i, 4) = Replace(Cells(i, 4).Value, "Ouvert le: ", "")
        Cells(i, 4) = Replace(Cells(i, 4).Value, "Ferme le: ", "")
        str = Cells(i, 4)
        If Len(str) > 9 Then
            Cells(i, 5) = CLng(CDate(Left(str, 10)))
            If Len(str) > 20 Then
                Cells(i, 6) = CLng(CDate(Right(Left(str, 34), 16)))
            End If
        End If
    Next i
End Sub

par contre je perds les heures derrière ma date.

J'ai essayé ton code Docmarti et ca me fait une erreur 13 - Incompatibilité de type. Il ne peut pas convertir la chaine de caratère en Date car les caractères "Ferme le: " sont toujours présent dans la chaine

06/02/2014, 15h08
Didier Gonard

Bonjour,

Citation:

par contre je perds les heures derrière ma date.

tu as la réponse dans mon post précédent Clng te renvoie un Long, donc ne peut représenter un nombre à virgule, donc le tronque, hors les numéros de série des dates ont une structure à virgule, d'où utilisation de CDec ;)

cordialement,

Didier
06/02/2014, 16h01
maxvador

En effet tu m'avais déjà donné la solution :ccool:
j'ai relu plusieurs fois ton post, mais apparemment je suis aveugle

Merci pour votre aide, je vais mettre en résolu ce sujet

Et comme ceci. Ca fonctionne ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub TexteEn2Colonnes()
Derniere = Range("D" & Rows.Count).End(xlUp).Row
Set r = Range(Range("D1"), Range("D" & Derniere))
r.Select
whatOuvert = "Ouvert le:"
whatFermer = "Ferme le:"
whatDuree = "Duree "
For Each cel In r
 If InStr(cel, whatOuvert) Then
  valeur = Trim(Replace(cel.Value, whatOuvert, ""))
 
  If Not IsDate(valeur) Then
   cel.Select
   MsgBox "Pas une date valide", , valeur
  Else
   cel.Offset(0, 1).Value = CDate(valeur)
  End If
 
 ElseIf InStr(cel, whatFermer) Then
  valeur = Trim(Replace(cel.Value, whatFermer, ""))
 
  If Not IsDate(valeur) Then
    cel.Select
   MsgBox "Pas une date valide", , valeur
  Else
   cel.Offset(0, 1).Value = CDate(valeur)
  End If
 
 ElseIf InStr(cel, whatDuree) Then
  Else
  cel.Select
  MsgBox "Contenu inconnu"
 End If
 
Next cel
End Sub