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

 

[phlaurent55]

Re : Mettre en gras

Bonjour Ronibo,

ton fichier en retour

à+
Philippe

 

[phlaurent55]

Re : Mettre en gras

Re,

une autre solution un peu plus "visuelle", pour mettre la ligne en couleur

à+
Philippe

 

[RONIBO]

Re : Mettre en gras

Re,

une autre solution un peu plus "visuelle", pour mettre la ligne en couleur

à+
Philippe

re,

merci beaucoup, c'est une très bonne idée de les mettres en couleur, mais comment fait t-on pour changer de couleur?

 

[phlaurent55]

Re : Mettre en gras

Re,

re,

merci beaucoup, c'est une très bonne idée de les mettres en couleur, mais comment fait t-on pour changer de couleur?

avec le code ci-dessous, il suffit de modifier les valeurs RGB

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A4:L" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
If Not Intersect(Target, Range("B4:L12")) Is Nothing And Target.Count = 1 Then
Range("A4:L" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.Color = RGB(200, 0, 150)
End If
End Sub

RGB(255,0,0) <---------- ce qui donne du rouge
RGB(0, 255, 0) <-------- pour le vert
RGB(0, 0, 255) <-------- pour le bleu
RGB(200, 0, 150) <------ pour le mauve


en combinant les valeurs de 0 à 255 pour chaque couleur (R, G & B) on arrive à avoir 16777216 couleurs différentes

à+
Philippe

 

[RONIBO]

Re : Mettre en gras

Re,

avec le code ci-dessous, il suffit de modifier les valeurs RGB

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A4:L" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
If Not Intersect(Target, Range("B4:L12")) Is Nothing And Target.Count = 1 Then
Range("A4:L" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.Color = RGB(200, 0, 150)
End If
End Sub

RGB(255,0,0) <---------- ce qui donne du rouge
RGB(0, 255, 0) <-------- pour le vert
RGB(0, 0, 255) <-------- pour le bleu
RGB(200, 0, 150) <------ pour le mauve


en combinant les valeurs de 0 à 255 pour chaque couleur (R, G & B) on arrive à avoir 16777216 couleurs différentes

à+
Philippe

Bonjour,

Une dernière question, comment sa se passe des que j'ai deux tableau dans la même feuille, je duplique le macros?
Y'a pas une liste pour savoir quel code appartient à quel couleur?

 

[RONIBO]

Re : Mettre en gras

re,

puis le module que tu as mis il sert à quoi exactement? 🙂

 

[phlaurent55]

Re : Mettre en gras

Re- bonjour,

Une dernière question, comment sa se passe des que j'ai deux tableau dans la même feuille, je duplique le macros?

pour deux tableaux dans la même feuille, il faut dupliquer le code (toujours dans la même procédure) ET l'adapter en fonction de la zone dans laquelle on va sélectionner une cellule

puis le module que tu as mis il sert à quoi exactement?

le module ne sert à rien, j'ai oublié de le supprimer

à+
Philippe

En fichier joint, un exemple pour deux tableaux

 

[RONIBO]

Re : Mettre en gras

Bonjour,

après une heure passée j'ai pas pu l'intégrer,

tu peux voir ou ca va pas?

merci 🙂

 

[RONIBO]

Re : Mettre en gras

re,

Les traits se voient à l'impression?

si ouis possibilité de les masquer

Lorque je clique u sur une cellule le trait en couleur apparait bien mais vu que j'ai que j'ai fais une mise en forme conditionnelle la couleurs de la colonne stock se voit.

tu as une solution pour ça?

 

[RONIBO]

Re : Mettre en gras

Bonjour,
Personne peux m'aider ?

 

[Gardien de phare]

Re : Mettre en gras

Re,

Supprimes les fusions de cellule dans ton tableau du bas !

HTH

 

[RONIBO]

Re : Mettre en gras

Bonjour, il doit bien exister un macros pour des cellule fusionnée, car dans mon deuxieme tableau les cellules sont fusionnées et je peux pas beneficier de cette macro pour mon deuxieme tableau 🙁

a+

 

[Gardien de phare]

Re : Mettre en gras

Re,

Et bien pas vraiment !

 

[phlaurent55]

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