Ajouter * dans toutes les cellules d'une colonne

Bonjour à tous;
voila comme indiqué dans le titre j'ai un tableau exel avec une colonne nommée colonne_1 (par ex), ma question c'est de savoir es qu'il y a une méthode d'ajouter d'un seul coup un caractère (* par ex) dans toute les cellule de cette colonne, certain d'entre vous vont me dire et bein fais le cellule par cellule, je vous dis que ma table contient plus de 56 000 lignes :mouarf:, alors vous voyez la nécessite d'une méthode pratique.
MERTHI à tous

Bonjour,
Voici un code qui devrait répondre à ta question

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub TestAjout()   NbLigne = Application.Subtotal(3, Range("a:a"))   For i = 2 To NbLigne   MaCell = Cells(i, 1) MaCellNew = "*" & MaCell Cells(i, 1) = MaCellNew Next i   End Sub

---

Par contre il n'y a pas de vérification, dans ton exemple tu veux ajouter *, dans ce code, je n'ai pas vérifié si le * était déjà présent en début de ligne.
Bonne continuation

Citation:

---

Envoyé par Fvandermeulen

Bonjour,
Voici un code qui devrait répondre à ta question

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub TestAjout()   NbLigne = Application.Subtotal(3, Range("a:a"))   For i = 2 To NbLigne   MaCell = Cells(i, 1) MaCellNew = "*" & MaCell Cells(i, 1) = MaCellNew Next i   End Sub

---

Par contre il n'y a pas de vérification, dans ton exemple tu veux ajouter *, dans ce code, je n'ai pas vérifié si le * était déjà présent en début de ligne.
Bonne continuation

---

bonjour et merthi pour ta réponse, mais comme je suis un peut nulle en bureautique :P, je dois ajouter ce script où? merthi encor

Pour faire simple, quand tu es dans ton fichier tu fais Alt+F11
Tu es alors dans l'éditeur VBA, tu dois alors insérer (via le menu) un Module et y coller le code.
Pour lancer la macro depuis Excel tu fais Alt+F8 tu as alors une fenêtre qui te permettras de choisir la macro à lancer.

Très bien ça marche à merveille :yaisse2:;
MERTHI beaucoup Fvandermeulen