Discussion :

[GGal2]

Bonjour,
Dans une texte Word, je souhaiterais remplacer les séparateurs d'une chaîne horaire de type 10:12.56 pour obtenir une chaîne de type 10 min 12 s 56. De même pour la chaîne 01:10:12, la remplacer par 1 h 10 min 12 s, avec suppression des zéros initiaux.
Par programmation VBA si possible, ou autre si plus simple.
Merci et cordialement,
GGal2

[Heureux-oli]

Salut,

Jette un oeil là : http://sepia.developpez.com/office/w...cherremplacer/

Malheureusement, les chaînes horraire ne sont que du simple texte en Word.

[GGal2]

La fonction Rechercher ne pose pas de problèmes (:^#^#.). Mais comment remplacer à la volée de grandes quantités.
D'où ma question, et sa solution par VBA.
GGal2

[Heureux-oli]

Salut,

La fonction Rechercher ne pose pas de problèmes (:^#^#.). Mais comment remplacer à la volée de grandes quantités.
D'où ma question, et sa solution par VBA.
GGal2

Même entre les lignes, je ne le vois pas dans le premier message.

Un replace All ne convient pas ?

Peut-être une piste là pour le VBA : http://heureuxoli.developpez.com/off...-et-remplacer/

[GGal2]

J'ai essayé de bricoler quelque chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub essai_2()
    With Selection.Find
        .Text = "^#^#:^#^#.^#^#"
        .Forward = True
        .Wrap = wdFindContinue
        .Execute
        While .Found
            Set chm = .Parent
            a1 = Mid(chm, 1, 2)
            a2 = Mid(chm, 4, 2)
            a3 = Mid(chm, 7, 2)
            .Replacement.Text = a1 & " min " & a2 & " s " & a3
            .Execute
        Wend
    End With
End Sub

Les occurrrences sont bien détectées une à une, mais le remplacement ne s'effectue pas.

[Heureux-oli]

Salut,

Ton code n'est pas tout à fait correct et c'est pour cette raison qu'il ne fonctionne pas, mais tu t'en doutes un peu.


Cette ligne ne donne rien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set chm = .Parent

C'est de cette marnière qu'on affecte une valuer à un objet.
Dans ton cas, tu as besoin d'un texte pour pouvoir le traiter avec des fonctions texte.

Voilà ce que j'obtiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub RemplacementTemps()
Dim booFound As Boolean
Dim replStr As String
Dim newStr As String
 
 
Selection.HomeKey unit:=wdStory
Do
 
With Selection.Find
    .Text = "^#^#:^#^#.^#^#"
    .Forward = True
    .Wrap = wdFindContinue
 
 
    .Execute2007
    booFound = .Found
    If booFound Then
        replStr = Selection.Text
        newStr = Left(replStr, 2) & " min " & Mid(replStr, 4, 2) & " s " & Right(replStr, 2)
        Selection.Text = newStr
    End If
 
End With
Loop While booFound
 
End Sub

La boucle sur le booFound, c'es tpour limiter la recherche.

Si le texte est trouvé, on modifie la sélection.
On récupère le texte par le contenu de la sélection et on le remplace par le nouveau texte.

[GGal2]

C'est parfait. Je dois dire que je suis beaucoup plus à l'aise sous Excel.

Entre-temps, j'ai trouvé par la fonction Rechercher/Remplacer
texte cherché : ([0-9]{2})[0-9]{2}).([0-9]{2})
texte à remplacer : \1 min \2 s \3
option caractères génériques


Merci pour tout.

GGal2