Département considéré comme une heure

[Manu91]

Bonsoir,

Je réalise un prog où je récupère la liste des départements que j'installe dans un combobox.
Cette liste est située dans une feuille excel col1: indicatif, col2: nom du dep, l'ensemble du tableau étant nommé "Départements".

Dim i As Integer
i = 2
c = "0"

'met tous les départements dans le combo
Do While c <> ""

With Worksheets("BDD").Range("Départements")
c = .Cells(i, 1)
test = Format(.Cells(i, 1), "0#") & " - " & .Cells(i, 2) 'ligne pour le test
CB_dep.AddItem Format(.Cells(i, 1), "0#") & " - " & .Cells(i, 2)
i = i + 1
End With
Loop

CB_dep.ListIndex = 0


Tout va bien SAUF pour la Corse... (volonté d"'indépendance ????) en effet, le département "2A", ressort "00"...
2A serait considéré par Excel (version 2007) équivalent à 2 AM ....
J'ai beau tourné ça dans tous les sens, je ne m'en sors pas....

Quelqu'un a une idée ????

Merci d'avance

 

[Hulk]

Re : Département considéré comme une heure

Slt,

Sans conviction, essaie de placer .Text à la fin de tes Cells...

c = .Cells(i, 1).Text

.

 

[Manu91]

Re : Département considéré comme une heure

bonsoir,

Marche pas.... j'avais déjà essayé....

Mais merci !

 

[gfortin9]

Re : Département considéré comme une heure

Allô!

Est-ce que la cellule qui contient 2A, pour la Corse, est une cellule qui sera statique?

Si oui, on pourrait ajouter une condition qui écrirait 2A au lieu de le lire dans la cellule et que ce soit mal interprété.

gf

 

[Hulk]

Re : Département considéré comme une heure

Re,

Si bien compris, avec un If ça joue..

    Do While c <> ""
    
        With Worksheets("BDD").Range("Départements")
            c = .Cells(i, 1)
            'test = Format(.Cells(i, 1), "0#") & " - " & .Cells(i, 2)
            If c > 9 Then
                CB_dep.AddItem .Cells(i, 1) & " - " & .Cells(i, 2)
            Else
                CB_dep.AddItem Format(.Cells(i, 1), "0#") & " - " & .Cells(i, 2)
            End If
            i = i + 1
        End With
    Loop