Pb: supprimer petit rectangle vertical après requete internet?
2 réponses
Alfred
Bonjour,
Je cherche à remplacer le caractère "petit rectangle vertical" (
http://cjoint.com/?jzltFqG8K0 ) qui apparait dans le texte de certaines
cellules après une requête internet.
J'ai essayé ceci sans succès le petit rectangle étant reconnu comme un point
d'interrogation.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alfred
re,
J'ai trouvé ceci en fouillant un peu plus qui me permet de trouver le numéro du caractère correspondant au rectangle : c'est le 63.
" 'Juste histoire de savoir ce que contient ta cellule : 'Peux tu recopier cette procédure dans un module
Public Sub Liste_car() For x = 1 To Len(ActiveCell.Value) MsgBox "caractère N°" & x & " a le code ASCII " & Asc(Mid(ActiveCell.Value, x, 1)) Next x End Sub "
Mais ensuite il faut que j'adapte ceci mais j'ai du mal! ;(
" Sub zzz() For Each c In Selection 'c.Value = Evaluate("trim(substitute(substitute(" & Chr(34) & c.Value & Chr(63) & ",char(63),""""),char(160),""""))") * 1 Next End Sub "
J'ai essayé avec ceci sans succès mais j'avoue que je ne maitrise pas! : 'c.Value = Trim(Chr(34) & c.Value) * 1
re,
J'ai trouvé ceci en fouillant un peu plus qui me permet de trouver le numéro
du caractère correspondant au rectangle : c'est le 63.
"
'Juste histoire de savoir ce que contient ta cellule :
'Peux tu recopier cette procédure dans un module
Public Sub Liste_car()
For x = 1 To Len(ActiveCell.Value)
MsgBox "caractère N°" & x & " a le code ASCII " &
Asc(Mid(ActiveCell.Value, x, 1))
Next x
End Sub
"
Mais ensuite il faut que j'adapte ceci mais j'ai du mal! ;(
"
Sub zzz()
For Each c In Selection
'c.Value = Evaluate("trim(substitute(substitute(" & Chr(34) & c.Value &
Chr(63) & ",char(63),""""),char(160),""""))") * 1
Next
End Sub
"
J'ai essayé avec ceci sans succès mais j'avoue que je ne maitrise pas! :
'c.Value = Trim(Chr(34) & c.Value) * 1
J'ai trouvé ceci en fouillant un peu plus qui me permet de trouver le numéro du caractère correspondant au rectangle : c'est le 63.
" 'Juste histoire de savoir ce que contient ta cellule : 'Peux tu recopier cette procédure dans un module
Public Sub Liste_car() For x = 1 To Len(ActiveCell.Value) MsgBox "caractère N°" & x & " a le code ASCII " & Asc(Mid(ActiveCell.Value, x, 1)) Next x End Sub "
Mais ensuite il faut que j'adapte ceci mais j'ai du mal! ;(
" Sub zzz() For Each c In Selection 'c.Value = Evaluate("trim(substitute(substitute(" & Chr(34) & c.Value & Chr(63) & ",char(63),""""),char(160),""""))") * 1 Next End Sub "
J'ai essayé avec ceci sans succès mais j'avoue que je ne maitrise pas! : 'c.Value = Trim(Chr(34) & c.Value) * 1
Alfred
J'y arrive avec cette fonction:
" Function Nettoie(S$) With Application Nettoie = .Substitute(S, Chr(63), "") Nettoie = .Clean(Nettoie) Nettoie = .Substitute(Nettoie, " ", "") End With End Function "
Mais je préferrerai adapter ceci : " Sub zzz() For Each c In Selection c.Value = .Substitute(c.Value & Chr(63), "") c.Value = .Clean(c.Value) c.Value = .Substitute(c.Value, " ", "") Next End Sub "
Est-ce possible? Merci ;)
J'y arrive avec cette fonction:
"
Function Nettoie(S$)
With Application
Nettoie = .Substitute(S, Chr(63), "")
Nettoie = .Clean(Nettoie)
Nettoie = .Substitute(Nettoie, " ", "")
End With
End Function
"
Mais je préferrerai adapter ceci :
"
Sub zzz()
For Each c In Selection
c.Value = .Substitute(c.Value & Chr(63), "")
c.Value = .Clean(c.Value)
c.Value = .Substitute(c.Value, " ", "")
Next
End Sub
"
" Function Nettoie(S$) With Application Nettoie = .Substitute(S, Chr(63), "") Nettoie = .Clean(Nettoie) Nettoie = .Substitute(Nettoie, " ", "") End With End Function "
Mais je préferrerai adapter ceci : " Sub zzz() For Each c In Selection c.Value = .Substitute(c.Value & Chr(63), "") c.Value = .Clean(c.Value) c.Value = .Substitute(c.Value, " ", "") Next End Sub "