Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Séparer les élèments texte.Heure

Séparer les élèments texte.Heure

8 réponses
Avatar
Florian
Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du label afin
de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Florian

Format() est une fonction de VBA, elle n'a rien à voir avec le formatage des cellules d'une feuille de calcul.

En supposant que la variable "Duree" à une valeur numérique

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = duree * CDate("12:00:01")
end with
End if


Salutations!





"Florian" a écrit dans le message de news:
Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du label afin
de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")
Avatar
Florian
Désolé Denis, en fait j'ai besoin de récupérer le temps qui se trouve dans
le label3 mais seulement le temps, afin de l'envoyer dans la cellule.
Il me manque un élément. Au départ, j'ai cela :

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

Je souhaite arriver à qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = frm_table.Label3.Caption duree * #12:00:01 AM#,
"hh:mm:ss")
end with
End if

Merci
Flo riant



"michdenis" a écrit dans le message de
news:
Bonjour Florian

Format() est une fonction de VBA, elle n'a rien à voir avec le formatage
des cellules d'une feuille de calcul.


En supposant que la variable "Duree" à une valeur numérique

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = duree * CDate("12:00:01")
end with
End if


Salutations!





"Florian" a écrit dans le message de
news:

Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du label
afin

de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")






Avatar
michdenis
Je n'ai pas terminé ma phrase ...

En supposant que la variable "Duree" à une valeur numérique positive, si tu dois afficher des valeurs négatives à la
cellule, tu dois utiliser le calendrier 1904 (Barre des menus / outils / options / Calcul / et tu coches l'option
"Calendrier 1904"

En supposant que tu as déjà des dates de saisie dans ton classeur, elles vont se voir gonfler tout d'un coup de 1462 (de
mémoire) jours soit l'écart entre les deux systèmes de dates : 1 janvier 1900 et 1 janvier 1904


Salutations!


"michdenis" a écrit dans le message de news:
Bonjour Florian

Format() est une fonction de VBA, elle n'a rien à voir avec le formatage des cellules d'une feuille de calcul.

En supposant que la variable "Duree" à une valeur numérique

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = duree * CDate("12:00:01")
end with
End if


Salutations!





"Florian" a écrit dans le message de news:
Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du label afin
de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")
Avatar
Florian
Merci Denis, En fait je crois que m'exprime mal, j'en suis désolé.
En fait, j'ai un chrono dans un userform, lorsque celui-ci s'arrête, je veux
envoyer le temps mis dans une cellule en format standard, ceci afin de
simplement visualiser le temps mis.
Au départ, j'ai dans le label3 : Ton temps : 01:26:36

Je désire envoyer dans la cellule seulement 01:26:36
Merci
Flo riant


"michdenis" a écrit dans le message de
news:
Je n'ai pas terminé ma phrase ...

En supposant que la variable "Duree" à une valeur numérique positive, si
tu dois afficher des valeurs négatives à la

cellule, tu dois utiliser le calendrier 1904 (Barre des menus / outils /
options / Calcul / et tu coches l'option

"Calendrier 1904"

En supposant que tu as déjà des dates de saisie dans ton classeur, elles
vont se voir gonfler tout d'un coup de 1462 (de

mémoire) jours soit l'écart entre les deux systèmes de dates : 1 janvier
1900 et 1 janvier 1904



Salutations!


"michdenis" a écrit dans le message de
news:

Bonjour Florian

Format() est une fonction de VBA, elle n'a rien à voir avec le formatage
des cellules d'une feuille de calcul.


En supposant que la variable "Duree" à une valeur numérique

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = duree * CDate("12:00:01")
end with
End if


Salutations!





"Florian" a écrit dans le message de
news:

Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du label
afin

de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")







Avatar
michdenis
Bonjour Florian,

S = Format(#12:00:01 AM#, "H:mm:SS")
S affiche : 00:00:01
S = Une seconde

Les dièses signifie à excel (vba) qu'il doit transformer la date en format Américain

Écrire ceci #12:00:01 AM# c'est comme si tu disais qu'il est minuit et une seconde. Pour vous autres, les Européens,
la façon d'appeler l'heure c'est sur 24 heures. Si il est 17 heures pour vous, il est 5 heures PM pour les américains.
Ils utilisent un cycle de 12 heures. Donc à 12 heures PM = Minuit et 12 Am = Midi.

Si tu tiens a cette forme "Format(#12:00:01 AM#, "H:mm:SS")" , prière de me dire comment tu vas réussir à exécuter ce
que tu désires.


Salutations!




"Florian" a écrit dans le message de news:
Désolé Denis, en fait j'ai besoin de récupérer le temps qui se trouve dans
le label3 mais seulement le temps, afin de l'envoyer dans la cellule.
Il me manque un élément. Au départ, j'ai cela :

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

Je souhaite arriver à qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = frm_table.Label3.Caption duree * #12:00:01 AM#,
"hh:mm:ss")
end with
End if

Merci
Flo riant



"michdenis" a écrit dans le message de
news:
Bonjour Florian

Format() est une fonction de VBA, elle n'a rien à voir avec le formatage
des cellules d'une feuille de calcul.


En supposant que la variable "Duree" à une valeur numérique

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = duree * CDate("12:00:01")
end with
End if


Salutations!





"Florian" a écrit dans le message de
news:

Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du label
afin

de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")






Avatar
michdenis
Bonjour Florian,

S = Format(#12:00:01 AM#, "H:mm:SS")
S affiche : 00:00:01
S = Une seconde

Les dièses signifie à excel (vba) qu'il doit transformer la date en format Américain

Écrire ceci #12:00:01 AM# c'est comme si tu disais qu'il est minuit et une seconde. Pour vous autres, les Européens,
la façon d'appeler l'heure c'est sur 24 heures. Si il est 17 heures pour vous, il est 5 heures PM pour les américains.
Ils utilisent un cycle de 12 heures. Donc à 12 heures PM = Minuit et 12 Am = Midi.

Si tu tiens a cette forme "Format(#12:00:01 AM#, "H:mm:SS")" , prière de me dire comment tu vas réussir à exécuter ce
que tu désires.


Salutations!



"Florian" a écrit dans le message de news:
Désolé Denis, en fait j'ai besoin de récupérer le temps qui se trouve dans
le label3 mais seulement le temps, afin de l'envoyer dans la cellule.
Il me manque un élément. Au départ, j'ai cela :

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

Je souhaite arriver à qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = frm_table.Label3.Caption duree * #12:00:01 AM#,
"hh:mm:ss")
end with
End if

Merci
Flo riant



"michdenis" a écrit dans le message de
news:
Bonjour Florian

Format() est une fonction de VBA, elle n'a rien à voir avec le formatage
des cellules d'une feuille de calcul.


En supposant que la variable "Duree" à une valeur numérique

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = duree * CDate("12:00:01")
end with
End if


Salutations!





"Florian" a écrit dans le message de
news:

Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du label
afin

de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01 AM#,
"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")






Avatar
Hervé
Bonsoir Florian,
Dans ce cas, il te suffit d'extraire ce qui t'intéresse :

Private Sub UserForm_Click()
'12 représente la longueur de la chaine "Ton temps : "
[A1] = Right(Me.Label3, Len(Me.Label3) - 12)
End Sub

Hervé.

"Florian" a écrit dans le message news:

Merci Denis, En fait je crois que m'exprime mal, j'en suis désolé.
En fait, j'ai un chrono dans un userform, lorsque celui-ci s'arrête, je
veux

envoyer le temps mis dans une cellule en format standard, ceci afin de
simplement visualiser le temps mis.
Au départ, j'ai dans le label3 : Ton temps : 01:26:36

Je désire envoyer dans la cellule seulement 01:26:36
Merci
Flo riant


"michdenis" a écrit dans le message de
news:
Je n'ai pas terminé ma phrase ...

En supposant que la variable "Duree" à une valeur numérique positive, si
tu dois afficher des valeurs négatives à la

cellule, tu dois utiliser le calendrier 1904 (Barre des menus / outils
/


options / Calcul / et tu coches l'option
"Calendrier 1904"

En supposant que tu as déjà des dates de saisie dans ton classeur, elles
vont se voir gonfler tout d'un coup de 1462 (de

mémoire) jours soit l'écart entre les deux systèmes de dates : 1 janvier
1900 et 1 janvier 1904



Salutations!


"michdenis" a écrit dans le message de
news:

Bonjour Florian

Format() est une fonction de VBA, elle n'a rien à voir avec le formatage
des cellules d'une feuille de calcul.


En supposant que la variable "Duree" à une valeur numérique

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = duree * CDate("12:00:01")
end with
End if


Salutations!





"Florian" a écrit dans le message de
news:

Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du label
afin

de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01
AM#,


"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")











Avatar
Florian
Merci beaucoup Hervé, en fait, j'ai contourné le pb en créant 2 labels 1 qui
contient "Ton temps:" l'autre qui contient le temps, et c'est cela que
j'extraie, mais là je rencontre un autre pb.
J'ai envoyé une question à l'instant.
Flo riant

"Hervé" a écrit dans le message de
news:%
Bonsoir Florian,
Dans ce cas, il te suffit d'extraire ce qui t'intéresse :

Private Sub UserForm_Click()
'12 représente la longueur de la chaine "Ton temps : "
[A1] = Right(Me.Label3, Len(Me.Label3) - 12)
End Sub

Hervé.

"Florian" a écrit dans le message news:

Merci Denis, En fait je crois que m'exprime mal, j'en suis désolé.
En fait, j'ai un chrono dans un userform, lorsque celui-ci s'arrête, je
veux

envoyer le temps mis dans une cellule en format standard, ceci afin de
simplement visualiser le temps mis.
Au départ, j'ai dans le label3 : Ton temps : 01:26:36

Je désire envoyer dans la cellule seulement 01:26:36
Merci
Flo riant


"michdenis" a écrit dans le message de
news:
Je n'ai pas terminé ma phrase ...

En supposant que la variable "Duree" à une valeur numérique positive,
si



tu dois afficher des valeurs négatives à la
cellule, tu dois utiliser le calendrier 1904 (Barre des menus /
outils



/
options / Calcul / et tu coches l'option
"Calendrier 1904"

En supposant que tu as déjà des dates de saisie dans ton classeur,
elles



vont se voir gonfler tout d'un coup de 1462 (de
mémoire) jours soit l'écart entre les deux systèmes de dates : 1
janvier



1900 et 1 janvier 1904


Salutations!


"michdenis" a écrit dans le message de
news:

Bonjour Florian

Format() est une fonction de VBA, elle n'a rien à voir avec le
formatage



des cellules d'une feuille de calcul.

En supposant que la variable "Duree" à une valeur numérique

If Lbl_type.Caption = "L'addition" Then
with Sheets("Params")
.Range("F1").NumberFormat = "[H]:MM:SS"
.Range("F1").Value = duree * CDate("12:00:01")
end with
End if


Salutations!





"Florian" a écrit dans le message de
news:

Bonjour.
J'essaie depuis un long moment, de récupérer le temps hh:mm:ss du
label



afin
de l'envoyer dans une cellule.
Merci
Flo riant

frm_table.Label3.Caption = "Ton temps : " & Format(duree * #12:00:01
AM#,


"hh:mm:ss")

En fait ce serait qq chose du genre :

If Lbl_type.Caption = "L'addition" Then
Sheets("Params").Range("F1").Value = Format(duree * #12:00:01 AM#,
"hh:mm:ss")