VBA script qui ne donne pas le bon résultats

Bonjour.

J'ai essayé de faire un script qui met une cellule à un format donné : hh:mm:ss,0 mais il y a longtemps que je n'ai plus fait de VBA et mon script qui prend une cellule en argument me renvoit une erreur quand je l'utilise.

Est ce que vous pourriez m'indiquer les erreurs que j'ai commises ?

Function FORMAT_Duree(duree As Range)

Dim nb As Integer
nb = Len(duree.Interior.Value)

    ' si la longueur est inferieure à 10 caracteres
    If nb < 10 Then
        'si la longueur est égale à 3 caractère, on rajoute 00:00: devant
        If nb = 3 Then duree.Interior.Value = "00:00:0" & duree.Interior.Value
        ElseIf nb = 4 Then duree.Interior.Value = "00:00:" & duree.Interior.Value
        ElseIf nb = 6 Then duree.Interior.Value = "00:0" & duree.Interior.Value
        ElseIf nb = 7 Then duree.Interior.Value = "00:" & duree.Interior.Value
        End If
    'End If

End Function

Bonjour,

If nb = 3 Then duree = Format(duree, "00:00:0")

Bonjour,

J'ai essayé de faire un script qui met une cellule à un format donné : hh:mm:ss,0

Sub FORMAT_Duree()
    ActiveCell.NumberFormat = "hh:mm:ss.0"
End Sub

Cordialement.

Merci.

Mais là, je suis vraiment nul.

Je n'arrive pas à appeler mon sub depuis la feuille excel, je ne vois la procédure :

Sub FORMAT_Duree_s(cell As Range)
    cell.NumberFormat = "hh:mm:ss.0"
End Sub

Quant à ma fonction, toujours en erreur :

Function FORMAT_Duree_f1(duree As Range)

    'duree = Format(duree, "hh:mm:ss,0")
    duree = Format(duree, "00:00:00,0")

End Function

Du coup, je vais me coucher.

Encore merci.

pouvez vous joindre votre fichier excel ?

Bonsoir,

Je te fournis une procédure que tu peux appeler... et tu persistes avec une autre que tu ne peux appeler, ou avec une fonction inadéquate dans ton cas !

Salut Isabelle...

Bonjour sabV.

Je vous remercie de votre aide, je vous mets en pj le xls brut.

Oops, je n'y arrive pas : Erreur HTTP.

Bonjour MFerrand.

Je n'arrive pas à trouver ta procédure non plus quand je fais fonction / fonctions personnalisées ?

J'ai visiblement perdu mes bases en VBA.

J'aime bien la dérision et l'auto dérision mais je ne connais pas Isabelle, peux tu me rencarder ?

La macro, c'est toi qui l'écrit (ou copie-colle) le code dans ton classeur, dans un module. Puis tu lui affectes un raccourci clavier qui te permet de la lancer plus rapidement pour mettre au format ta cellule active...

Si tu ne l'insères pas, elle n'y sera pas.

Une Sub dotée d'argument ne peut être lancée directement, elle doit l'être par une autre procédure qui peut lui passer les arguments. Une fonction personnalisée de feuille de calcul est destinée à renvoyer un résultat dans la cellule où elle est placée, comme toute autre fonction Excel.

Bonjour.

Je refais une tentative pour joindre mon fichier excel.

Bonjour,

Où est le problème ?

Bonjour Alain,

Salut Isabelle...

Alain : « Mais qu'est-ce qu'ils ont tous à m'appeler Isabelle ? »

@Alain

Non, non, MFerrand (salut) et moi, on ne se moque pas de toi ! mais vois-tu, il y a parfois des coïncidences étranges dans la vie : on peut parler à une personne sans la connaître, surtout pour peu qu'on n'ait pas pris la peine de lire sa signature.

[quote="Le 5 mai à 13:35, Alain"]

Bonjour sabV.

Bonjour MFerrand.

J'aime bien la dérision et l'auto dérision mais je ne connais pas Isabelle, peux tu me rencarder ?

[/quote]

Regarde la signature d'un des messages de sabV, tel que celui-ci :

https://forum.excel-pratique.com/viewtopic.php?p=647655#p647655

@Isabelle

J'pense pas avoir trahi un secret, n'est-ce pas ? tu m'en voudras pas, hein ?

dhany

Ouaf ! J'avais pas vu la chose ! Merci Dhany...

Bonjour Alain, MFerrand, dhany,

@MFerrand

Merci d'avoir pris la relève

@dhany

J'pense pas avoir trahi un secret, n'est-ce pas ? tu m'en voudras pas, hein ?

pas du tout, regarde ici:

https://forum.excel-pratique.com/viewtopic.php?f=29&t=97233

@Alain

est ce que le problème est résolu ?

Alain s'est recouché ! Bon ! moi j'ai déplacé une nuit sur l'après-midi, j'ai donc un petit délai mais je ferai la suivante sur la nuit tout de même !

Salut MFerrand,

tu es sur un décalage horaire ?

Bonne nuit et fait de beau de rêve

Merci, j'essaierai. Nous avons 8 heures d'écart si je ne fais pas erreur...

Mais comme je ne suis pas des horaires "normalisés"...