Discussion :

[islyoung2]

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 , alors vous voyez la nécessite d'une méthode pratique.
MERTHI à tous

[Fvandermeulen]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[islyoung2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 , je dois ajouter ce script où? merthi encor

[Fvandermeulen]

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.

[islyoung2]

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