récup date(moitié de texte dans cell)

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 !

spyderdvd

XLDnaute Nouveau
Bonjour à tous et surtout une bonne et heureuse année 2019 !!!

Voici ma problématique j'ai une extraction Excel où l'heure de départ et arrivée contient également la date du jour concerné. J'ai fait une toute petite macro pour supprimer la date (voir fichier text)
Par contre j'aimerais bien avoir une macro qui:
En colonne C après la ligne 4 repère la cellule non vide et arrive à enregistrer la date (texte jusqu'à l'espace ??)

Pour reprendre celle-ci dans l'intitulé de mon doc : Document du + ( date enregistrée ) Si possible avec tout dans la cellule C1.

Et effacer cette même date dans la colonne C et D pour garder que l'horaire,
m'évitant ainsi de modifier à chaque date différente ma macro.

Merci d'avance !!!
 

Pièces jointes

Bonjour à tous et surtout une bonne et heureuse année 2019 !!!

Voici ma problématique j'ai une extraction Excel où l'heure de départ et arrivée contient également la date du jour concerné. J'ai fait une toute petite macro pour supprimer la date (voir fichier text)
Par contre j'aimerais bien avoir une macro qui:
En colonne C après la ligne 4 repère la cellule non vide et arrive à enregistrer la date (texte jusqu'à l'espace ??)

Pour reprendre celle-ci dans l'intitulé de mon doc : Document du + ( date enregistrée ) Si possible avec tout dans la cellule C1.

Et effacer cette même date dans la colonne C et D pour garder que l'horaire,
m'évitant ainsi de modifier à chaque date différente ma macro.

Merci d'avance !!!
Bonjour et meilleurs vœux pour 2019
Essaye ceci:

*code modifié
VB:
Sub Lesheures()
Sheets("TEST").Columns("c:d").Replace "*/???? ", ""
Sheets("TEST").Columns("c:d").NumberFormat = "hh:mm"
End Sub
 
Dernière édition:
Bonjour spyderdvd, Jacky67,
Code:
Sub DateHeure()
With Range("C5:D" & Rows.Count)
    If .Find("??/*", , xlValues) Is Nothing Then Exit Sub
    [C1] = "Document du " & Left(.Find("??/*"), 10)
    .NumberFormat = "hh:mm:ss"
    .Replace "* ", "", xlPart
End With
End Sub
Mes meilleurs voeux pour 2019.

A+
 
Bonjour à tous et surtout une bonne et heureuse année 2019 !!!

Voici ma problématique j'ai une extraction Excel où l'heure de départ et arrivée contient également la date du jour concerné. J'ai fait une toute petite macro pour supprimer la date (voir fichier text)
Par contre j'aimerais bien avoir une macro qui:
En colonne C après la ligne 4 repère la cellule non vide et arrive à enregistrer la date (texte jusqu'à l'espace ??)

Pour reprendre celle-ci dans l'intitulé de mon doc : Document du + ( date enregistrée ) Si possible avec tout dans la cellule C1.

Et effacer cette même date dans la colonne C et D pour garder que l'horaire,
m'évitant ainsi de modifier à chaque date différente ma macro.

Merci d'avance !!!
???? pourquoi supprimer la date ???
l'affichage de l'heure seule par un format ne suffit-elle pas ???

collage spécial de la valeur 1 dans la plage C et D
format de cellule :
hh:mm:ss
 
Bonjour à vous trois et merci pour votre participation à la résolution de mon problème.
Et un remerciement tout particulier à Job75 car je vais pouvoir intégré ce petit bout
de macro à une plus grande pour récupérer des données et les traitées comme je le souhaite.

Une bonne soirée et encore merci à voue trois.
 
- 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

  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
108
Réponses
6
Affichages
312
Réponses
12
Affichages
362
Réponses
4
Affichages
167
Retour