Note: The other languages of the website are Google-translated. Back to English
Connexion Inscription

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; Sort par semaine, jour, fréquence et plus encore; Filtre 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.

Notes: 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.

Le 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éeplus
  • 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 gammesplus
  • 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 cellulesplus
  • 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 PDFplus
  • 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.
onglet kte 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
Commentaires (4)
Pas encore de notes. Soyez le premier à évaluer!
Prabha Karan
Prabha Karan
Ce commentaire a été minimisé par le modérateur sur le site
Private Sub CommandButton1_Click ()
Sur le gestionnaire d'erreurs Error GoTo :
Dim objRange1 As Range
Dim wk As Workbook

'Configurer les gammes


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination :=Sheet1.Range("Z1"), _
DataType :=xlDelimited, _
Tab :=Faux, _
Point-virgule :=Faux, _
Virgule :=Faux, _
Espace :=Faux, _
Autre :=Vrai, _
AutreChar :="|"
Dim rn As String
Dim rn1 en tant que chaîne
Dim rn2 en tant que chaîne
Dim rep As String
Dim res As String
rep = "Voulez-vous copier des valeurs ?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
Si res = vbOui Alors

rn = InputBox(" Entrez la plage pour copier l'identifiant du circuit")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination :=Sheets("Sheet2").Range(rn)
MsgBox (" L'identifiant du circuit a été collé avec succès")
rn1 = InputBox(" Entrez la plage pour copier la référence de commande")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" La référence de la commande a été collée avec succès")
rn2 = InputBox(" Entrez la plage pour copier le nom de l'inventaire")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox ("L'inventaire a été collé avec succès")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Feuilles("feuille2").Activer
autre
MsgBox ("Merci")
Si fin
gestionnaire d'erreur :
MsgBox ("vous avez cliqué sur bitton annulé")
Feuille1.Activer
End Sub


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







cela fonctionne, mais je dois ajouter du texte dans une cellule. Aidez-moi, s'il vous plaît
Répondre
Rapport
0
0
Prabha Karan
Prabha Karan
Ce commentaire a été minimisé par le modérateur sur le site
je veux ajouter un caractère avant et après. aidez-moi s'il vous plaît .. écrivez-moi cpk.adm@gmail.com
Répondre
Rapport
0
0
Pierre
Pierre
Ce commentaire a été minimisé par le modérateur sur le site
Si j'ai besoin d'ajouter des valeurs au texte comme: valeur "texte" E12 valeur "texte" E12 valeur "texte"E12 est-ce possible? besoin de faire du référencement
Répondre
0
0
Anish
Anish
Ce commentaire a été minimisé par le modérateur sur le site
comment ajouter plusieurs cellules et comparer avec une cellule, de sorte que la cellule comparée à la valeur change dynamiquement. Par exemple, la somme de la colonne et vous ajoutez des valeurs dans la colonne, puis la somme change dynamiquement.

Merci d'avance.
Répondre
0
0
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
GUEST
Publier en tant qu'invité
Connexion
×
Évaluez cet article:
Réinitialiser
0   Personnages
Emplacements suggérés