Macro Résolu

Question

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

Le Pingou · Answer

Bonjour,
Remplacer votre ligne.
Fligne = Range("A" & Rows.Count).End(xlUp)Par celle-ci :
Fligne = Cells(Rows.Count, 1).End(xlUp).Row

mihaja28 · Answer

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

Le Pingou · Answer

Bonjour,
Petite correction, ajouter +1 en fin de ligne :
Fligne = Cells(Rows.Count, 1).End(xlUp).Row + 1

Macro

3 réponses

Discussions similaires

Newsletters