Mise en forme heure
Bonjour à tous,
Je souhaite implémenter des horaires inscrits dans une base de données directement dans une case d'une autre feuille, comment faire directement dans le code pour qu'ils soient en format hh:mm dans mes cases du planning? J'aimerais également les mettre en valeur avec une couleur?
Voici le code:
For k = 0 To last_ligne_mission
If Cells(8 + k, j) = "" Then
Worksheets("Planning").Cells(8 + k, j) = Worksheets("Suivi mission").Cells(i, 2) & Chr(10) & Worksheets("Suivi mission").Cells(i, 6) & Chr(10) & Worksheets("Suivi mission").Cells(i, 7) & Chr(10) & Worksheets("Suivi mission").Cells(i, 10)
On prend en compte que Cells(i , 7) contient les heures dans la base de données
Merci d'avance
Bonjour,
Je dirais que le mieux serait de faire ceci sur la cellule de destination :
sub test()
'debut code
with celldestination
.numberformat = "hh:mm" 'format heure
.interior.color = RGB(0, 255, 0) 'couleur intérieure verte
.font.color = 255 'couleur police rouge
end withCdlt,