pb vba format date

[darkneo51]

Bonjour tout le monde, bon mon appli fait son petit bonhomme de chemin mais là j'ai encore besoin d'aide.

Sur le morceau de code ci-dessous, le textbox est alimenté par un nombre de secondes(exemple=10.8), le format de ma cellule de copie est en : mm:ss,0.
Quoique je tente dans mon code, sur cet exemple, je ressort la valeur 10:50,0 au lieu de 0:10,5.
Et ensuite, si je tente de mettre un nombre de secondes supérieur à 60 alors là j'ai une incompatibilité de type sur cette ligne :If x Is Nothing Then c = CDate(TextBox4.Value);

Bref, si quelqu'un peut encore m'aider.
Merci énormément d'avance.

Dim x As Range
Dim b As Integer
Dim c As Date
Set x = Sheets("TPS moules").Range("A:A").Find(TextBox3.Value, , xlValues, xlWhole, , , False)

If TextBox4 Like "#" Then TextBox4 = TextBox4 & ".0"
If TextBox4 Like "##" Then TextBox4 = TextBox4 & ".0"
If TextBox4 Like "###" Then TextBox4 = TextBox4 & ".0"

'CAS n'existe pas=>ajout d'une nouvelle ligne
If x Is Nothing Then maligne = Range("A65536").End(xlUp).Row + 1
If x Is Nothing Then Sheets("TPS moules").Range("A" & maligne).Value = TextBox3.Value 'COPIE REFERENCE PIECE
If x Is Nothing Then c = CDate(TextBox4.Value)
If x Is Nothing Then Sheets("TPS moules").Range("F" & maligne).Value = c / 60: 'COPIE TEMPS CYCLE

 

[darkneo51]

Re : pb vba format date

Bonjour jpb, comment allez vous?
ce que vous m'avez proposé est ce que j'ai codé d'après la version que vous m'aviez envoyé récemment, mais ça me retourne une valeur qui ne correspond pas.
Je joins à ce message la version actuelle. C'est celle que vous avez conçu et sur laquelle je travaille.
Le souci semble être sur la variable "f" et mon "pos2".

A bientôt

 

[jpb388]

Re : pb vba format date

Bonjour à tous
cela va bien meci et vous la forme.
l'erreur est ici
B = x.Row: A = (Range("F" & B).Text)
Pos2 = InStr((Range("F" & B).Text), ",")
il faut rajouter ce qui est en rouge
le temps en texte c' est 12:12:12 en valeur cela peut donner 0.1425789621354 quelque chose dans ce genre
a+

 

[darkneo51]

Re : pb vba format date

Re,
alors là super !!!
Encore merci, du coup, je vais super bien maintenant.
;-)