begin process at 2010 03 19 02:33:32
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

 > ENLEVER ACCENTS, PONCTUATION ...

ENLEVER ACCENTS, PONCTUATION ...


 Information sur la source

Note :
Aucune note
Catégorie :Texte Niveau :Débutant Date de création :18/07/2002 Date de mise à jour :18/07/2002 09:25:24 Vu :7 241

Auteur : math85

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

c'est un code pour excel mais c'est quand même utilisable pour vb

il prend toutes les cellules a# jusqu'à ce qu'il y en ait une qui soit vide
pour chaque cellule il prend chaque lettre et modifie ci necessaire


j'ai utilisé ca pour formater les nom d'une liste (ca devait être nom, prenom sans accents ni at sans ponctuation autre que 1 ",").

Source

  • Sub Bouton7_QuandClic()
  • j = 2
  • While Range("a" & j).Value <> ""
  • modiffinal = ""
  • For i = 1 To Len(Range("a" & j).Value)
  • lettre = Asc(Mid$(Range("a" & j).Value, i, 1))
  • Select Case lettre
  • Case 138, 154
  • modif = "s"
  • Case 140, 156
  • modif = "oe"
  • Case 142, 158
  • modif = "z"
  • Case 159, 221, 253, 255
  • modif = "y"
  • Case 192 To 197, 224 To 229
  • modif = "a"
  • Case 230, 198, 231, 199
  • modif = "ae"
  • Case 232 To 235, 200 To 203
  • modif = "e"
  • Case 236 To 239, 204 To 207
  • modif = "i"
  • Case 240, 208
  • modif = "d"
  • Case 241, 209
  • modif = "n"
  • Case 242 To 246, 210 To 214
  • modif = "o"
  • Case 215
  • modif = "x"
  • Case 217 To 220, 249 To 252
  • modif = "u"
  • Case 97 To 122, 65 To 90
  • modif = Mid$(Range("a" & j).Value, i, 1)
  • Case 44
  • If virgule = False Then
  • modif = ","
  • virgule = True
  • Else
  • modif = " "
  • End If
  • Case Else
  • modif = " "
  • espace = i
  • End Select
  • If espace = i - 1 Or i = 1 Then
  • modif = UCase(modif)
  • Else
  • modif = LCase(modif)
  • End If
  • modiffinal = modiffinal & modif
  • Next i
  • espace = 0
  • virgule = False
  • z = InStr(1, modiffinal, ",")
  • If z = 0 Then
  • y = InStr(1, modiffinal, " ")
  • If y = 0 Then
  • saisie = InputBox("le format du nom est incorrect, impossible de le corriger. Veuillez le saisir ici ( nom, prenom): ", "erreur", modiffinal)
  • Range("a" & j).Value = saisie
  • GoTo fin
  • Else
  • modiffinal = Left$(modiffinal, y - 1) & "," & Right$(modiffinal, Len(modiffinal) - y + 1)
  • z = InStr(1, modiffinal, ",")
  • End If
  • End If
  • If Mid$(modiffinal, z + 1, 1) <> " " Then
  • Stop
  • modiffinal = Left$(modiffinal, z) & " " & UCase$(Mid$(modiffinal, z + 1, 1)) & Right$(modiffinal, Len(modiffinal) - z - 1)
  • End If
  • Range("a" & j).Value = modiffinal
  • j = j + 1
  • fin:
  • Wend
  • End Sub
Sub Bouton7_QuandClic()

j = 2
While Range("a" & j).Value <> ""
    modiffinal = ""
    For i = 1 To Len(Range("a" & j).Value)
        lettre = Asc(Mid$(Range("a" & j).Value, i, 1))
        
        Select Case lettre
            Case 138, 154
                modif = "s"
            Case 140, 156
                modif = "oe"
            Case 142, 158
                modif = "z"
            Case 159, 221, 253, 255
                modif = "y"
            Case 192 To 197, 224 To 229
                modif = "a"
            Case 230, 198, 231, 199
                modif = "ae"
            Case 232 To 235, 200 To 203
                modif = "e"
            Case 236 To 239, 204 To 207
                modif = "i"
            Case 240, 208
                modif = "d"
            Case 241, 209
                modif = "n"
            Case 242 To 246, 210 To 214
                modif = "o"
            Case 215
                modif = "x"
            Case 217 To 220, 249 To 252
                modif = "u"
            Case 97 To 122, 65 To 90
                modif = Mid$(Range("a" & j).Value, i, 1)
            Case 44
                If virgule = False Then
                    modif = ","
                    virgule = True
                Else
                    modif = " "
                End If
            Case Else
                modif = " "
                espace = i
        End Select
         If espace = i - 1 Or i = 1 Then
            modif = UCase(modif)
        Else
            modif = LCase(modif)
        End If
        
        modiffinal = modiffinal & modif
    Next i
    espace = 0
    virgule = False
    z = InStr(1, modiffinal, ",")
    If z = 0 Then
        y = InStr(1, modiffinal, " ")
        
        If y = 0 Then
           saisie = InputBox("le format du nom est incorrect, impossible de le corriger. Veuillez le saisir ici ( nom, prenom): ", "erreur", modiffinal)
           Range("a" & j).Value = saisie
           
           
           GoTo fin
        Else
            modiffinal = Left$(modiffinal, y - 1) & "," & Right$(modiffinal, Len(modiffinal) - y + 1)
            z = InStr(1, modiffinal, ",")
        End If
    End If
    If Mid$(modiffinal, z + 1, 1) <> " " Then
    Stop
        modiffinal = Left$(modiffinal, z) & " " & UCase$(Mid$(modiffinal, z + 1, 1)) & Right$(modiffinal, Len(modiffinal) - z - 1)
    End If

    Range("a" & j).Value = modiffinal
    j = j + 1
fin:
Wend
End Sub



 Sources du même auteur

Source avec Zip Source avec une capture COMMENT UTILISER DES CHARTSPACE FACILEMENT, LA SOLUTION

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) CLASSE DE TRADUCTION SIMPLIFIÉE/ TRADUCTION AUTOMATIQUE D'UN... par mafieulemouton
Source avec Zip Source avec une capture AYOUBPAD2009 par ayoube2009
Source avec Zip Source avec une capture PILOTAGE D'AFFICHEURS LCD SUR PORT SÉRIE OU USB par mays
Source avec Zip Source avec une capture TRAITEMENT DE TEXTE RTF par zozo14
FORMATAGE D'UNE CELLULE EXCEL VIA UNE SYNTAXE HTML par 8Tnerolf8

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,484 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales