XL 2010 texte en gras

[DAVAWAY]

Bonjour,
Pourriez-vous m'aider à mettre en forme (gras) une partie des données importées à partir du liste ?

Je ne sais pas comment coder avec Bold le segment : & .Cells(i, "T") de la macro ci-dessous :

Function DepensesDirectes1()
With Sheets("DépensesPersonnel BS")
For i = 19 To 499
If .Cells(i, "S") = "oui" Then
liste = liste & Chr(10) & .Cells(i, "T") & " " & .Cells(i, "R")
End If
Next i
End With

DepensesDirectes1 = liste
End Function

D'avance merci pour votre aide et lumières !

David

 

[pierrejean]

Bonjour DAVID

Vois si tu peux t'inspirer de ceci
NB: C'est légèrement capillotracté et la mise à jour se fait a chaque changement dans la feuille

Edit:Cette version est plus mieux bien

 

[DAVAWAY]

Bonjour PierreJean,
Je te remercie pour ta solution que je découvre et vais tester sur mon tableur, merci beaucoup !
Bonne journée, je reviens vers toi au besoin et si tu le veux bien.
David

 

[DAVAWAY]

PierreJean,

Très beau travail, je te remercie !

J'essaie de compléter le code, sachant que la liste des données est saisie dans une feuille différente de "DépensesPersonnel BS" (ce que tu ne pouvais pas voir !). En cellule A25 de l'onglet "demande pj" est entrée la liste (=depensesdirectes1()) pour être plus précis.

J'ai essayé de reprendre la sub gras :

Public tablo()
[B]Function DepensesDirectes1()[/B]
ReDim tablo(0)
'With Sheets("DépensesPersonnel BS")
'For i = 19 To 499
With Sheets("DépensesPersonnel BS")
For i = 1 To 10
   If .Cells(i, "S") = "oui" Then
    liste = liste & .Cells(i, "T") & " " & .Cells(i, "R") & " ; "
    tablo(UBound(tablo)) = .Cells(i, "T")
    ReDim Preserve tablo(UBound(tablo) + 1)
   End If
Next i
End With
DepensesDirectes1 = Left(liste, Len(liste) - 3)
End Function
[B]Sub gras()[/B]
With Sheets("demande pj")
Range("A5") = DepensesDirectes1
Range("A5").Value = Range("A5").Value
Range("A5").Font.FontStyle = "Normal"
debut = 1
For n = LBound(tablo) To UBound(tablo) - 1
  x = InStr(debut, Range("A5").Value, tablo(n))
  l = Len(tablo(n))
  MsgBox (tablo(n) & "  " & x & "  " & l)
  Range("A5").Characters(Start:=x, Length:=l).Font.FontStyle = "Gras"
  debut = x + 1
Next
End With
End Sub

En exécution, j'ai une erreur type 5 (argument ou appel de procédure incorrect) sur la fonction, à ce niveau "DepensesDirectes1 = Left(liste, Len(liste) - 3)"

J'ai bien intégré dans la feuille DépensesPersonnelBS la private sub dédiée.

Je peux au besoin te transmettre le fichier complet via mp. Merci pour ton aide.

Bonne fin de matinée ,

David