XL 2010 couleur de la police

ferdo

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 !
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
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)
VB:
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
 

Statistiques des forums

Discussions
283 707
Messages
1 853 839
Membres
152 279
dernier inscrit
hamilcar
Haut Bas