Supppression de caracteres speciaux ds un classeur
4 réponses
Julien FROGER
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans.
Le texte contient des caracteres accentués du genre :
è é ê
Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y
en est plus un seul dans le fichier ?
JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans
rien d'autre.
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
serge
tout simple : tu fait Edition/remplacer rechercher : ton caractère bizarre remplacer : tu laisse vide et tes lettres disparaiteront comme par magie!! enregistre le en macro si tu veux lautomatiser!
bye "Julien FROGER" wrote:
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans. Le texte contient des caracteres accentués du genre : è é ê Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y en est plus un seul dans le fichier ? JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans rien d'autre.
Merci
tout simple :
tu fait Edition/remplacer
rechercher : ton caractère bizarre
remplacer : tu laisse vide
et tes lettres disparaiteront comme par magie!!
enregistre le en macro si tu veux lautomatiser!
bye
"Julien FROGER" wrote:
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans.
Le texte contient des caracteres accentués du genre :
è é ê
Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y
en est plus un seul dans le fichier ?
JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans
rien d'autre.
tout simple : tu fait Edition/remplacer rechercher : ton caractère bizarre remplacer : tu laisse vide et tes lettres disparaiteront comme par magie!! enregistre le en macro si tu veux lautomatiser!
bye "Julien FROGER" wrote:
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans. Le texte contient des caracteres accentués du genre : è é ê Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y en est plus un seul dans le fichier ? JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans rien d'autre.
Merci
Daniel
Bonjour. Essaie la macro suivante : Sub Test() Dim NbreCar As Integer, Texte As String Dim Cellule As Object, Car As String Cells.Select For Each Cellule In Selection NbreCar = Len(Cellule) If NbreCar <> 0 Then Texte = Cellule.Value For i = 1 To NbreCar Car = Mid(Texte, i, 1) Select Case Car Case "1" To "5" Mid(Texte, i, 1) = Car Case "a" To "z" Mid(Texte, i, 1) = Car Case Else Mid(Texte, i, 1) = "!" End Select Next i Cellule.Value = Texte End If Next Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows End Sub
Daniel
"Julien FROGER" a écrit dans le message de news: BE096173.E47B%
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans. Le texte contient des caracteres accentués du genre : è é ê Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y en est plus un seul dans le fichier ? JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans rien d'autre.
Merci
Bonjour.
Essaie la macro suivante :
Sub Test()
Dim NbreCar As Integer, Texte As String
Dim Cellule As Object, Car As String
Cells.Select
For Each Cellule In Selection
NbreCar = Len(Cellule)
If NbreCar <> 0 Then
Texte = Cellule.Value
For i = 1 To NbreCar
Car = Mid(Texte, i, 1)
Select Case Car
Case "1" To "5"
Mid(Texte, i, 1) = Car
Case "a" To "z"
Mid(Texte, i, 1) = Car
Case Else
Mid(Texte, i, 1) = "!"
End Select
Next i
Cellule.Value = Texte
End If
Next
Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:=
_
xlByRows
End Sub
Daniel
"Julien FROGER" <julien@antique-wine.com> a écrit dans le message de news:
BE096173.E47B%julien@antique-wine.com...
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans.
Le texte contient des caracteres accentués du genre :
è é ê
Mais aussi des caracteres provenants de fichiers allemands (des F
bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y
en est plus un seul dans le fichier ?
JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans
rien d'autre.
Bonjour. Essaie la macro suivante : Sub Test() Dim NbreCar As Integer, Texte As String Dim Cellule As Object, Car As String Cells.Select For Each Cellule In Selection NbreCar = Len(Cellule) If NbreCar <> 0 Then Texte = Cellule.Value For i = 1 To NbreCar Car = Mid(Texte, i, 1) Select Case Car Case "1" To "5" Mid(Texte, i, 1) = Car Case "a" To "z" Mid(Texte, i, 1) = Car Case Else Mid(Texte, i, 1) = "!" End Select Next i Cellule.Value = Texte End If Next Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows End Sub
Daniel
"Julien FROGER" a écrit dans le message de news: BE096173.E47B%
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans. Le texte contient des caracteres accentués du genre : è é ê Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y en est plus un seul dans le fichier ? JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans rien d'autre.
Merci
Daniel
Excuse, lire Case "1" to "9" au lieu de "1" to "5". "Daniel" a écrit dans le message de news: 41e3ce51$0$12262$
Bonjour. Essaie la macro suivante : Sub Test() Dim NbreCar As Integer, Texte As String Dim Cellule As Object, Car As String Cells.Select For Each Cellule In Selection NbreCar = Len(Cellule) If NbreCar <> 0 Then Texte = Cellule.Value For i = 1 To NbreCar Car = Mid(Texte, i, 1) Select Case Car Case "1" To "5" Mid(Texte, i, 1) = Car Case "a" To "z" Mid(Texte, i, 1) = Car Case Else Mid(Texte, i, 1) = "!" End Select Next i Cellule.Value = Texte End If Next Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows End Sub
Daniel
"Julien FROGER" a écrit dans le message de news: BE096173.E47B%
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans. Le texte contient des caracteres accentués du genre : è é ê Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y en est plus un seul dans le fichier ? JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans rien d'autre.
Merci
Excuse, lire Case "1" to "9" au lieu de "1" to "5".
"Daniel" <dcolardelle@free.fr> a écrit dans le message de news:
41e3ce51$0$12262$636a15ce@news.free.fr...
Bonjour.
Essaie la macro suivante :
Sub Test()
Dim NbreCar As Integer, Texte As String
Dim Cellule As Object, Car As String
Cells.Select
For Each Cellule In Selection
NbreCar = Len(Cellule)
If NbreCar <> 0 Then
Texte = Cellule.Value
For i = 1 To NbreCar
Car = Mid(Texte, i, 1)
Select Case Car
Case "1" To "5"
Mid(Texte, i, 1) = Car
Case "a" To "z"
Mid(Texte, i, 1) = Car
Case Else
Mid(Texte, i, 1) = "!"
End Select
Next i
Cellule.Value = Texte
End If
Next
Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:=
_
xlByRows
End Sub
Daniel
"Julien FROGER" <julien@antique-wine.com> a écrit dans le message de news:
BE096173.E47B%julien@antique-wine.com...
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans.
Le texte contient des caracteres accentués du genre :
è é ê
Mais aussi des caracteres provenants de fichiers allemands (des F
bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il
n'y
en est plus un seul dans le fichier ?
JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans
rien d'autre.
Excuse, lire Case "1" to "9" au lieu de "1" to "5". "Daniel" a écrit dans le message de news: 41e3ce51$0$12262$
Bonjour. Essaie la macro suivante : Sub Test() Dim NbreCar As Integer, Texte As String Dim Cellule As Object, Car As String Cells.Select For Each Cellule In Selection NbreCar = Len(Cellule) If NbreCar <> 0 Then Texte = Cellule.Value For i = 1 To NbreCar Car = Mid(Texte, i, 1) Select Case Car Case "1" To "5" Mid(Texte, i, 1) = Car Case "a" To "z" Mid(Texte, i, 1) = Car Case Else Mid(Texte, i, 1) = "!" End Select Next i Cellule.Value = Texte End If Next Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows End Sub
Daniel
"Julien FROGER" a écrit dans le message de news: BE096173.E47B%
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans. Le texte contient des caracteres accentués du genre : è é ê Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y en est plus un seul dans le fichier ? JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans rien d'autre.
Merci
Daniel
Et rajoute un Case "A" to "Z" pour les majuscules ! "Daniel" a écrit dans le message de news: 41e3cfab$0$12268$
Excuse, lire Case "1" to "9" au lieu de "1" to "5". "Daniel" a écrit dans le message de news: 41e3ce51$0$12262$
Bonjour. Essaie la macro suivante : Sub Test() Dim NbreCar As Integer, Texte As String Dim Cellule As Object, Car As String Cells.Select For Each Cellule In Selection NbreCar = Len(Cellule) If NbreCar <> 0 Then Texte = Cellule.Value For i = 1 To NbreCar Car = Mid(Texte, i, 1) Select Case Car Case "1" To "5" Mid(Texte, i, 1) = Car Case "a" To "z" Mid(Texte, i, 1) = Car Case Else Mid(Texte, i, 1) = "!" End Select Next i Cellule.Value = Texte End If Next Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows End Sub
Daniel
"Julien FROGER" a écrit dans le message de news: BE096173.E47B%
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans. Le texte contient des caracteres accentués du genre : è é ê Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y en est plus un seul dans le fichier ? JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans rien d'autre.
Merci
Et rajoute un Case "A" to "Z" pour les majuscules !
"Daniel" <dcolardelle@free.fr> a écrit dans le message de news:
41e3cfab$0$12268$636a15ce@news.free.fr...
Excuse, lire Case "1" to "9" au lieu de "1" to "5".
"Daniel" <dcolardelle@free.fr> a écrit dans le message de news:
41e3ce51$0$12262$636a15ce@news.free.fr...
Bonjour.
Essaie la macro suivante :
Sub Test()
Dim NbreCar As Integer, Texte As String
Dim Cellule As Object, Car As String
Cells.Select
For Each Cellule In Selection
NbreCar = Len(Cellule)
If NbreCar <> 0 Then
Texte = Cellule.Value
For i = 1 To NbreCar
Car = Mid(Texte, i, 1)
Select Case Car
Case "1" To "5"
Mid(Texte, i, 1) = Car
Case "a" To "z"
Mid(Texte, i, 1) = Car
Case Else
Mid(Texte, i, 1) = "!"
End Select
Next i
Cellule.Value = Texte
End If
Next
Cells.Replace What:="!", Replacement:="", LookAt:=xlPart,
SearchOrder:= _
xlByRows
End Sub
Daniel
"Julien FROGER" <julien@antique-wine.com> a écrit dans le message de
news: BE096173.E47B%julien@antique-wine.com...
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans.
Le texte contient des caracteres accentués du genre :
è é ê
Mais aussi des caracteres provenants de fichiers allemands (des F
bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il
n'y
en est plus un seul dans le fichier ?
JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres)
sans
rien d'autre.
Et rajoute un Case "A" to "Z" pour les majuscules ! "Daniel" a écrit dans le message de news: 41e3cfab$0$12268$
Excuse, lire Case "1" to "9" au lieu de "1" to "5". "Daniel" a écrit dans le message de news: 41e3ce51$0$12262$
Bonjour. Essaie la macro suivante : Sub Test() Dim NbreCar As Integer, Texte As String Dim Cellule As Object, Car As String Cells.Select For Each Cellule In Selection NbreCar = Len(Cellule) If NbreCar <> 0 Then Texte = Cellule.Value For i = 1 To NbreCar Car = Mid(Texte, i, 1) Select Case Car Case "1" To "5" Mid(Texte, i, 1) = Car Case "a" To "z" Mid(Texte, i, 1) = Car Case Else Mid(Texte, i, 1) = "!" End Select Next i Cellule.Value = Texte End If Next Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows End Sub
Daniel
"Julien FROGER" a écrit dans le message de news: BE096173.E47B%
Bonjour,
J'ai un gros fichier plein de cellules remplies de texte dedans. Le texte contient des caracteres accentués du genre : è é ê Mais aussi des caracteres provenants de fichiers allemands (des F bizarres)
Ma question
Comment virer d'un coup tous ces caractères bizarre en étant sur qu'il n'y en est plus un seul dans le fichier ? JE veut qu'il ne reste que les caracteres normaux (lettres/chiffres) sans rien d'autre.
