Discussion :

[snoopy69]

Bonjour à tous,

J'ai une colonne remplie de texte dans chaque cellule sur une longueur de 1750 lignes.

Ce que je cherche à faire c'est à ajouter le caractère " en début et fin de chaîne de texte dans chaque cellule.

Savez-vous comment je peux faire cela ?

je travaille avec Excel 2003.

Merci de votre aide.

[pgz]

Bonjour.

Tu peux essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub snoopy()
Dim L As Long, L1 As Long, L2 As Long
Const numCol = 8
 
With Application.ThisWorkbook.Sheets(1)
    L2 = .Cells(65536, numCol).End(xlUp).Row
    L1 = .Cells(L2, numCol).End(xlUp).Row
 
    For L = L1 To L2
        .Cells(L, numCol) = """" & .Cells(L, numCol) & """"
    Next L
End With
 
End Sub

Reste à mettre le bon numéro de colonne et de feuille.

PGZ

[marc56]

Bonjour,
As-tu essayé avec la fonction de concaténation ou le & ?
Exemple avec ton texte en colonne A. En B tu rentres :

Code :

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

="(ton caractère de début)"&A1&"(ton caractère de fin)"

Si c'est ce que tu veux, ensuite, après avoir recopier vers le bas ta cellule B par un double clic sur le carré noir en bas et à droite, tu fais une copie de la colonne entière, suivi d'un "coller" mais que des "valeurs" seulement pour supprimer tes formules.