caractere "?"

Pierrot93

XLDnaute Barbatruc

• 26 Septembre 2010

• #2

Re : caractere "?"

Bonjour,

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

Code:

[?]

bon après midi
@+

Edition : remplacé accolades par crochets...

 

Dernière édition: 26 Septembre 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Septembre 2010

• #3

Re : caractere "?"

Re,

essaye plutôt ceci :

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Septembre 2010

• #4

Re : caractere "?"

Bonjour daniel c

Salut Pierrot

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

 

Pièces jointes

• replace_interrogation.zip

  8.9 KB · Affichages: 22

Vote positif 0 Vote négatif

D

daniel_c

XLDnaute Nouveau

• 26 Septembre 2010

• #5

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

 

Pièces jointes

• test.xls

  23 KB · Affichages: 42
• test.xls

  23 KB · Affichages: 42
• test.xls

  23 KB · Affichages: 46

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Septembre 2010

• #6

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

 

Vote positif 0 Vote négatif

D

daniel_c

XLDnaute Nouveau

• 26 Septembre 2010

• #7

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

 

Vote positif 0 Vote négatif

D

daniel_c

XLDnaute Nouveau

• 26 Septembre 2010

• #8

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Septembre 2010

• #9

Re : caractere "?"

Re

Voici une macro qui semble fonctionner sur ton fichier

Teste la sur toutes tes données

Code:

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

 

Vote positif 0 Vote négatif