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]