Macro pour remplacer caractères

[Chris57]

Bonsoir à tous,

je cherche un moyen pour repérer dans un programme les lignes de type :
<pos x="218" y="70"/>
ou
<pos x="1588" y="155"/>

puis extraire les coordonnées x (c'est à dire 218 et 1588 pour l'exemple).
Ensuite il faudrait que je puisse ajouter à ces coordonnées x le chiffre 423 et les remplacer par le résultat.

ce qui donnerai :
<pos x="641" y="70"/>
ou
<pos x="2011" y="155"/>

 

[ROGER2327]

Re : Macro pour remplacer caractères

Bonjour Chris57

C'eût été plus clair avec un petit classeur de démonstration. Voilà toutefois un point de départ :

[COLOR="DarkSlateGray"][B]Private Sub Test_Click()
   toto
End Sub

Private Sub toto()
Dim oCel As Range, oSpl As Variant
   For Each oCel In Range("DATA")
      If oCel.Value Like "<pos x=""*"" y=""*""/>" Then
         oSpl = Split(oCel.Value, """")
         oCel.Offset(0, 1).Value = "<pos x=""" & oSpl(1) + 423 & """ y=""" & oSpl(3) & """/>"
      Else
         oCel.Offset(0, 1).Value = oCel.Value
      End If
   Next oCel
End Sub[/B][/COLOR]

Voyez le classeur joint pour l'utilisation.​

ROGER2327
#2500

 

[Chris57]

Re : Macro pour remplacer caractères

merci beaucoup, c'est ce qu'il me fallait !!

 

[ROGER2327]

Re : Macro pour remplacer caractères

Suite...

A la demande générale d'un de nos amis (bonjour Paritec), je commente :

[COLOR="DarkSlateGray"][B]oCel.Value Like "<pos x=""*"" y=""*""/>"[/B][/COLOR]

renvoie :

• VRAI si la valeur de oCel est de la forme

  [COLOR="DarkSlateGray"][B][/B][/COLOR]<pos x="n'importe_quoi_1" y="n'importe_quoi_2"/>

• FAUX pour toute autre valeur de oCel.
  _
  _
  

[COLOR="DarkSlateGray"][B]Split(oCel.Value, """")[/B][/COLOR]

découpe <pos x="n'importe_quoi_1" y="n'importe_quoi_2"/> en utilisant " comme séparateur. Les morceaux sont ici renvoyés dans le tableau oSpl et on a

[B][COLOR="DarkSlateGray"]oSpl(0) = "<pos x="
oSpl(1) = "n'importe_quoi_1"
oSpl(2) = " y="
oSpl(3) = "n'importe_quoi_2"
oSpl(4) = "/>"[/COLOR][/B]

Sachant cela, la suite semble évidente. Si ce n'est pas le cas, n'hésitez pas à le dire...​

Bonne soirée !
ROGER2327
#2507

 

[Paritec]

Re : Macro pour remplacer caractères

Bonsoir Roger le Forum,
Oui avec les explications cela va mieux
merci et
BONNE ANNEE 2010
a+
papou 🙂