Comment ajouter un préfixe ou un suffixe à une plage de cellules dans Excel ?

La fonction CONCATENER d’Excel permet d’insérer rapidement un préfixe ou un suffixe dans une seule cellule.

1. Saisissez la fonction =CONCATENATE(«Food - »,A1) dans une cellule vide, par exemple la cellule C1, puis faites glisser la poignée de recopie sur la plage à remplir. Toutes les cellules concernées se voient ainsi automatiquement dotées du préfixe indiqué. Voir capture d’écran :

Vous pouvez utiliser la fonction CONCATENER pour insérer un préfixe, un suffixe ou les deux comme suit :

Vous ne maîtrisez peut-être pas les fonctions ni le code VBA dans Excel. L’utilitaire Add Text de Kutools for Excel vous permet d’ajouter rapidement un préfixe ou un suffixe à n’importe quelle plage sélectionnée.

1. Sélectionnez les cellules auxquelles vous souhaitez ajouter un préfixe ou un suffixe, puis cliquez sur KutoolsKutools > > Add Text Text Add Text.

2. Dans la boîte de dialogue Add Text, saisissez votre préfixe ou suffixe dans le champ Texte, cochez l’option Before first character (pour ajouter un préfixe) ou l’option After last character (pour ajouter un suffixe) selon vos besoins, puis cliquez sur le bouton Ok.
Le préfixe ou le suffixe spécifié est désormais ajouté à chaque cellule sélectionnée en une seule opération. Voir capture d’écran :

Vous pouvez également résoudre ce problème à l’aide du code VBA suivant :

1. Sélectionnez la plage à laquelle vous souhaitez ajouter un préfixe ou un suffixe.

2. Cliquez sur Developer > Visual Basic Visual Basic : une nouvelle fenêtre Microsoft Visual Basic for applications s’ouvre. Cliquez ensuite sur InsertInsert > Module, puis saisissez le code suivant :

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

3. Cliquez ensuite sur le bouton Run ou appuyez sur la touche F5 pour exécuter le code VBA.

4. Dans la première boîte de dialogue KutoolsforExcel, spécifiez la plage à laquelle vous souhaitez ajouter un préfixe ou un suffixe, puis cliquez sur le bouton OK. Ensuite, dans la deuxième boîte de dialogue KutoolsforExcel, saisissez le préfixe ou le suffixe à ajouter et cliquez sur le bouton OK. Voir les captures d’écran ci-dessous :
     
Le préfixe ou le suffixe spécifié a désormais été ajouté à chaque cellule sélectionnée, comme illustré ci-dessous :

Ajouter Ajouter du texte au début ou à la fin de toutes les cellules

Ajouter des chaînes de texte à plusieurs cellules

ajouter des zéros initiaux à des nombres ou du texte