Une ligne bien grasse

[polik]

Bonjour le forum

Est-il possible (je le sens) d'associer la mise en forme (gras) pour les 3 cellule adjacente à la première cellule de cette ligne est en gras et l'inverse (pas gras si premiere cellule pas gras)


Voir le fichier
quand je parle de 1ere cellule je parle de la colonne b
quand je parle de 3 cellule adjacente je parle des colonne c d e

 

[Evelynetfrancois]

Re : Une ligne bien grasse

bonsoir polik

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
For Each Cellule In Range("B3:B" & Range("B65536").End(xlUp).Row)
If UCase(Left(Cellule.Value, 1)) <> UCase(Left(Cells(Cellule.Row - 1, Cellule.Column).Value, 1)) Then
Cellule.Font.Bold = True
Cellule.Offset(0, 1).Font.Bold = True
Cellule.Offset(0, 2).Font.Bold = True
Cellule.Offset(0, 3).Font.Bold = True
Else
Cellule.Font.Bold = False
Cellule.Offset(0, 1).Font.Bold = False
Cellule.Offset(0, 2).Font.Bold = False
Cellule.Offset(0, 3).Font.Bold = False
End If
Next Cellule
End Sub

E et F

 

[Evelynetfrancois]

Re : Une ligne bien grasse

un peu plus propre, mais y a surement mieux lol

With Cellule
.Font.Bold = True
.Offset(0, 1).Font.Bold = True
.Offset(0, 2).Font.Bold = True
.Offset(0, 3).Font.Bold = True
End With
Else
With Cellule
.Font.Bold = False
.Offset(0, 1).Font.Bold = False
.Offset(0, 2).Font.Bold = False
.Offset(0, 3).Font.Bold = False
End With

E et F

 

[polik]

Re : Une ligne bien grasse

merci E et F

si j'ai bien compris et si jai plus de 3 colonnes je dois faire comme suit:

Cellule.Offset(0, 1).Font.Bold = True
Cellule.Offset(0, 2).Font.Bold = True
Cellule.Offset(0, 3).Font.Bold = True
Cellule.Offset(0, X).Font.Bold = True
Else
Cellule.Font.Bold = False
Cellule.Offset(0, 1).Font.Bold = False
Cellule.Offset(0, 2).Font.Bold = False
Cellule.Offset(0, 3).Font.Bold = False
Cellule.Offset(0, x).Font.Bold = False
etc,

 

[SergiO]

Re : Une ligne bien grasse

Bonsoir,

Une autre solution :

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim Cel As Range

For Each Cel In Range("B1:B" & Range("B65536").End(xlUp).Row)
    If Cel.Font.Bold = True Then
    Range("C" & Cel.Row & ":E" & Cel.Row).Font.Bold = True
        Else
        Range("C" & Cel.Row & ":E" & Cel.Row).Font.Bold = False
    End If
Next

End Sub

Bonne soirée

 

[polik]

Re : Une ligne bien grasse

super, merci !!!

grâce à vous j'apprend tranquillement à coder

 

[Simons]

Re : Une ligne bien grasse

Aller encore une solution..

;-)

 

[polik]

Re : Une ligne bien grasse

merci aussi simons