XL 2010 couleur de la police

[ferdo]

Bonjour

je voudrais changer la couleur de la police et mettre en gras les lignes sélectionner

Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "Confirmation") = vbYes Then

Worksheets("Resto").Select
ligne = Sheets("Resto").Range("a456541").End(xlUp).Row + 1
'


'Select.End (xlDown)

Selection.Offset(1, 0).Select

Cells(ligne, 1) = CombResto
Cells(ligne, 2) = TDate
Cells(ligne, 3) = Tville
Cells(ligne, 4) = TDept
Cells(ligne, 5) = TPrix
End If
End Sub

merci d avance pour l'aide

 

[JBARBE]

Bonjour à tous,
Pour plus de faciliter utiliser l'enregistrement automatique !
exemple pour mettre en gras et police rouge :
Rows("5:5").Select
Selection.Font.Bold = True
Selection.Font.Color = -16776961
ou
ligne = Range("B9:F9")
ligne.Font.Bold = True
ligne.Font.Color = -16776961
ou
for i = 2 to 65536
if Sheets("Resto") .cells(i,1) <>"" then
Sheets("Resto"). range(cells(i,2),cells(i,10)).Font.Bold = True
Sheets("Resto") .range(cells(i,2),cells(i,10)).Font.Color = -16776961
else
exit sub
end if
next i
Bonne journée !

 

[ferdo]

Merci pour ta reponse

 

[Staple1600]

Bonsoir le fil, ferdo, JBARBE

En partant du principe que le code du message#1 est celui d'un CommandButton d'un userform.
Mon interprétation de la chose
(ps: j'ai repris la même couleur que JBARBE)

Private Sub CommandButton1_Click()
Dim ligne As Long
If MsgBox("Confirmez-vous l'ajout des données?", vbYesNo + vbQuestion, "Confirmation") = vbYes Then
ligne = Sheets("Resto").Cells(Rows.Count, 1).End(xlUp)(2).Row
With Sheets("Resto").Cells(ligne, 1).Resize(, 5)
    .Value = Array(CombResto, TDate, Tville, TDept, TPrix)
    With .Font
        .Bold = True: .Color = -16776961
    End With
End With
End If
End Sub