Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Replace(TestName, Chr$(63), " ", 1) ne fonctionne pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion acognard
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

acognard

Guest
Bonjour, j'ai 1 string TestName qui contient ceci "Création d?un magasin par l?interface Base Générique". Je dois remplacer les '?' (chr$64) par des spaces.
La fonction est correcte sur tous les autres types de car spéciaux que je peux rencontrer ('/><*%...), mais le ? n'est pas remplacé !

j'ai d'abord essayé strOutput = Replace(TestName, "?", " "). Mais sans succès

QQ1 aurait 1 solution ?
Merci

ex qui fonctionnent:
strOutput = Replace(strOutput, "|", " ")
strOutput = Replace(strOutput, "*", " ")
strOutput = Replace(strOutput, "%", " ")
strOutput = Replace(strOutput, "'", " ")
strOutput = Replace(strOutput, "/", "_")
strOutput = Replace(strOutput, " \ ", "\")
strOutput = Replace(strOutput, " \", "\")
strOutput = Replace(strOutput, "\ ", "\")
strOutput = Replace(strOutput, ":", " ")
 
Trier par date Trier par votes
Re : Replace(TestName, Chr$(63), " ", 1) ne fonctionne pas

Bonjour acognard
C'est bizarre. Ce code a l'air de fonctionner :
Code: 
Sub toto()
Dim a, b
   a = "az?e??rty"
   b = Replace(a, "?", " ")
   MsgBox a & vbLf & b
End Sub
Essayez, pour voir...​
ROGER2327
 
Vote positif 0 Vote négatif
Re : Replace(TestName, Chr$(63), " ", 1) ne fonctionne pas

Slt ROGER2327,
j y comprends rien, oui ca fonctionne chez moi aussi. voila le code complet:
Code: 
Function ReplaceQCException(TestName as string) as string

    Dim strOutput As String
    
    'Replace all  tag matches with the empty string

        'strOutput = Replace(TestName, Chr$(63), " ", 1)
        
    strOutput = Replace(TestName, "?", " ")
    strOutput = Replace(strOutput, "<", " ")
    strOutput = Replace(strOutput, ">", " ")
    strOutput = Replace(strOutput, "|", " ")
    strOutput = Replace(strOutput, "*", " ")
    strOutput = Replace(strOutput, "%", " ")
    strOutput = Replace(strOutput, "'", " ")
    strOutput = Replace(strOutput, "/", "_")
    strOutput = Replace(strOutput, " \ ", "\")
    strOutput = Replace(strOutput, " \", "\")
    strOutput = Replace(strOutput, "\ ", "\")
    strOutput = Replace(strOutput, ":", " ")

    strOutput = Trim(strOutput)
    
    ReplaceQCException = strOutput    'Return the value of strOutput
End Function

Merci.
NoNo
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Replace(TestName, Chr$(63), " ", 1) ne fonctionne pas

Bonjour,
dans ce cas, ces peut etre les options Excel ????
j'ai intercalé ce code, et c bien le car ? de valeur ascii 63 qui est trouvé. Mais rien n'y fait...
Code: 
    For i = 1 To Len(TestName) - 1
        sstr = Right(Left(TestName, Len(TestName) - i), 1)
        Valeur = Asc(sstr)
        
    Next

Dans ma cellulle, je vois des car spéciaux (le fameux carré) à la place des ?.

cdlmnt
NoNo
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Replace(TestName, Chr$(63), " ", 1) ne fonctionne pas

Bonjour Roger2327, Acognard

Bonjour, j'ai 1 string TestName
Cliquez pour agrandir...
Ah, yes et ou c'est que ça s'achète 😉😛😀

C'était juste comme ça, car je n'ai pas compris le problème 😕
La fonction est correcte sur tous les autres types de car spéciaux que je peux rencontrer ('/><*%...), mais le ? n'est pas remplacé !
Cliquez pour agrandir...
puis
Code: 
Sub toto()
Dim a, b
   a = "az?e??rty"
   b = Replace(a, "?", " ")
   MsgBox a & vbLf & b
End Sub
Cliquez pour agrandir...
et
Slt ROGER2327,
j y comprends rien, oui ca fonctionne chez moi aussi
Cliquez pour agrandir...
Alors ou est le problème !?

A+
 
Vote positif 0 Vote négatif
Re : Replace(TestName, Chr$(63), " ", 1) ne fonctionne pas

La procédure toto fonctionne
mais si je traite la chaine de caractère, rien ne se produit...

cdlmnt
NoNo
 
Vote positif 0 Vote négatif
Re : Replace(TestName, Chr$(63), " ", 1) ne fonctionne pas

Bonjour,

à-priori ta fonction est correcte quand on teste.
Tu devrais déposer un fichier avec la chaine sur laquelle ça ne marche pas.
eric
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…