Comment afficher le temp d'une cellule au listbox

Bonjour

Je viens vers vous pour un petit coup de pouce.

Comment afficher le temp d'une cellule au listbox

merci de votre aide

Bonjour,

J'ai regardé ton code. Sans être un spécialiste, je pense que le traitement global des données que tu as choisi, ne permet pas d'obtenir le résultat que tu souhaites.

Cette partie de code

ReDim bb(Y - 1, UBound(aa, 2) - 1)
        Y = 1
        For i = 1 To UBound(aa)
            If aa(i, 14) = "oui" Then
                For a = 1 To UBound(aa, 2) - 1
                    bb(Y, a) = aa(i, a)
                Next a
                Y = Y + 1
            End If
        Next i

traite toutes les données à la suite les unes des autres.

Pour mettre au format horaire il faut un format du genre format( la valeur,"hh:mm") ce qui à mon sens n'est pas gérable dans le traitement des données que tu as choisi. Dans ton cas tu obtiens une valeur décimale.

D'autres pourront peut être donner leur avis.

Cordialement

ddetp88

Bonjour

je pense que tu as raison mais je ne sais pas comment ?

si tu as une idee avec plaisir

cdt

bonjour

up

cdt

Bonjour,

Essai ceci :

bb(Y, a) = Application.WorksheetFunction.Text(aa(i, a), "[h]:mm:ss")

Hervé.

Oups,

Attention, il faut gérer l'erreur donc c'est :

On Error Resume Next
bb(Y, a) = Application.WorksheetFunction.Text(aa(i, a), "[h]:mm:ss")

Hervé.

bonjour

j'essai de rentrer votre code mais impossible

il me donne un erreur

tu peux faire un test

cdt

Bonsoir le fil, bonsoir le forum,

Une proposition qui ne me satisfait pas car le format n'est pas respecté pour les temps de fin. J'ai beau utiliser le même format que toi je n'y parviens pas... Peut-être ça t'inspirera...

Le bout de code à modifier :

For i = 1 To UBound(aa)
        If aa(i, 14) = "oui" Then
            For a = 1 To UBound(aa, 2) - 1
                Select Case a
                    Case 7
                        bb(Y, a) = Format(aa(i, a), "0#\ ##\ ##\ ##\ ##")
                    Case 10 To 14
                        bb(Y, a) = Format(aa(i, a), "hh:mm:ss")
                    Case Else
                        bb(Y, a) = aa(i, a)
                End Select
            Next a
            Y = Y + 1
        End If
    Next i

Bonjour

c magnifique

Merci bien de votre aide

Bonjour

le fichier est corrigé

merci bien ThauThème

Bonjour Richi2casa, bonjour le forum,

Pense à gérer l'ordre des tabulations de l'UserForm pour que la TextBox1 soit le contrôle actif à l'ouverture.

Pour cela, dans l'éditeur VBE, affiche l'Userform et clique du bouton droit sur cette dernière, n'importe où sauf dans un de ses contrôles. Choisir l'option Ordre de tabulation. Faire monter la Textbox1 en première position. Valider avec OK.