Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S’enregistrer  \/ 
x

or

Comment ajouter des chaînes de texte à plusieurs cellules dans Excel?

Si nous devons ajouter du texte spécifique ou des chaînes de texte dans plusieurs cellules, il sera difficile et chronophage de copier ce texte et de le coller dans chaque cellule une par une. Les méthodes suivantes peuvent nous aider à ajouter du texte spécifique dans plusieurs cellules de manière pratique et rapide.

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Trier par semaine, jour, fréquence et plus encore; Filtrez par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

flèche bleue bulle droite Ajouter du texte spécifique à plusieurs cellules dans Excel avec VBA


L'utilisation d'un VBA peut faciliter notre travail et ajouter du texte spécifique dans plusieurs cellules sans copier-coller.

Étape 1 : Sélectionnez les cellules dans lesquelles vous allez ajouter le texte spécifique.

Étape 2: maintenez la touche ALT + F11 clés et il ouvre la fenêtre Microsoft Visual Basic pour Applications.

Étape 3: cliquez sur insérer >> Moduleet collez la macro suivante dans la fenêtre Module.

Sous Add2Formula ()
' Ajouter du texte

Pour chaque c En sélection
c.Activer
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Suivant c

End Sub

Étape 4: appuyez sur le F5 clé pour exécuter cette macro.

importante: Cette macro ne peut ajouter que le texte - au début de chaque texte de cellule. Si vous souhaitez ajouter d'autres textes ou chaînes, veuillez remplacer le texte - avec le texte spécifique que vous souhaitez ajouter.


flèche bleue bulle droite Ajouter du texte spécifique à plusieurs cellules dans Excel avec Kutools for Excel

Pour les utilisateurs courants de Microsoft Excel, nous ne connaissons peut-être pas VBA. Alternativement, le Kutools pour ExcelL'outil Ajouter du texte peut nous aider à ajouter rapidement et facilement le texte ou les chaînes spécifiques dans plusieurs cellules.

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Obtenez-le maintenant

Étape 1: Sélectionnez les cellules dans lesquelles vous allez ajouter le texte spécifique.

Étape 2: cliquez sur le Kutools > Outils de texte > Ajouter du texte…. Voir la capture d'écran:

Étape 3: dans le Ajouter du texte boîte de dialogue, entrez le texte et les caractères spécifiques dans la section Texte.

Étape 4: cochez une position où vous allez ajouter le texte spécifique dans le Position section. (Remarque: si vous souhaitez insérer le texte dans une position spécifiée, veuillez vérifier Spécifier et spécifiez la position.) Voir capture d'écran:

Étape 5: cliquez sur OK or Appliquer.

L' Ajouter du texte L'outil de Kutools for Excel nous aide à ajouter du texte et des caractères spécifiques avant ou après le texte de la cellule d'origine. De plus, nous pouvons ajouter du texte spécifique entre les textes de cellule d'origine. Quels que soient les paramètres que vous définissez, vous pouvez prévisualiser les modifications apportées aux cellules dans la section Aperçu.


Article connexe:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Anish · 10 months ago
    how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

    Thank you in Advance.
  • To post as a guest, your comment is unpublished.
    Peter · 3 years ago
    If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
  • To post as a guest, your comment is unpublished.
    cpk.adm@gmail.com · 3 years ago
    i want to add one character in before and after . please help .. mail me cpk.adm@gmail.com
  • To post as a guest, your comment is unpublished.
    cpk.adm@gmail.com · 3 years ago
    Private Sub CommandButton1_Click()
    On Error GoTo errorhandler:
    Dim objRange1 As Range
    Dim wk As Workbook

    'Set up the ranges


    Set objRange1 = Range("A22:A51")


    objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
    DataType:=xlDelimited, _
    Tab:=False, _
    Semicolon:=False, _
    Comma:=False, _
    Space:=False, _
    Other:=True, _
    OtherChar:="|"
    Dim rn As String
    Dim rn1 As String
    Dim rn2 As String
    Dim rep As String
    Dim res As String
    rep = "Do you want to copy Values?"
    res = MsgBox(rep, vbQuestion + vbYesNo, "???")
    If res = vbYes Then

    rn = InputBox(" Enter Range to Copy Circuit Id")
    Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
    MsgBox (" Circuit Id has Successfully Pasted")
    rn1 = InputBox(" Enter Range to copy Order Reference")
    Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
    MsgBox (" Order Reference has Successfully Pasted")
    rn2 = InputBox(" Enter Range to copy Inventory Name")
    Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
    MsgBox (" Inventory has Successfully Pasted")
    Sheets("sheet1").Range("Z1:AM10").ClearContents
    Sheets("sheet2").Activate
    Else
    MsgBox (" Thank You")
    End If
    errorhandler:
    MsgBox ("you have clicked cancelled bitton")
    Sheet1.Activate
    End Sub


    Private Sub CommandButton2_Click()
    Sheet1.Range("A10:A32").ClearContents
    End Sub







    it is working , but i have to add text in one cell . please help me