Excel macros format de cellule

jean claude -  
 jean claude -
Bonjour,
Je récolte des informations sur internet pour les intègrer à un de mes programmes.
Entre autres informations, une colonne de cellules contenant chacune un temps indiqué comme suit: 2h 12' 35''. Je voudrais trasformer celà en 2:12:35, pour pouvoir l'utiliser dans des calculs.
Merci pour tout aide.
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    après avoir sélectionné les cellules coupables( et uniquement elles), lance cette macro

    Sub transformer_format()
    Dim cellule As Range
    
    For Each cellule In Selection
    tablo = Split(cellule, " ")
        For cptr = 0 To 2
            If Not IsEmpty(cellule) Then
            tablo(cptr) = Left(tablo(cptr), Len(tablo(cptr)) - 1)
            End If
        Next
        cellule = Join(tablo, ": ")
    Next
    End Sub
    0
    1. jean claude
       
      Bonjour michel, et merci de ton aide.
      Je crois avoir copié fidèlement le texte de la macro.
      Je sélectionne la plage concernée, soit avant de lancer la macro, soit dans la macro elle-même. Dans les 2 cas ça bloqe à la ligne tablo(cptr)=Left...
      Il m'est répondu: erreur d'exécution 9 L'indice n'appartient pas à la solution.
      Si tu vois...
      0