Macro
Résolu
mihaja28
Messages postés
3
Statut
Membre
-
mihaja28 Messages postés 3 Statut Membre -
mihaja28 Messages postés 3 Statut Membre -
Bonsoir,
Je voudrai supprimer les caractères spéciaux d'une colonne comme (,;éà.)\&
J'ai essayé avec "remplacer" mais la commande pour détecter la dernière ligne ne fonctionne pas. Voici ce que j'ai fait:
Dim Fligne As String
Fligne = Range("A" & Rows.Count).End(xlUp)
NumeroLigne = 2
While NumeroLigne < Fligne
Range("G" & NumeroLigne).Select
Selection.Replace What:="é", Replacement:="E"
Selection.Replace What:=",", Replacement:=""
Selection.Replace What:="(", Replacement:=""
Selection.Replace What:=")", Replacement:=""
Selection.Replace What:="&", Replacement:=""
Selection.Replace What:="\", Replacement:=""
Selection.Replace What:="/", Replacement:=""
Selection.Replace What:="{", Replacement:=""
Selection.Replace What:="}", Replacement:=""
Selection.Replace What:="[", Replacement:=""
Selection.Replace What:="]", Replacement:=""
Selection.Replace What:="|", Replacement:=""
Selection.Replace What:="`", Replacement:=""
Selection.Replace What:="*", Replacement:=""
Selection.Replace What:="°", Replacement:=""
Selection.Replace What:="=", Replacement:=""
NumeroLigne = NumeroLigne + 1
Wend
Merci pour votre retour,
Cordialement,
Mihaja28
Je voudrai supprimer les caractères spéciaux d'une colonne comme (,;éà.)\&
J'ai essayé avec "remplacer" mais la commande pour détecter la dernière ligne ne fonctionne pas. Voici ce que j'ai fait:
Dim Fligne As String
Fligne = Range("A" & Rows.Count).End(xlUp)
NumeroLigne = 2
While NumeroLigne < Fligne
Range("G" & NumeroLigne).Select
Selection.Replace What:="é", Replacement:="E"
Selection.Replace What:=",", Replacement:=""
Selection.Replace What:="(", Replacement:=""
Selection.Replace What:=")", Replacement:=""
Selection.Replace What:="&", Replacement:=""
Selection.Replace What:="\", Replacement:=""
Selection.Replace What:="/", Replacement:=""
Selection.Replace What:="{", Replacement:=""
Selection.Replace What:="}", Replacement:=""
Selection.Replace What:="[", Replacement:=""
Selection.Replace What:="]", Replacement:=""
Selection.Replace What:="|", Replacement:=""
Selection.Replace What:="`", Replacement:=""
Selection.Replace What:="*", Replacement:=""
Selection.Replace What:="°", Replacement:=""
Selection.Replace What:="=", Replacement:=""
NumeroLigne = NumeroLigne + 1
Wend
Merci pour votre retour,
Cordialement,
Mihaja28
3 réponses
-
Bonjour,
Remplacer votre ligne.Fligne = Range("A" & Rows.Count).End(xlUp)Par celle-ci :Fligne = Cells(Rows.Count, 1).End(xlUp).Row
-
Bonjour Le Pingou,
Merci pour votre réponse; ça marche mais le traitement s'arrête à l'avant dernière ligne; les caractères spéciaux de la dernière ligne ne sont pas traités.
Cordialement,
Mihaja28 -
Bonjour,
Petite correction, ajouter +1 en fin de ligne :Fligne = Cells(Rows.Count, 1).End(xlUp).Row + 1
