Affichage en heure dans textbox lors d'une selection dans listbox

Version imprimable

20/05/2016, 13h21
Valou8u

Affichage en heure dans textbox lors d'une selection dans listbox

Bonjour,

J'aurai besoin d'aide sur un petit point. j'ai chercher sur le forum, j'ai trouvé plusieurs petit truc, mais jamais réussi à mettre en oeuvre ...
Je vous explique : En cliquant sur mon bouton "Nouvelle intervention",mon userform1 s'affiche, on remplis ce qu'il faut, et une nouvelle ligne s'affiche dans mon tableau.
(par exemple crée avec un nom d'intervention, "IS_003".) ensuite, après avoir rajouté cette ligne, je veux, quand je clique sur "Modification intervention", mon userform2, puis ensuite cliquer sur l'intervention "IS_003" dans ma listbox, que mes textboxs "txthdebut" et "txthfin" s'affiche en mode HH:MM.

Le problème, c'est que ces informations s'affiche en mode "STANDARD" dans mes 2 textboxs...

Si quelqu'un a la solution, ce serait top !!

Merci par avance,

Valentin.
20/05/2016, 14h00
casefayere

Bonjour,

essayes ça

Code:

.....= Format(ta cellule, "hh:mm")

re-bonjour,

ça ne marche pas ... et je ne sais pas vraiment ou le placer :S

Voici mon code lorsque je clique dans ma listbox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub lstinterventions_Click()
    Dim i As Integer
    Dim j As Integer
 
    '   Affichage de l'intervention selectionné
    bNouveau = False
    i = lstinterventions.ListIndex + 5
    With ThisWorkbook.Worksheets("Maintenance")
 
        Select Case .Cells(i, 3)
            Case "DIVERS": OptA = True
            Case "TWISTER": optB = True
            Case "SCIE": optC = True
            Case "DATA": OptD = True
            Case "NEW DATA": OptE = True
            Case "GUILLOTINE": OptF = True
            Case "MASSICOT": optG = True
            Case "PLATINE DE DECOUPE": optH = True
            Case "COMPRESSEUR": optI = True
            Case "OEUILLETEUSE": optJ = True
            Case "PLIEUSE": optK = True
            Case "RICHIN": optL = True
            Case "PRESSE T10": optM = True
 
        End Select
            Maintenance.txtintervention = .Cells(i, 1)
            Maintenance.txtdatedebut = .Cells(i, 4)
            Maintenance.txthdebut = .Cells(i, 5)
            Maintenance.txthfin = .Cells(i, 6)
            Maintenance.ComboBox1 = .Cells(i, 8)
            Maintenance.ComboBox2 = .Cells(i, 9)
            Maintenance.txtdescription = .Cells(i, 10)
            Maintenance.lstintervenants = .Cells(i, 2)
 
            For j = 0 To Maintenance.lstintervenants.ListCount - 1
                If Maintenance.lstintervenants.List(j) = .Cells(i, 2) Then
                    Maintenance.lstintervenants.ListIndex = j
                End If
            Next j
        End With
End Sub

20/05/2016, 19h27
casefayere
Tu es sur ?
Code:

1 2 3 ..... Maintenance.txthdebut = Format(.Cells(i, 4), "HH:MM") ....
et tout dépend de ce que tu as dans .Cells(i, 4)
28/05/2016, 23h25
Valou8u

Bonjour,

Merci beaucoup !! ça fonctionne... je n'y avais vraiment pas pensé, mais ça paraissait évident.
Je clique donc sur résolu !!

à bientot

a+