listboxRésolu

Question

Bonsoir,
Voici mon soucis!
j'ai cr&#233;er 1 planning pour plusieurs employ&#233;s, 1 feuille = 1 employ&#233; et donc sur chaque feuille plusieurs tableaux repr&#233;sentant les jours de la semaine du lundi au samedi, donc 1 tableaux pour chaque semaine jusqu'a la fin de l'ann&#233;e.
donc j'ai fait un userform avec listbox. D&#233;ja comment entrer toutes les dates de l'ann&#233;e dans ma liste box???
ensuite se que je voudrais c'est que quand je clique sur une date la cellule qui contient cette date s'active ou plutot que le curseur vienne dessus.
sachant que les dates d'une semaine sont en ligne (exemple en a5=03/04/06 - b5=04/04/06 - c5=05/06 ceci jusqu'au samedi et de la on repart sur un autre tableaux et &#231;a recommence a20 =...  - b20=.....).
j'avous etre d&#233;butante cela fait 15 jours que je cherche mais rien!!! je m'arrage les cheveux c'est tout se que j'arrive a faire en ce moment!!!!
merci d'avance pour tous ceux qui peuvent me trouver la solution!!!


tania

clementio · Accepted Answer

Son nom est le "MSCOMCT2.OCX" mais de toute façon il est installé par défaut avec VB6. Par contre, il faut tout de même que tu ais installé le Service Pack 6...

clementio · Answer

A mon avis, le plus facile serait d'utiliser un contrôle DTPicker ou MonthView. Pour les ajouter, va dans composants puis choisis Microsoft Windows Common Controls-2 6.0.

Bon courage...

mortalino · Answer

Salut,

Absolument d'accord avec Clementio :
ajoute le contrôle DTPicker (Date and Time Picker), puis

Private Sub DTPicker1_CloseUp()
With Worksheets(1).Cells
    Set c = .Find(DTPicker1.Value)
    If Not c Is Nothing Then
    MsgBox c & " - " & DTPicker1.Value & " - " & Range("d22").Value
        c.Select
    Else
        MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation
    End If
End With

End Sub

Ca devrait fonctionner

@ ++

Mortalino

tanya40 · Answer

bonjour a tous 
j'ai recherch&#233; dans mes controles, autre controle le dt picker mais je ne l'ai pas . ou puis-je le trouver l'installer???


tania

tanya40 · Answer

salut,
merci de m'avoir r&#233;pondu donc j'ai cherch&#233; dans mais autre controle , Microsoft Windows Common Controls-2 6.0.
mais je ne l'ai pas non plus comment faire pour l'installer et le trouver pour le t&#233;l&#233;charger???
merci


tania

clementio · Answer

Dans la liste des composants, choisis "Microsoft Windows Common Controls-2 6.0". Et ça va te rajouter plusieurs composants dont ceux cités ci-dessus. C'est tout...

tanya40 · Answer

re bonjour,
j'ai donc t&#233;l&#233;charger le service pack 6 mais rien n'y fait.
au niveau des controle rien de plus et les composants dont tu me parle je les trouves pas.
Peux-tu me donner la demarche exact a suivre stp merci


tania

mortalino · Answer

Salut Tania !

Lorsque tu as un UserForm, tu devrais avoir une petite fenetre avec tes controles (TextBox, CmdButton etc...), click droit dessus et choisi controles supplémentaires, puis cherche le controle "Date and Time Picker" (au pire, le "MonthView")

@ ++

Mortalino

tanya40 · Answer

ok c'est trouv&#233; sauf que j'ai pas les 2 controle suppl&#233;menttaire dont tu me parle donc comment puis-je faire pour les t&#233;l&#233;charger et les avoir????
Bouuuuuuuuuu quel gal&#232;re!!!! 

tania

mortalino · Answer

Là franchement je sais pas quoi dire, sur toutes les bécanes où je me rends, ce contrôle est installé par défaut (il suffit juste de le rajouter comme je te l'ai expliqué). Le controle se nomme exactement : 
"Microsoft Date and Time Picker 6.0".

Si vraiment tu le trouves pas, cherche sur internet "mscomt2.ocx".
(doit se trouver dans C:\Windows\System32"

Par contre, quand tu as installés Office, personnellement lors de la proposition des composants à installer, tout ce qui concerne VBA, je le coche, peut-être l'OCX n'est pas installé !!

Bon courage !

Mortalino

tanya40 · Answer

re re
apr&#232;s moulte recherche et t&#233;l&#233;chargement j'ai bien le data picker mais maintenat quand je choisis la date il beug et me met en jaune (par rapport au code que tu ma donn&#233;) c.select
Que faire???


tania

mortalino · Answer

Salut Tania,
désolé, aujourd'hui je suis à coté de la plaque, le 1er code que je t'ai filé c'est le test que j'ai fait...

Voici (j'espere) le bon :

Private Sub DTPicker1_CloseUp()
With Worksheets(1).Cells    (1 = feuille 1 donc modifie si besoin)
    Set c = DTPicker1.Value
    If Not c Is Nothing Then
        .Find(DTPicker1.Value)
        c.Select
    Else
        MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation
    End If
End With

End Sub

T'as juste à verifier
1/ l'index de ta feuille
2/ le nom du DTPicker (si <> DTPicker1)

Mortalino

tanya40 · Answer

bon j'espere que cot&#233; plage c'&#233;tait bien.
je te remercie beaucoup de m'avoir bien aid&#233; et suivi.
 Bon tout ne fonctionne pas tout a fait mais bon en cherchant je vais trouver.....encore merci


tania

Listbox

13 réponses

Discussions similaires