Ajouter un mot au début de chaque cellule d'une colonne

Coucou,

je voudrais ajouter un mot au début de chaque celulle d'une même colonne.

Pourriez vous me donner un petit coup de main SVP ?

Merci

Bonjour,

on préfère avoir des fichiers pour coder, mais comme je suis de bonne humeur, j'en fournis un avec un exemple, le code utilisé est le suivant:

Sub test()
der_lig = Range("a" & Rows.Count).End(xlUp).Row
texte = "test: "
tableau = Range("a1", "a" & der_lig)
For i = LBound(tableau, 1) To UBound(tableau, 1)
    tableau(i, 1) = texte & tableau(i, 1)
Next i
Range("a1", "a" & der_lig) = tableau
End Sub

Voici le fichier:

frank69 a écrit :

Coucou,

je voudrais ajouter un mot au début de chaque celulle d'une même colonne.

Pourriez vous me donner un petit coup de main SVP ?

Merci

Bonjour,

Un exemple pour des données en colonne A (formule à étendre vers le bas) :

="MonMot"&A1

ou

=CONCATENER("MonMot";A1)

Merci à vous deux Ca m'a aidé Passez une bonne journée.

De rien et bonne journée également