Catégories
Cours Macro Caractères Macros

Macro pour extraire des caractères à gauche

A l’instar de la fonction GAUCHE() sous Excel, utiliser une macro pour extraire les caractères à gauche permet d’alléger le stockage des données.

La macro VBA

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A6« ) ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _
Left$(c, 1)

ActiveCell.Offset(1, 0).Select

Next c

End Sub

Méthode

  • Copier la macro dans Visual Basic
  • Remplacer la plage en gras par la nouvelle plage de valeurs
  • Sélectionner la cellule dans laquelle il faut afficher le 1er résultat
  • Exécuter la macro

Exemple

Les données sources

A B C
1 macro
2 extraire
3 caractère
4 gauche
5 vba
6 excel

Le résultat

A B C
1 macro m
2 extraire e
3 caractère c
4 gauche g
5 vba v
6 excel e