Mettre en gras

[RONIBO]

Bonjour,

j'espère que vous allez bien🙂

j'aimerai que vous m'aidez à intégrer une macro dans mon fichier

je souhaite mettre en gras la cellule "désignation" lorsque je clique sur une valeur qui appartient à la même ligne

example : lorque je clique sur la céllule G8, je veux que A8 se mette en gras, et pareil pour les autre🙂

Merci d'avance pour votre soutien

 

[RONIBO]

Re : Mettre en gras

Re- bonjour à tous,

pour pouvoir fonctionner sur le tableau du bas qui contient des cellules fusionnées, il faut supprimer " And Target.Count = 1 " dans la ligne concernée

pour que les lignes coloriées ne se voient pas à l'impression il faut cliquer en dehors des tableaux et utiliser ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' clic en dehors des tableaux pous effacer les lignes coloriées
Range("A12:Y" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range("E30:W" & Range("E65535").End(xlUp).Row).Interior.Pattern = xlNone
' Pour le premier tableau
If Not Intersect(Target, Range("A12:Y25")) Is Nothing And Target.Count = 1 Then
Range("A12:Y" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 25)).Interior.Color = RGB(200, 100, 150)
End If

' Pour le deuxième tableau
If Not Intersect(Target, Range("E30:W43")) Is Nothing Then
Range("E30:W" & Range("E65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 5), Cells(Target.Row, 23)).Interior.Color = RGB(200, 100, 150)
End If

End Sub

à+
Philippe

re,

c'est parfait merci beaucoup 😉