Ajouter un espace en début de cellule vb

pgillou Messages postés 53 Statut Membre -  
pgillou Messages postés 53 Statut Membre -
Bonjour à tous,

Une belle journée pour un petit problème en vb.

Je cherche à ajouter un espace en début de cellule sur l'ensemble d'une colonne.

Exemple
la valeur de la cellule A1 esr "test" deviendrait " test"

Merci de votre aide!
A voir également:

2 réponses

cousinhub29 Messages postés 1130 Date d'inscription   Statut Membre Dernière intervention   364
 
Bonjour,

En Vb, je ne sais pas trop, mais comme tu parles de cellules, je suppose que Vba devrait le faire...

Essaie ainsi :

Sub Espace_Devant()
Dim Tblo
Dim I As Long
Tblo = Range("A1", [A65000].End(xlUp)).Value
For I = LBound(Tblo) To UBound(Tblo)
    Tblo(I, 1) = " " & Tblo(I, 1)
Next I
Range("A1", [A65000].End(xlUp)).Value = Tblo
End Sub


PS, utilisation d'un tableau pour un traitement plus rapide...

Bonne journée
0