VBA : Mettre en gras la premiere ligne au sein d'une cellule

[ogle]

Bonjour à tous,

Une petite question simple pour vous.

J'ai une macro dans laquelle je souhaite mettre en gras, dans une cellule, la première ligne. Je sais le faire pour un nombre de caractères :

          G.Cells(J, 6).Characters(1, 10).Font.Bold = True

mais pas pour une ligne. Quelqu'un à une solution ?

Merci à tous

 

[pierrejean]

Re : VBA : Mettre en gras la premiere ligne au sein d'une cellule

Bonjour ogle

A tester:

x = InStr(G.Cells(J, 6), Chr(10))
G.Cells(J, 6).Characters(1, x - 1).Font.Bold = True

 

[JBARBE]

Re : VBA : Mettre en gras la premiere ligne au sein d'une cellule

Bonjour,

Pour la ligne 3

Sub essai()
Rows(3).Font.Bold = True
End Sub

Pour les lignes de 1 à 5

Sub essai()
dim i as long
for i = 1 to 5
Rows(i).Font.Bold = True
next i
End Sub

bonne journée

 

[ogle]

Re : VBA : Mettre en gras la premiere ligne au sein d'une cellule

Merci pour ces premiers éléments.

pierrejean , j'ai testé. Malheureusement cela mais l'ensemble des lignes dans la cellule en gras. Il faudrait trouver le moyen de lui dire que quand on passe à la ligne alors stop.

JBARBEmerci également mais ta solution permet seulement de mettre en gras une ligne et pas une ligne à l’intérieur d'une cellule.

 

[ogle]

Re : VBA : Mettre en gras la premiere ligne au sein d'une cellule

Désolé, Pierrejean, j'ai boggué ! Ta solution fonctionne ! Très astucieux. Merci à toi pour cette aide précieuse et cette réactivité !

 

[JBARBE]

Re : VBA : Mettre en gras la premiere ligne au sein d'une cellule

Cette solution avec la colonne 1 et à partir de la ligne 1

Option Explicit

Sub essai()
Dim i As Long
For i = 1 To 65536
 If Cells(i, 1) = "" Then
 Exit Sub
 Else
Rows(i).Font.Bold = True
End If
Next i
End Sub

bonne journée

 

[Camille Clauzade]

Re : VBA : Mettre en gras la premiere ligne au sein d'une cellule

Bonjour ogle

A tester:

x = InStr(G.Cells(J, 6), Chr(10))
G.Cells(J, 6).Characters(1, x - 1).Font.Bold = True

Bonjour Pierre Jean, est-ce possible d'avoir le code en entier stp ?
Merci beaucoup,
Camille

 

[pierrejean]

Bonjour Camille

Pour le problème de Ogle il n'y a rien de plus
Peux-tu préciser le tien (un fichier exemple est toujours le bienvenu !!!!)

 

[Camille Clauzade]

Voici le fichier. Je souhaiterais s'il te plait que la 1ère ligne de chaque cellule de la feuille "mise en forme" soit en gras.
Merci beaucoup

 

[pierrejean]

Re

La mise en gras de la 1ere ligne étant difficile à partir d'une formule
le report et la mise en gras sont traités en Vba ,la mise à jour se fait a l'activation de la feuille Mise en forme

 

[Camille Clauzade]

Pierre Jean, un immense merci, c'est génial !!! Je vais gagner beaucoup de temps
Très bonne journée