Discussion :

[laurentmcb]

Bonjour!

je suis nouveau se le forum, alors dites moi s'il y a un souci.
Mon taf est de réaliser des programmes de machines outils. Mon problème est le suivant:
je génère des programmes sous forme de texte. Mais dans certaines lignes les coordonnées X sont placées après les Y.Je voudrais les replacer dans l'ordre X,Y. La syntaxe est toujours la même ex:

41 L Y+86,500 X-417,000 R0 F MAX M99
devient
41 L X-417,500 Y+86,500 R0 F MAX M99

Je voudrais créer une macro qui remplace toutes les lignes du texte qui sont dans le désordre, dans l'ordre X suivit de Y.

voir document en pièce jointe (ligne rouge = ligne à modifier)

Merci à ceux qui voudrons bien se pencher sur mon problème.

[siocnarf]

Bonjour

un essai

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
 
Sub SwapXY()
'
'
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "L Y"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
 
    While Selection.Find.Execute
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        chaine = Selection.Text
        posY = InStr(1, Selection.Text, "Y")
        posX = InStr(1, Selection.Text, "X")
        posR = InStr(1, Selection.Text, "R")
        chaine = Left(Selection.Text, posY - 1) + Mid(Selection.Text, posX, posR - posX) + Mid(Selection.Text, posY, posX - posY) + Mid(Selection.Text, posR, Len(Selection.Text) - posR + 1)
        Selection.Text = chaine
    Wend
 
End Sub

Bon travail

Siocnarf

[laurentmcb]

impec du 1'er coup.
rien à ajouter sauf un grand merci.

A bientôt