Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA, combobox: convertir format texte en format nombre

beniboy

XLDnaute Nouveau
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+

Code:
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

XLDnaute Accro
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.

@+
 

Pièces jointes

  • beniboy_test.xlsm
    18.8 KB · Affichages: 703

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…