Discussion :

[Arsene12]

Bonjour,
j'ai la chaîne de caractère suivante:

monsite=X.fr

Je souhaiterai l'incrémenter pour obtenir ceci :

monsite=1.fr
monsite=2.fr
...
...
monsite=10000.fr

Pouvez-vous me dire quel est le code à utiliser. Merci d'avance.

[Heureux-oli]

Salut,

Word ne gère pas l'incrémentation de la même manière qu'Excel.

Tu dois utiliser un champ SEQ

http://heureuxoli.developpez.com/off...amps/#LIV-E-10

{ SEQ MaSéquence }

Il uffit alors de faire un copier coller et ensuite
Ctrl + A suivi de F9

[Arsene12]

Merci pour cet aide. J'ai trouvé la solution, voici le code :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
 
Sub BOUCLE()
'
' BOUCLE Macro
'
'
Dim v1 As Integer
 
v1 = 1
 
For v1 = 1 To 10
 
 
    Selection.TypeText Text:="MonSite  v1  .fr"
 
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "v1"
        .Replacement.Text = v1
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If
        .Find.Execute
    End With
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "v1"
        .Replacement.Text = "1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If
        .Find.Execute
    End With
 
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ".fr"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
 
 
    Next v1
 
End Sub

[Heureux-oli]

Salut,

Si c'était du VBA que tu souhaitais, il fallait poster dans le forum VBA !

On peut à l'aide du champ que j'ai donné le faire dans l'interface graphique.

Si tu as une chaîne existante, il suffit de faire une recherche du morceau que tu souhaites incrémenter, tu crées le champ une seule fois, tu le copie et tu utilises le contenu du presse papier pour le collage.
Il ne reste que les champs à mettre à jour.
De cette manière, pas besoin de connaître le nombre d'occurrences maximum.