XL 2021 ListBox1 : format texte date et enregistrement sans ma cellule

Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous :)
J'espère et je vous souhaite de belles fêtes de fin d'année ...

LOL y'avait longtemps

Je n'arrive pas à faire fonctionner ma ListBox1 comme je le voudrais Grrr ! :mad:
Contexte
au clic cellule "I7"
la ListBox1 (plage B9:B31) s'affiche et je sélectionne mon affectation
au clic sur la sélection, la date/h/mn et ma sélection s'affichent dans la cellule "K6" avant le texte déjà existant

Besoin1
Est-il possible d'avoir la date en gras et soulignée ?
exemple
27.12.23 15:22:58 : Mandat groupt -

Besoin2
si je fais 2 affectations ou + le même jour, j'obtiens :
exemple
27.12.23 15:22:58 : Mandat groupt - 27.12.23 15:13:30 : Hors cible - 27.12.23 15:11:54 : RDV Fait -

J'aimerais que, si plusieurs affectations sont faites le même jour :
le ou les commentaires précédents la dernière affection n'aient pas de date mais juste les heures et minutes
exemple
27.12.23 15:22:58 : Mandat groupt - 15:13:30 : Hors cible - 15:11:54 : RDV Fait -

J'aurais bien besoin de vos lumières :)
Auriez-vous les bons codes ?
En cas, je joins le petit fichier test.

Grand merci à toutes et à tous,
Je continue mes recherches...
:)
 

Pièces jointes

  • ajoutInfo_test.xlsm
    29.5 KB · Affichages: 4
Solution
job75
Par ailleurs quand il y a plusieurs dates différentes il paraît logique de toutes les souligner :
VB: 
Private Sub ListBox1_Change()
  If ListBox1 Like "…*" Or ListBox1 = "" Then Exit Sub
  Dim i%
  With ActiveCell.Offset(0, 2)
    .Value = Replace(.Value, Format(Date, "dd.mm.yy "), "")
    .Value = Format(Now, "dd.mm.yy hh:mm:ss") & " : " & ListBox1 & " - " & .Value
    .Font.Bold = False
    .Font.Underline = xlUnderlineStyleNone
    For i = 1 To Len(.Value) - 7
      If Mid(.Value, i, 8) Like "##.##.##" Then
        .Characters(i, 8).Font.Bold = True
        .Characters(i, 8).Font.Underline = xlUnderlineStyleSingle
        i = i + 7
      End If
    Next
  End With
  Cells(ActiveCell.Row, 1).Select
  Unload Me...
Trier par date Trier par votes

Discussions similaires

Dadi147
  • Résolu(e)
XL 2016 cellules A, b, C et D sont automatiquement vides
Réponses
3
Affichages
371
job75
job75
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
498
TooFatBoy
TooFatBoy
S
  • Question
XL 2016 format dates et heures
Réponses
5
Affichages
813
Hasco
Hasco
R
  • Résolu(e)
XL 2019 VBA - Simplifier un code fait par enregistrement
2 3
Réponses
33
Affichages
2 K
Staple1600
Staple1600
A
  • Résolu(e)
XL 2019 Auto compléter une cellule en fonction d'une liste
2
Réponses
25
Affichages
4 K
Angelzeus
A
S
  • Résolu(e)
utiliser une date et heure au format atypique pour créer un graphique orthonormé.
Réponses
3
Affichages
1 K
Senoy
S
L
  • Question
Microsoft 365 Problème erreur range
Réponses
11
Affichages
1 K
LaSimonerie
L
J
  • Question
Valeur texte la plus à droite de ma plage
Réponses
2
Affichages
614
Julien_m
J
S
  • Résolu(e)
Microsoft 365 Problème de transfert de données
Réponses
1
Affichages
920
SCorbeil
S
Dudesson
  • Question
XL 2016 Demande d'aide pour modifier code Userform
Réponses
1
Affichages
790
Dudesson
Dudesson

Membres actuellement en ligne

11 membres et 93 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 209
Messages
2 086 274
Membres
103 168
dernier inscrit
isidore33