caractere "?"

[daniel_c]

bonjour le forum

je peche sur la fontion de remplacement de valeur

dans une colonne j'ai des données au format texte

je voudrais remplacer dans ces texte les points d'interogations par des virgules

mais la fonction remplacer considére le point d'interogation comme un caractere générique et me remplace tout le texte par des virgules

comment dois-je procéder

P.S. je dois intégrer cette fonction dans une macro

merci pour votre aide

 

[Pierrot93]

Re : caractere "?"

Bonjour,

sans voir le code utilisé difficile, mets peut être le point d'interrogation entre crochets:

[?]

bon après midi
@+

Edition : remplacé accolades par crochets...

 

[Pierrot93]

Re : caractere "?"

Re,

essaye plutôt ceci :

Dim s As String
s = "123???123"
s = Replace(s, "?", ",")

 

[pierrejean]

Re : caractere "?"

Bonjour daniel c

Salut Pierrot

En fonction de ton besoin vois dans le fichier ci-joint

 

[daniel_c]

Re : caractere "?"

Bonjour Pierrot93, le forum


Voici le code:

Sub Macrotest()
e = Range("E65536").End(xlUp).Row
Range("E2:E" & e).Select
Selection.Replace What:="?", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("E1").Select
End Sub

j'ai [N1?C3?M1?J2]
je veux obtenir [N1,C3,M1,J2]
mais la macro me donne [,,,,,,,,,,,]

Je joints un fichier d'exemple

 

[Staple1600]

Re : caractere "?"

Bonsoir à tous


En utilisant le tilde cela considère le ? comme un caractère

(c'est valable aussi pour * )

Donc testes en faisant
Edition / Remplacer ~? par ,
puis adaptes ta macro en conséquence

 

[daniel_c]

Re : caractere "?"

Le temps de préparer ma réponse, il y a déjà du nouveau!

je consulte et vous tiens informé des résultats

merci

 

[daniel_c]

Re : caractere "?"

Merci à tous pour votre aide

Je vais appliquer la proposition de Staple1600 qui impose le moins de modification de mon code

Bon dimanche à tous

 

[pierrejean]

Re : caractere "?"

Re

Voici une macro qui semble fonctionner sur ton fichier

Teste la sur toutes tes données

Sub essai()
For m = 2 To Range("A65536").End(xlUp).Row
For n = 1 To Len(Range("A" & m))
   If Mid(Range("A" & m), n, 1) <> "?" Then
    res = res & Mid(Range("A" & m), n, 1)
  Else
    res = res & ","
  End If
Next n
Range("C" & m) = res
res = ""
Next m
End Sub