Enlever caractères spéciaux

Question

Bonjour, mon ami Google n'a pas réussi m'aider, donc je me tourne vers vous : je devrais enlever tous les caractéres speciaux (*&^%$#@!"' ;\|?>

cs_Le Pivert · Answer

Bonjour,

Voici un exemple avec 3 caractères spéciaux, il faudra l'adapter.
Faites une sauvegarde du classeur avant par prudence:

Option Explicit
Private Sub CommandButton1_Click()
For_X_to_Next_Colonne
End Sub
Sub For_X_to_Next_Colonne()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant

'Instance de la feuille qui permet d'utiliser FL1 partout dans
    'le code à la place du nom de la feuille
    Set FL1 = Worksheets("Feuil1")
     
    'Détermine la dernière ligne renseignée de la feuille de calculs
    '(Voir explication sur l'utilisation de Split en bas de cette discussion)
    DerLig = Split(FL1.UsedRange.Address, "$")(4)
     
    'Fixe le N° de la colonne à lire
    NoCol = 1
     
    'Utilisation du N° de ligne dans une boucle For ... Next
    For NoLig = 1 To DerLig
       FL1.Cells(NoLig, NoCol).Select
    
    Caractere_speciaux
      
        'Pour tester : Affiche les variables dans la fenêtre Exécution de VBA
        Debug.Print Var
    Next
    Set FL1 = Nothing
End Sub
Sub Caractere_speciaux()
ReDim A_Remplacer(0 To 3) 'adapter au nombre de caractères
ReDim Remplacants(0 To 3) 'adapter au nombre de caractères
Dim I As Byte
On Error Resume Next
A_Remplacer = Array("%", "@", "&") 'ajouter les caractéres spéciaux
Remplacants = Array("", "", "") 'ajouter les blancs
For I = 0 To 3 'adapter au nombre de caractères
    Cells.Replace What:=A_Remplacer(I), Replacement:=Remplacants(I), LookAt:=xlPart
Next I
End Sub
 


Bon courage

michel_m · Answer

Bonjour,

Compte tenu du nombre de lignes important, pourrais tu préciser l'adresse du tableau pour réduire au maximum la durée de la procédure en évitant de modifier cellule par cellule

en attendant, cette fonction ne garde que les caractères
a-zA-Z0-9çàâäéèêëïîôöùû
le tiret veut dire par ex: A-Z--> comprend de A à Z

Option Explicit'-------Function enlever_caract_speciaux(ByRef texto As String) As StringDim reg As ObjectDim extraction As ObjectDim digit    Set reg = CreateObject("vbscript.regexp")    reg.Global = True    reg.Pattern = "([a-zA-Z0-9çàâäéèêëïîôöùû])"    Set extraction = reg.Execute(texto)    For Each digit In extraction        enlever_caract_speciaux = enlever_caract_speciaux & (digit.Value)    Next digit    End Function

Tootsi · Answer

Bonjour,
Merci beaucoup de votre aide cs_Le Pivert et michel_m!

J'ai commencé tester avec le code donné par  cs_Le Pivert, car malheureusement, je n'avais pas compris ce que Michel tu voulais dire par l'adresse du tableau (pardon, suis pas française :) ). Mais c'est peut-être l'endroit où est situé le fichier sur l'ordi?  

Merci beaucoup de prendre votre temps pour m'aider!

Tootsi

cs_Le Pivert · Answer

Tu peux supprimer cette ligne dans Sub For_X_to_Next_Colonne()
 cela sera plus rapide:

  FL1.Cells(NoLig, NoCol).Select

Enlever caractères spéciaux

4 réponses

Discussions similaires

Newsletters