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

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
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 ! 😡
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

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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
K
  • Question Question
Microsoft 365 Mise en forme conditionnelle [Texte ET Date]
Réponses
5
Affichages
969
Cousinhub
Cousinhub
K
  • Question Question
XL 2019 extraire la date d'une cellule date et heure
Réponses
7
Affichages
496
TooFatBoy
TooFatBoy
H
  • Question Question
XL 2021 [Résolu] Récupérer informations dans plusieurs classeurs et les centraliser dans un autre
2
Réponses
16
Affichages
959
Cousinhub
Cousinhub
D
  • Question Question
Microsoft 365 Convertir la date et heure iso 8601 en date et heure dans la même cellule
Réponses
1
Affichages
1 K
TooFatBoy
TooFatBoy
B
  • Résolu(e)
Microsoft 365 Trouver date début et fin de période sans interruption
2
Réponses
20
Affichages
2 K
bb78
B
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
768
TooFatBoy
TooFatBoy
R
  • Résolu(e)
XL 2019 VBA - Simplifier un code fait par enregistrement
2 3
Réponses
33
Affichages
3 K
Staple1600
Staple1600
B
  • Question Question
Microsoft 365 Planning
Réponses
2
Affichages
2 K
bibbip35
B
D
  • Question Question
XL 2016 Insérer une date (format Standard) dans une cellule Texte
Réponses
5
Affichages
1 K
didcac
D
S
  • Question Question
XL 2016 Comment enlever petit triangle vert et losange jaune suite à download (problème de format) ?
Réponses
5
Affichages
5 K
Sebast
S
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
D
  • Question Question
XL pour MAC Réaffectation (très complexe) de données dans des lignes supplémentaires générées par Macro
Réponses
3
Affichages
1 K
didcac
D
S
  • Question Question
Retrouver date de début et de fin sans coupure
Réponses
13
Affichages
2 K
SManu
S
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
P
  • Question Question
Microsoft 365 Comment faire pour double-cliquer d'une cellule et avoir l'heure actuelle arrondie au 15 minute pres sur excel
2 3
Réponses
33
Affichages
3 K
patrick965
P
A
  • Question Question
XL 2013 Convertion date avec et sans heures
Réponses
8
Affichages
1 K
chris
chris
B
  • Question Question
Calendrier, Function férié(i) et ajout de dates dynamiques
Réponses
10
Affichages
2 K
patricktoulon
patricktoulon
S
  • Question Question
XL 2019 Afficher la date de début et fin des trimestres entre lundi et vendredi
Réponses
2
Affichages
2 K
Modeste geedee
Modeste geedee
F
  • Question Question
XL 2016 Format de date dans =TEXTE(....)
Réponses
14
Affichages
3 K
job75
job75
Retour