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

Comment mettre en gras uniquement la première ligne ou le premier mot de la cellule dans Excel?

Dans une feuille de calcul Excel, il peut y avoir beaucoup de cellules contenant plusieurs lignes qui ont été paragraphe par les touches Alt + Entrée. Dans certains cas, vous devrez peut-être mettre en gras uniquement la première ligne de ces cellules. Ou seulement en gras le premier mot pour le rendre exceptionnel dans les cellules. Cet article présente deux méthodes pour y parvenir en détail.

Gras uniquement la première ligne de la cellule avec le code VBA Gras uniquement le premier mot de la cellule avec le code VBA


Gras uniquement la première ligne de la cellule avec le code VBA


Le code VBA suivant peut vous aider à mettre rapidement en gras uniquement la première ligne des cellules sélectionnées. Veuillez faire comme suit.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA: gras uniquement sur la première ligne des cellules

Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
    With xCell
        .Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
    End With
Next
End Sub

3. appuie sur le F5 clé pour exécuter le code. Puis un Kutools pour Excel boîte de dialogue apparaît, veuillez sélectionner la plage avec la première ligne dont vous avez besoin pour la mettre en gras, puis cliquez sur le OK .

Ensuite, vous pouvez voir que toutes les premières lignes des cellules sélectionnées sont immédiatement en gras, comme illustré ci-dessous.


Gras uniquement le premier mot de la cellule avec le code VBA

Comme illustré ci-dessous, vous devez parfois mettre en gras le premier mot uniquement dans la plage A2: A4 dans Excel. Vous pouvez y parvenir étape par étape comme suit.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA: en gras uniquement le premier mot des cellules

Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  If xCell.Value <> "" Then
    xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
  End If
Next
End Sub

3. appuie sur le F5 clé pour exécuter le code. Dans le popping Kutools pour Excel boîte de dialogue, sélectionnez la plage dans laquelle vous souhaitez mettre le premier mot en gras, puis appuyez sur la touche OK bouton. Voir la capture d'écran:

Ensuite, vous pouvez voir tous les premiers mots des cellules sélectionnées sont immédiatement en gras, comme illustré ci-dessous.


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 (7)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Que diriez-vous si je veux que la deuxième ligne soit en gras?
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée!
Si vous souhaitez mettre en gras uniquement la deuxième ligne de la cellule, essayez le code VBA suivant :

Sous BoldSecondeLigne()
Dim xRng As Range, xCell As Range
Dim xArr
On Error Resume Next
Set xRng = Application.InputBox("Veuillez sélectionner la plage :", "Kutools for", Selection.Address, , , , , 8)
Si xRng n'est rien, quittez Sub
Pour chaque xCell dans xRng
Si xCell <> "" Alors
Avec xCell
xArr = Split(xCellule, Chr(10))
.Characters(InStr(.Value, Chr(10)) + 1, Len(xArr(1))).Font.Bold = True
Terminer par
Si fin
Suivant
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Salut, et si je veux que les trois premiers mots soient en gras ?
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Veuillez essayer le script VBA ci-dessous.

Sous texte gras()
Dim xRng As Range, xCell As Range
Dim xNum As Long, xCount As Long
Dim I As Long, J As Long
Dim xArr
Dim xArrChr10
On Error Resume Next
Set xRng = Application.InputBox("Veuillez sélectionner la plage :", "Kutools pour Excel", Selection.Address, , , , , 8)
Si xRng n'est rien, quittez Sub
Pour chaque xCell dans xRng
xNum = 0
xCompte = 0
xArrChr10 = Split(xCell.Valeur, Chr(10))
Pour I = 0 Vers UBound(xArrChr10)
xArr = Split(xArrChr10(I))
Pour J = 0 Vers UBound(xArr)
Si xArr(J) <> "" Alors
xCompte = xCompte + 1
Si xCount > 3 alors quitter pour
Si fin
xNum = xNum + Len(xArr(J)) + 1
Suivant
Suivant
xCell.Characters(1, xNum).Font.Bold = True
Suivant
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
HI, que diriez-vous si je veux que les deux premières lignes soient en gras?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'ai pas mal de lignes dans une cellule. Je veux que la 5ème ligne soit en gras et en italique dans une cellule. Le code ci-dessous ne fait que la première ligne. Pouvez-vous aider

Sous-gras()


Dim r As Range, c As Range
Dim ws As Worksheet

Définir ws = ActiveSheet
Définir r = ws.Range("Y:Y")
Pour chaque c dans r
Avec c
.Font.bold = Faux
.Valeur = .Texte
.Characters(1, InStr(.Text, vbLf) - 1).Font.bold = True
Terminer par

Suivant c


End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Salut. J'ai de nombreuses cellules contenant plusieurs lignes qui ont été paragraphenées par Alt + Entrée. Je voudrais mettre en gras et changer la couleur du premier mot de chaque ligne. Pouvez-vous aider s'il vous plaît?
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés