Ajouter un espace en début de cellule vb

Fermé
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 12 oct. 2010 à 11:13
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 12 oct. 2010 à 12:46
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!

2 réponses

cousinhub29 Messages postés 881 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 16 avril 2024 333
12 oct. 2010 à 12:27
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