Problème de format dans une boucle

[karinette]

Bonjour à tous ...
J'ai un petit soucis de format dans une boucle. Voici l'initialisation de l'USF :

Private Sub UserForm_Initialize()
With Sheets("PROG")
Lig = ActiveCell.Row
For i = 1 To 10
If (i = 1 Or i = 2 Or i = 3 Or i = 4 Or i = 5 Or i = 7 Or i = 8 Or i = 9 Or i = 10) And .Cells(Lig, i) <> "" Then
Me.Controls("TextBox" & i) = .Cells(Lig, i)
ElseIf (i = 6) And .Cells(Lig, i) <> "" Then
Me.Controls("comboBox" & i) = .Cells(Lig, i)
End If
Next i
End With
End Sub

Tout fonctionne parfaitement, seulement le Textbox3 appelle une cellule au format speciale, qui cumule des heures ([hh]:mm) et mon problème est le suivant :
Je n'arrive pas à recuperer la valeur exacte dans le textbox.
Exemple : pour une valeur de 156:15, j'ai 6,51092592592613 😕

J'avoue être un peu depassée ...

Merci d'avance.

 

[job75]

Re : Problème de format dans une boucle

Bonjour karinette,

En écrivant :

Me.Controls("TextBox" & i) = .Cells(Lig, i)[COLOR="Red"].Text[/COLOR]

la TextBox prendra la valeur affichée dans la cellule 🙂

Nota : le format heure [h]:mm n'existe pas en VBA...

A+

 

[karinette]

Re : Problème de format dans une boucle

Merci beaucoup (quelle rapidité !!!), ça fonctionne à merveille ...

 

[ROGER2327]

Re : Problème de format dans une boucle

Bonjour karinette

Essayez :

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
   With Sheets("PROG")
      Lig = ActiveCell.Row
      For i = 1 To 10
         If (i = 1 Or i = 2 Or i = 3 Or i = 4 Or i = 5 Or i = 7 Or i = 8 Or i = 9 Or i = 10) And .Cells(Lig, i) <> "" Then
            Me.Controls("TextBox" & i) = .Cells(Lig, i)
         ElseIf (i = 3) And .Cells(Lig, i) <> "" Then
            Me.Controls("TextBox3") = .Cells(Lig, 3).Text
         ElseIf (i = 6) And .Cells(Lig, i) <> "" Then
            Me.Controls("comboBox" & i) = .Cells(Lig, i)
         End If
      Next i
   End With
End Sub[/B][/COLOR]

ou

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
   With Sheets("PROG")
      Lig = ActiveCell.Row
      For i = 1 To 10
         If .Cells(Lig, i) <> "" Then
            Select Case i
               Case 3: Me.Controls("TextBox3") = .Cells(Lig, 3).Text
               Case 6: Me.Controls("comboBox6") = .Cells(Lig, 6)
               Case Else: Me.Controls("TextBox" & i) = .Cells(Lig, i)
            End Select
         End If
      Next i
   End With
End Sub[/B][/COLOR]

ROGER2327
#3008


__________
Bonjour job75.