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 :
Et là j'ai #NOM qui s'affiche dans ma cellule ou j'ajoute la fonction
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
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
Partager