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

Département considéré comme une heure

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Manu91
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Manu91

Guest
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
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Re : Département considéré comme une heure

Re,

Si bien compris, avec un If ça joue..
Code: 
    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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
786
lynyrd
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
  • Résolu(e)
Microsoft 365 Amélioration codage
Réponses
4
Affichages
627
pompaero
A
  • Question Question
XL 2019 Vérifier si une ligne existe dans un autre fichier
Réponses
7
Affichages
904
A-F
A
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
A
  • Question Question
Microsoft 365 Cpier/coller en VBA
Réponses
7
Affichages
818
A-F
A
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
  • Question Question
XL 2019 Combobox depuis une autre feuille
Réponses
11
Affichages
2 K
ChTi160
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
S
  • Résolu(e)
XL 2019 VBA envoyer un mail outlook avec une pièce jointe
Réponses
1
Affichages
2 K
dysorthographie
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
1 K
Lolote83
L
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
2 K
MONADESIGN82
M
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
2 K
gaby.jvx
G
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
F
  • Question Question
XL 2016 Arrêt macro intempestif
Réponses
3
Affichages
1 K
flyingmuad
F
M
  • Question Question
XL 2013 Transformer le format Texte en Date suite à un transfert automatique via VBA
Réponses
3
Affichages
1 K
MgLina
M
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…