Discussion :

[kurul1]

Bonjour à tous

Je cherche à créer une fonction personnalisé pour convertir des secondes en Minutes:Secondes

Pour les calculs je n'ai pas de souci mais c'est pour la création de ma fonction que cela coince

Je fait Alt + F11 pour arriver dans l'éditeur VBA
ensuite je cré un module et dans ce module je colle ma fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Function MS(Cell As Range)
 
    'On récupère la valeur de la cellule
    Sec = Cell.Value
 
    ' On calcule les minutes
    M = arrondi.inf(Sec / 60)
 
    ' On calcule le reste
    Reste = M Mod 60
 
    'Si Minute est différente de 0
    If M > 0 Then
        ' On retranche les minutes au reste
        Reste = Reste - M
    End If
 
    ' On calcule les secondes
    S = Reste * 60
 
    ' On construit la valeur de Retour
    MS = CStr(M) & ":" & CStr(S)
End Function

Et là j'ai #NOM qui s'affiche dans ma cellule ou j'ajoute la fonction

Est-ce que quelqu'un voit d'ou viens le problème, je suis novice en VB donc j'ai un peu de mal

Merci d'avance pour votre aide

[casefayere]

bonjour,
tes variables sont'elles déclarées ?

[kurul1]

Déjà Erreur de ma part, non je les avais pas déclaré, ce que je viens de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Function MS(Cell As Range)
 
    Sec As Integer
    M As Integer
    Reste As Double
    S As Integer
    MS As String
 
    ' On récupère la valeur de la cellule
    Sec = Cell.Value
 
    ' On calcule les minutes
    M = arrondi.inf(Sec / 60)
 
    ' On calcule le reste
    Reste = M Mod 60
 
    'Si Minute est différente de 0
    If M > 0 Then
        ' On retranche les minutes au reste
        Reste = Reste - M
    End If
 
    ' On calcule les secondes
    S = Reste * 60
 
    ' On construit la valeur de Retour
    MS = CStr(M) & ":" & CStr(S)
End Function

Mais toujours la même erreur #NOM

[casefayere]

et le dim

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Dim sec, M, Reste, S

[kurul1]

J'ai changé et toujours pareil

En fait je viens d'essayer d'ajouter ma fonction sur une cellule en cliquant sur le F et cela me met Cette fonction ne possède pas d'argument

[mayekeul]

bonjour,

le module est-il dans le classeur ou tu entres la formule?

[kurul1]

Normalement oui, ca me rajoute un Module1 dans l'éditeur de texte sous WBAProject (Nomfichier.Xls)

[mayekeul]

essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=nomduclasseur.xls!MS(A1)

[kurul1]

Toujours pareil

Voici le code modifié avec Dim

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Function MS(Cell As Range)
 
    Dim Sec, M, Reste, S
 
    ' On récupère la valeur de la cellule
    Sec = Cell.Value
 
    ' On calcule les minutes
    M = arrondi.inf(Sec / 60)
 
    ' On calcule le reste
    Reste = M Mod 60
 
    'Si Minute est différente de 0
    If M > 0 Then
        ' On retranche les minutes au reste
        Reste = Reste - M
    End If
 
    ' On calcule les secondes
    S = Reste * 60
 
    ' On construit la valeur de Retour
    MS = CStr(M) & ":" & CStr(S)
End Function

[pgz]

Bonjour.

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function MS(ByVal Sec as integer) as string
 
  Dim    M As Integer, ...
 
        ' On calcule les minutes
    M = Sec \ 60
    Reste = Sec Mod 60
...

Cordialement,

PGZ

[mayekeul]

je vois une double déclaration

donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function MS(Cell As Range) As String
 
    Dim Sec, M, Reste, S
 
    ' On récupère la valeur de la cellule
    Sec = Cell.Value
 
    ' On calcule les minutes
    M = Fix(Sec / 60)
 
    ' On calcule le reste
    Reste = M Mod 60
 
    'Si Minute est différente de 0
    If M > 0 Then
        ' On retranche les minutes au reste
        Reste = Reste - M
    End If
 
    ' On calcule les secondes
    S = Reste * 60
 
    ' On construit la valeur de Retour
    MS = CStr(M) & ":" & CStr(S)
End Function

[kurul1]

Merci à vous pour votre aide.

En fait je me suis aussi planté dans les calculs voilà pourquoi après avoir fait vos corrections, j'avais des trucs bizarres.

Au final voilà ce que cela donne avec mes corrections et l'ajout des 0 quand les minutes ou secondes sont inférieures à 10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Function MS(Cell As Range) As String
    Dim Sec, M, S
 
    ' On récupère la valeur de la cellule
    Sec = Cell.Value
 
    ' On calcule les minutes
    M = Fix(Sec / 60)
 
    ' On calcule les secondes
    S = Sec Mod 60
 
    ' Si les minutes sont inférieures à 10
    If (M < 10) Then
        ' On ajoute un 0 devant
        MS = "0"
    End If
 
    ' On ajoute les minutes
    MS = MS & CStr(M)
 
    ' On ajoute le séparateur
    MS = MS & ":"
 
    ' Si les secondes sont inférieures à 10
    If (S < 10) Then
       ' On ajoute un 0 devant
       MS = MS & "0"
    End If
 
    ' On ajoute les secondes
    MS = MS & CStr(S)
End Function

[AlainTech]

Bonjour à tous,

Bien compliquée, la fonction alors qu'il suffit de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1/86400

dans la cellule de destination et de mettre cette dernière au format Heure.
Dans l'exemple, A1 est la cellule contenant les secondes et 86400 est le nombre de secondes dans une journée.

[mercatog]

une autre possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function SECMN(ByVal sc As Integer)
SECMN = Format(TimeSerial(0, 0, sc), "nn:ss")
End Function