XL 2016 Mise en forme affichage

BARNS · 9 Juillet 2021

Bonjour tout le monde, est-ce qu'il y a moyen d'écrire ceci de manière plus condensé?

VB:

Sub aff()
 derniereL = Sheets("User").Cells(Rows.Count, 4).End(xlUp).Row + 10
    Sheets("User").Cells(derniereL, 3) = "Matériel pour canne de dessente"
    With Sheets("User").Cells(derniereL, 3)
    .Font.Bold = True
    .Font.Size = 14
    End With
End sub

Merci

M12 · 9 Juillet 2021

Bonjour,
Pas vraiment plus condensé mais...

VB:

Sub aff()
    derniereL = Sheets("User").Cells(Rows.Count, 4).End(xlUp).Row + 10
    With Sheets("User").Cells(derniereL, 3)
      .Value = "Matériel pour canne de dessente"
      .Font.Bold = True
      .Font.Size = 14
    End With
End Sub

M12 · 9 Juillet 2021

Bonjour,
Pas vraiment plus condensé mais...

VB:

Sub aff()
    derniereL = Sheets("User").Cells(Rows.Count, 4).End(xlUp).Row + 10
    With Sheets("User").Cells(derniereL, 3)
      .Value = "Matériel pour canne de dessente"
      .Font.Bold = True
      .Font.Size = 14
    End With
End Sub

BARNS · 9 Juillet 2021

Merveilleux! Merci

XL 2016 Mise en forme affichage

BARNS

XLDnaute Junior

M12

M12

XLDnaute Accro

BARNS

XLDnaute Junior

Discussions similaires