Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Reprendre exactement la valeur dans label

2 réponses
Avatar
Pierre
Bonjour.

Je souhaite reprendre la valeur exacte d'une cellule dans=20
un label.
Car dans la cellule "Le_temps", j'ai 00:00:12
et dans mon label, j'ai 1,3888888888 etc.

Merci beaucoup pour votre aide

Pierre

Private Sub CommandButton1_Click()
th=E8me =3D ActiveCell.Value
le_temps =3D ActiveCell.Offset(0, 1).Value
Le_pr=E9nom =3D ActiveCell.Offset(0, 2).Value
La_date =3D ActiveCell.Offset(0, 3).Value
Label1.Caption =3D "Veux-tu effacer " & th=E8me & _
" " & le_temps & " " & Le_pr=E9nom & " " & La_date
End Sub

2 réponses

Avatar
papou
Bonjour
Utilise la fonction Format
le_temps = Format(ActiveCell.Offset(0, 1).Value,"hh:mm:ss")

Cordialement
Pascal

"Pierre" a écrit dans le message de
news:22c9f01c45daa$c445aaa0$
Bonjour.

Je souhaite reprendre la valeur exacte d'une cellule dans
un label.
Car dans la cellule "Le_temps", j'ai 00:00:12
et dans mon label, j'ai 1,3888888888 etc.

Merci beaucoup pour votre aide

Pierre

Private Sub CommandButton1_Click()
thème = ActiveCell.Value
le_temps = ActiveCell.Offset(0, 1).Value
Le_prénom = ActiveCell.Offset(0, 2).Value
La_date = ActiveCell.Offset(0, 3).Value
Label1.Caption = "Veux-tu effacer " & thème & _
" " & le_temps & " " & Le_prénom & " " & La_date
End Sub
Avatar
Pierre
Merci beaucoup Pascal,
cela fonctionne perafaitement
Bonne journée.
Pierre

-----Message d'origine-----
Bonjour
Utilise la fonction Format
le_temps = Format(ActiveCell.Offset(0,
1).Value,"hh:mm:ss")


Cordialement
Pascal

"Pierre" a écrit dans le message de
news:22c9f01c45daa$c445aaa0$
Bonjour.

Je souhaite reprendre la valeur exacte d'une cellule dans
un label.
Car dans la cellule "Le_temps", j'ai 00:00:12
et dans mon label, j'ai 1,3888888888 etc.

Merci beaucoup pour votre aide

Pierre

Private Sub CommandButton1_Click()
thème = ActiveCell.Value
le_temps = ActiveCell.Offset(0, 1).Value
Le_prénom = ActiveCell.Offset(0, 2).Value
La_date = ActiveCell.Offset(0, 3).Value
Label1.Caption = "Veux-tu effacer " & thème & _
" " & le_temps & " " & Le_prénom & " " & La_date
End Sub


.