Discussion :

[potiocom]

Bonjour,
J'aurais besoin d'aide pour améliorer une macro.
Aujourd'hui j'arrive à sélectionner un nombre à 2 chiffres pour le mettre entre parenthèses 10 -> (10) avec le code ci-dessous.
Je souhaite pouvoir également mettre entre parenthèses, avec la même macro, des nombres séparés par une virgule et un espace 10, 12 -> (10, 12)
Pour résumer, transformer ce texte :
blabla 10, truc 14 et machins 16, 18
en : blabla (10), truc (14) et machins (16, 18)

Une idée ?
Merci

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
Sub Ajouter_parenthèses()
'
' Ajoute des parenthèses aux références à deux chiffres 10 -> (10)
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^#^#" 'Deux chiffre
        .Replacement.Text = "(^&)"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[gnain]

Je souhaite pouvoir également mettre entre parenthèses, avec la même macro, des nombres séparés par une virgule et un espace 10, 12 -> (10, 12)
Pour résumer, transformer ce texte :
blabla 10, truc 14 et machins 16, 18
en : blabla (10), truc (14) et machins (16, 18)

tu y étais presque.

Il faut faire en 2 étapes,

1e étapes : votre code intégral ce qui donne
blabla (10), truc (14) et machins (16), (18)


2e étape : remplacer les "), (" par ", "
ce qui donne
blabla (10), truc (14) et machins (16, 18)


voici le code complet

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
28
29
 
Sub Ajouter_parenthèses()
'
' Ajoute des parenthèses aux références à deux chiffres 10 -> (10)
'
' 1e étapes
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
 
        .Text = "^#^#"  'Deux chiffre
        .Replacement.Text = "(^&)"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    ' 2e étapes
    Selection.Text = Replace(Selection.Text, "), (", ", ")
 
 
End Sub