Retour à la FAQ


Suppression de caractères

Cette procédure élimine tous les guillemets de toutes les cellules occupées d'une feuille de calcul.
Modifiez le numéro code du caractère dans cette ligne:
CaracteràSup = Chr(34) pour les guillemets
Chr(59) pour le point virgule etc...
Voir la liste de quelques codes plus bas

=======================
Sub SupprimeGuillemet()

CaracteràSup = Chr(34)

For Each cel In ActiveSheet.UsedRange
'boucle jusqu'à ce qu'il ait trouvé la position du dernier guillemet

Position = InStr(cel.Value, CaracteràSup)
Do While Position > 0
If Position = 1 Then
cel.Value = Right(cel.Value, Len(cel.Value) - Position)
Else
partiegauche = Left(cel.Value, Position - 1)
partiedroite = Right(cel.Value, Len(cel.Value) - Position)
cel.Value = partiegauche & partiedroite
End If
Position = InStr(cel.Value, CaracteràSup)
Loop
Next
End Sub

Macro de Clément Marcotte
=======================

MAIS... il y a plus simple que ce bel exercice sur les chaînes de caractères:

Sub OteGuillemets()
Cells.Replace What:="""", Replacement:=""
End Sub
AV

=======================

Liste de quelques codes de caractères

Pour la liste complète:
Allez dans l'aide de Microsoft Visual Basic
et Tapez: Jeu de caractères dans l'Aide Intuitive

33 !
34 "
35 #
36 $
37 %
38 &
39 '
40 (
41 )
42 *
43 +
44 ,
45 -
46 .
47 /
58 :
59 ;
60 <
61 =
62 >
63 ?

 


[top]