Programme fonction "conversion" à partir de données "horaires"

  • Initiateur de la discussion Initiateur de la discussion christof.rmc
  • Date de début Date de début

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 !

C

christof.rmc

Guest
Bonjour à toutes et tous,

Je viens vers vous car je souhaiterais transformer un fichier avec la fonction convertir afin de diviser ma cellule en plusieurs parties. Or je voudrais effectuer les séparations après des indications horaires contenues dans ces mêmes cases. Par exemple : 10:05:07 "mettre ici un marqueur pour que la fonction convertir repère qu'il faut faire ici la séparation" puis avoir le texte sur la case d'après.
Pour être plus clair j'ai ajouté un fichier qui présente le résultat de départ et celui d'arrivée.

Par avance merci beaucoup pour votre aide, n'étant pas un pro de la programmation en VBA.

Bien cordialement

Christophe
 

Pièces jointes

Re : Programme fonction "conversion" à partir de données "horaires"

Bonjour christof.rmc, tototiti2008,

J'avais aussi planché un peu dessus donc voici mon essai :

VB:
Sub Tri(c As Range)
    Dim temp() As String
    temp = Split(c.Value, " ")
    Dim i As Integer, j As Integer
    i = 0
    For k = 0 To UBound(temp)
        If temp(k) Like "??:??:??" Then
            c.Offset(0, Range("IV" & c.Row).End(xlToLeft).Column - 1).Value = temp(k)
            i = k + 1
            If k = UBound(temp) Then
                Exit For
            End If
            j = Range("IV" & c.Row).End(xlToLeft).Column - 1
            Do
                c.Offset(0, j).Value = c.Offset(0, j).Value & temp(i) & " "
                i = i + 1
            Loop Until temp(i) Like "??:??:??" Or i >= UBound(temp)
        End If
    Next k
    c.Delete
End Sub

Bonne journée.
 
Re : Programme fonction "conversion" à partir de données "horaires"

Bonjour,

Un exemple d'approche à utiliser :en C4 : =GAUCHE(B4;8) et en D4 : =SUPPRESPACE(SUBSTITUE(B4;GAUCHE(B4;8);""))

Mais la demande est complexe pour être favorablement exploitée !
 

Pièces jointes

Re : Programme fonction "conversion" à partir de données "horaires"

Un grand merci à tous les deux pour votre gentillesse et votre rapidité. C'est exactement ce dont j'avais besoin.
Encore merci pour tout
Christophe
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Retour