VBA, combobox: convertir format texte en format nombre

[beniboy]

BOnjour,

j'ai ma combobox4 qui me permet d'indiquer un nombre de personnes (de 1 à 20). Lors de la validation de ce userform, le numéro choisi apparait dans la cellule excel en format TEXTE.
Il me faut cliquer dans la cellule pour que cela soit convertit en format NOMBRE.

Comment puis je effectuer la conversion directement via le code VBA ?
J'ai le meme probleme de format avec les dates et les heures.

merci pour le coup de main.
a+

Private Sub UserForm_Initialize()
Dim tablo(), derligne As Integer
Dim tablonb(), derlignenb As Integer
    'spécifie la date du jour lors de l'affichage de l'USF
    MonthView1.Value = Now
    With Feuil2
        derligne = .Range("B65536").End(xlUp).Row
        derlignenb = .Range("D65536").End(xlUp).Row
        ReDim tablo(3 To derligne)
        ReDim tablonb(3 To derlignenb)
        For i = 3 To derligne
            tablo(i) = Format(.Range("B" & i), "hh:mm")
        Next i

        ComboBox3.List = tablo
        For n = 3 To derlignenb
            tablonb(n) = .Range("D" & n)
        Next n
        ComboBox4.List = tablonb
    End With
    
End Sub

 

[xhudi69]

Re : VBA, combobox: convertir format texte en format nombre

Bonsoir beniboy , le Forum,

en PJ un petit fichier avec les bons codes pour nombres et dates.

@+

 

[beniboy]

Re : VBA, combobox: convertir format texte en format nombre

merci !! parfait !!