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 fonction VBA Left$() permet d'extraire un certain nombre de caractères à gauche. Pour extraire les caractères à droite avec VBA, on utilisera la fonction Right$().
La fonction VBA Left$()
La fonction Left$ suit la syntaxe suivante :
Left$(cellule,nb_caractères)
où :
- nb_caractères correspond au nombre de caractères à extraire à partir de la gauche
Exemple de macro VBA avec la fonction Left$()
La macro VBA
Sub macro()
Dim c As Range 'Variable
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
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 |