Version imprimable
bonjour a tous
j'ai un petit soucis dont je suis sur que qq'un a la solution car ca doit pas etre grand chose :roll:
dans l' UF j'ai une Cbx qui fait reference a des heures
et lorsque je lance l'UF j'ai des chiffres decimaux?
quelle est la formule magique qui permette de respecter le format de la liste
merci par avance
maoricio
Pas testé mas il me semble me souvenir...Code:Cbx.additem format(variabledécimale,"hh:nn:ss")
Edit
C'est bon
Code:
2
merci pour ta reponse rapide
mais ca marche pas, il y a un truc que je ne dois pas savoir faire
code pour la cbx
code que je dois ajouter ?Code:
2
3
4
5
6
7
8
9
thanksCode:
2
3
4
5
6
Pour renseigner ton combo,
Dans le "If" je vérifie que cellule contient bien quelque chose et que ce quelque chose est bien décimal. On pourrait aussi vérifier que c'est bien un nombre (cnum(Cellule))Code:
2
3
4
pour Coll.Add Cellule, CStr(Cellule), je ne comprends pas ce que tu fais...
A+
merci ca fonctionne mais ...
j'ai bien ce que je voulais sauf qu'en plus des heures de la liste il a aussi ajouté les memes valeurs mais en decimalCode:
2
3
4
5
6
7
8
9
10
11
donc j'ai dans la cbx 8H00 et 0,33 etc...
Si tu mets
c'est normal qu'il t'ajoute le nombre décimal, mon code à moi ne contient pas d'erreur... ;)Code:
2
3
Tu ne m'as toujours pas dit à quoi servait la deuxième Coll.add
hummm je sais pas !! :oops:
j'ai recupere d'un collegue qui n'est plus la
tout marche super bien sauf qu'on m'a demandé de rajouter une cbx heure et je galere :cry:
le probleme est que si je vire ce qui est en rouge
il ne lance plus la macro, il me dit qu'il manque des with des end ...Code:
2
3
4
5
6
7
8
9
10
11
12'Liste des heures For Each Cellule In .Range("P2:P" & .Range("P100").End(xlUp).Row) If Cellule <> "" And InStr(Cellule, ".") <> 0 Then _ Me.CBxheure.AddItem Format(Cellule, "hh:mm") On Error Resume Next Coll.Add Cellule, CStr(Cellule) If Err = 0 Then Me.CBxheure.AddItem (CStr(Cellule)) End If On Error GoTo 0 Next Cellule Set Coll = Nothing
enfin ca marche plus !!
Ok, alors dis-moi ce qu'il y a, ailleurs dans ton code, après
Set Coll = (ici autre chose que NoThing)
Pour le code, supprime simplement la gestion d'erreur
mets les trois ligne en rouge en remarque, comme je l'ai faitCode:
2
3
4
5
6
7
8
9
10
11For Each Cellule In .Range("P2:P" & .Range("P100").End(xlUp).Row) If Cellule <> "" And InStr(Cellule, ".") <> 0 Then _ Me.CBxheure.AddItem Format(Cellule, "hh:mm") On Error Resume Next Coll.Add Cellule, CStr(Cellule) 'If Err = 0 Then 'Me.CBxheure.AddItem (CStr(Cellule)) 'End If On Error GoTo 0 Next Cellule Set Coll = Nothing
il y a que des set coll= nothing
il y en a une dizaine dans tout le code
c'est un code qui fait au moins 500 lignes peut etre meme plus
si je mets en rouge en remarque ca ne marche pas non plus
Edit
Je viens de comprendre quelque chose
Ce que "veut faire" ton code : Si tu as une erreur dans le format (par exemple que ta cellule ne contient pas un nombre), il met le contenu de la cellule dans le combo sans le formater.
On modifie le code
Quant à Coll.add, c'est peut-être une "bidule" pour récupérer les erreurs (?????) tu testes ce qui convient le mieuxCode:
2
3
4
5
6
7
8
9
10
il y a un truc qui ne passe pas
j'ai fais ce que tu m'as dit mais j'ai toujours le meme pb
le mieux que je puisse avoir, c'est l'heure et la version decimale
comment ca se fait qu'il ne prenne pas la liste telle quelle ce serait plus simple
Tu dois avoir un code ailleurs qui fait ça
Donne la totalité de la procédure et donne moi l'instanciation de Coll
Set Coll = Quelque chose autre que Nothing
Donne également les déclarations (Dim .... )
Tant qu'on ne sait pas ce qu'est Coll, on parle dans le vide.
Il est possible qu'une colonne soit ajoutée et que dans cette colonne il ajoute le nombre décimal.
A+
j'ai fait rechercher pour etre sur de ne pas louper un SET COLL
et tous sont set coll=nothing
en ce qui concerne les dim les voila
en esperant que ca peut aiderCode:
2
3
encore merci
Même dans le module qui ouvre l'userform ?
ben oui
j'ai a nouveau fait une recherche mais rien de rien
set coll=nothing
N'as-tu pas un module, une macro, quelque chose qui porte ce nom ? Parce que sinon, cette ligne
n'a rien à faire dans ton code.Citation:
Coll.Add Cellule, CStr(Cellule)
PS - J'allais oublié... Bienvenue sur le forum ! :yaisse2:
NB - Comme tu es tout neuf, je te donne un conseil que tu trouverais dans les règles du forum : Quand tu poses une question, sois le plus précis possible.
Dans chaque question que tu nous as posée, tu en as rejouté une couche une fois la réponse reçue.
Dans l'autre discussion que tu as ouverte, tu nous aurais tout de suite précisé : "Comment formater une date prise dans une variable", associée à un exemple de contenu de cette variable, nous étions trois à être prêts à te répondre.
En outre, en cas d'erreur, précise le message d'erreur et la ligne de code, ça facilite la compréhension ;)
Bon courage pour la suite
ce qui est etonnant c'est qu'elle apparait plusieurs fois environ X10
c'est genant ?
je veux juste avoir les heures moi c'est tout 8O
disons que j'ai un tableau qui recap toutes les infos recoltées dans l'userform
encore merci de te pencher sur mon cas
Ça t'ennuierais de joindre le fichier ? Tu le "zippes" et tu le mets en pièce jointe (icône trombone) parce que là, je cale.
Tu dis