1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

besoin d'aide pour modification formule vba

Discussion dans 'Forum Excel' démarrée par marleauc, 8 Janvier 2019.

  1. marleauc

    marleauc XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2005
    Messages :
    264
    "J'aime" reçus :
    0
    RÉSOLU MERCI

    bonjour voici mon défi, j'aimerais modofier le format heure pourqu"il n"y ait pas de :)) entre ;es HH et MM
    j'aimerai 1200 et non 12:00 dans ma dbase est ce possible ou modier le code pourque le textbox4 soit en numerique
    voici la commande
    Function Saisie_heure(S As String) As String
    Select Case Len(S)
    Case 1: If S = "" Then S = ""
    Case 2: If Mid(S, 2, 1) = "" Then S = "0" & S Else S = S & ""
    Case 4: If Mid(S, 4, 1) = "" Then S = Left(S, 3)
    Case 5: If Mid(S, 5, 1) = "" Then S = Left(S, 4)
    End Select
    Saisie_heure = S
    End Function


    Function H_decode(Sn As Variant) As String
    Dim S As String
    S = Replace(CStr(Sn), ",", "")
    If Mid(S, 2, 1) = "" Then S = "0" & S
    If Left(Right(S, 2), 1) = "" Then S = S & "0"
    H_decode = Format(CDate(S), "hhnn")
    End Function


    ' code heure vers database, permet h>23:59
    Function CodeH(S As String) As Single
    Dim T() As String
    CodeH = 0
    If Not S = "" Then
    T = Split(S, "")
    CodeH = (T(0) * 1) + CSng(CDate("nn" & T(1))) * 24
    End If
    End Function


    ' lecture heure d'un database, permet h>23:59
    Function DecodeH(S As Single) As String
    DecodeH = IIf(S > 24, Int(S) & Format((S - 24) / 24, "nn"), Format(S / 24, "hhmm"))
    End Function
    merci christian
     
    Dernière édition: 8 Janvier 2019
  2. Chargement...

    Discussions similaires - besoin d'aide modification Forum Date
    XL 2013 besoin d'aide pour modification code VBA Forum Excel 18 Octobre 2016
    Besoin d'aide modification fichier. Forum Excel 19 Septembre 2015
    Besoin d'aide pour la modification d'une macro, pas très compliqué à première vue. Forum Excel 13 Février 2012
    besoin d'aide modification se fait sur ts les clients Forum Excel 28 Septembre 2009
    besoin d'aide sur quelque petite modification Forum Excel 23 Janvier 2009

Partager cette page