Macro

Résolu/Fermé

mihaja28 Messages postés 3 Date d'inscription samedi 1 août 2015 Statut Membre Dernière intervention 4 août 2015 - 1 août 2015 à 21:39
mihaja28 Messages postés 3 Date d'inscription samedi 1 août 2015 Statut Membre Dernière intervention 4 août 2015 - 4 août 2015 à 22:11

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

A voir également:

Macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

3 réponses

Réponse 1 / 3

Le Pingou Messages postés 12050 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 avril 2024 1 430
1 août 2015 à 23:04

Bonjour,
Remplacer votre ligne.

Fligne = Range("A" & Rows.Count).End(xlUp)

Par celle-ci :

Fligne = Cells(Rows.Count, 1).End(xlUp).Row

Réponse 2 / 3

mihaja28 Messages postés 3 Date d'inscription samedi 1 août 2015 Statut Membre Dernière intervention 4 août 2015
2 août 2015 à 16:19

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

Réponse 3 / 3

Le Pingou Messages postés 12050 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 avril 2024 1 430
2 août 2015 à 16:59

Bonjour,
Petite correction, ajouter +1 en fin de ligne :

Fligne = Cells(Rows.Count, 1).End(xlUp).Row + 1

mihaja28 Messages postés 3 Date d'inscription samedi 1 août 2015 Statut Membre Dernière intervention 4 août 2015
4 août 2015 à 22:11

Merci Le Pingou
Bonne soirée

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters