macro Conversion nombre en minutes seconde

[zbig]

Bonjour

je cherche à faire une macro qui fonctionnerait dans les colonnes F, G , H qui correspondent à des temps en min sec.
En fait si je veux mettre 1min23 dans ces colonnes , je tape au clavier 123 et la macro indiquerait 1:23
Est ce possible?

merci

 

[Victor21]

Re : macro Conversion nombre en minutes seconde

Bonsoir.

Je n'ai malheureusement pas le nom de l'auteur de ce code, à adapter pour les colonnes F,G et H.
A coller dans le module de la feuille concernée :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim HeurNum As String
    Dim HeurHeur As String
    Dim LongSaisie As Integer

    If Not Intersect(Target, Range("Heures")) Is Nothing Then
        'Si on saisit une formule, on sort
        If Target.HasFormula Then Exit Sub
        
        'Si on saisit du texte, on sort
        If IsNumeric(Target.Value) = False Then Exit Sub

        On Error Resume Next
        Application.EnableEvents = False

        'Initialisation des variables
        HeurNum = Target.Value
        LongSaisie = Len(HeurNum)

        'Test de la longueur de la chaîne saisie
        If LongSaisie = 1 Then
            HeurNum = "000" & HeurNum
        ElseIf LongSaisie = 2 Then
            HeurNum = "00" & HeurNum
        End If
        'Initialisation de la variable retournée
        HeurHeur = Left(HeurNum, Len(HeurNum) - 2) & ":" & Right(HeurNum, 2)

        'Modification de la valeur saisie
        Target = HeurHeur
        Application.EnableEvents = True
        On Error GoTo 0
          Else
    End If


End Sub

 

[zbig]

Re : macro Conversion nombre en minutes seconde

Bonjour Patrick

Et comment dois je faire pour que cela fonctionne sur les colonne F G H?
merci
Zbig

 

[haonv]

Re : macro Conversion nombre en minutes seconde

Bonsoir a tous,

Remplace "Heures" par "F:H" dans:

If Not Intersect(Target, Range("Heures")) Is Nothing Then

Ou si tu ne te sers pas des valeurs de ces colonnes, tu peux mettre simplement un format personnalisé dans tes cellules:

0":"0#

Amicalement

 

[zbig]

Re : macro Conversion nombre en minutes seconde

Bonjour
Apparemment , ça ne fonctionne pas avec cette macro.
j'additionne les colonnes F G H dans I
j'ai mis un fichier en pj

Zbig

 

[Victor21]

Re : macro Conversion nombre en minutes seconde

RE,

Et en mettant le code de cette procédure événementielle dans le module de la feuille où se produit l'événement ?

Attention, à adapter : cette macro transforme 123 en 1h23, et non pas 1mn et 23 sec.
Exemple d'adaptation pour transformer 123 en 1mn 23 sec :

'Initialisation de la variable retournée
       HeurHeur = 0 & ":" & Left(HeurNum, Len(HeurNum) - 2) & ":" & Right(HeurNum, 2)

 

[Victor21]

Re : macro Conversion nombre en minutes seconde

Re,

Ce code permet la saisie de 1 à 6 chiffres, qui seront transformés en hh:mm:ss. L'affichage dépendra du format de nombre choisi :

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim HeurNum As String
    Dim HeurHeur As String
    Dim LongSaisie As Integer

    If Not Intersect(Target, Range("F:H")) Is Nothing Then
    'Si on saisit une formule, on sort
        If Target.HasFormula Then Exit Sub

    'Si on saisit du texte, on sort
        If IsNumeric(Target.Value) = False Then Exit Sub

        On Error Resume Next
        Application.EnableEvents = False

    'Initialisation des variables
        HeurNum = Target.Value
        LongSaisie = Len(HeurNum)

    'Test de la longueur de la chaîne saisie
        If LongSaisie = 1 Then
            HeurNum = "00000" & HeurNum
        ElseIf LongSaisie = 2 Then
            HeurNum = "0000" & HeurNum
        ElseIf LongSaisie = 3 Then
            HeurNum = "000" & HeurNum
        ElseIf LongSaisie = 4 Then
            HeurNum = "00" & HeurNum
        ElseIf LongSaisie = 5 Then
            HeurNum = "0" & HeurNum
        ElseIf LongSaisie = 6 Then
            HeurNum = HeurNum
        End If
    'Initialisation de la variable retournée
        HeurHeur = Left(HeurNum, 2) & ":" & Mid(HeurNum, 3, 2) & ":" & Right(HeurNum, 2)

    'Modification de la valeur saisie
        Target = HeurHeur
        Application.EnableEvents = True
        On Error GoTo 0
    Else
    End If

End Sub

 

[zbig]

Re : macro Conversion nombre en minutes seconde

Bonjour

Un nombre à 4 chiffres suffit = "0000"
si je rentre dans une cellule un nombre sans decimal
1 = 1sec résultat affiché =>00:01
10= 10sec => 00:10
100=1min00sec = > 01:00
1000=10min00=> 10:00

le format final est donc "mm:ss".

Zbig

 

[zbig]

Re : macro Conversion nombre en minutes seconde

Bonjour
ça fonctionne
je viens de comprendre que je mettais le vba dans un module et pas dans la feuille
merci
zbig