Discussion :

[Valou8u]

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.

[casefayere]

Bonjour,

essayes ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Valou8u]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Tu es sur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.....
Maintenance.txthdebut = Format(.Cells(i, 4), "HH:MM")
....

et tout dépend de ce que tu as dans .Cells(i, 4)

[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+