Ajouter un espace en début de cellule vb

pgillou Messages postés 49 Date d'inscription   Statut Membre Dernière intervention   -  
pgillou Messages postés 49 Date d'inscription   Statut Membre Dernière intervention   -
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 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
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