Dtpicker visible

Bonjour ,

J'ai une simple list box et j'aimerais que lorsque nimporte quoi est coché le dtpicker apparaisse

et si rien n'est coché, il disparaisse.

J'ai écrit mon code mias ca ne semble pas marcher.

Merci de votre aide

    For i = 0 To Me.ListBox1.ListCount - 1

    If Me.ListBox1.Selected(i) = True Then
        Me.DTPicker1.Visible = True
    Else
        Me.DTPicker1.Visible = False
    End If
        Next i

Bonjour,

le bouton n'a pas de code associé...

Le DTPicker1 n'est pas présent sur ma machine...

Pour une compatibilité "total" mieux vaut utiliser un calendrier "USF", il y en a plein sur le net...

@ bientôt

LouReeD

Bonsoir,

On est bien d'accord sur le principe des calendriers embarqués... mais même avec un calendrier OK ça ne marchera pas avec une telle boucle (sauf si tu ne coches que le dernier item de la liste...)

En effet sur tous les premiers items la boucle n'affiche rien et quand elle arrive au dernier, elle affiche.

En revanche si tu select n'importe quoi d'autre, elle affiche puis passe sur le next et ne trouvant plus rien elle masque ce qu'elle vient d'afficher (en 'ti nèg !)

En résumé ou tu mets un Exit For après True

ou tu supprimes le Else...

A+

bonjour Galopin .

Je t'avoue que je suis assez débutant et que je ne suis pas certaine de tout comprendre ce que tu m'expliques. Est-ce que tu peux me le montrer sur mon document svp ?

Étrange avec le Dtpicker pourtant j'avais essayé sur d'autre ordi et ils semblaient le voir ...

Non, je n'ai pas de dtpicker non plus...

De plus tu ne peux pas faire ça avec un ListBox MultiSelect...

Bonjour

il est quasi incertain d'avoir un bon résultat,

une manipulation que j'ai faite au hasard + en suivant les conseils ci-dessus

seul le premier choix est bloqué, mais franchement doit y avoir plus simple

le dtpicker fonctionne

Edit (on supprime la poire de la liste de la feuille 1 cellule A2)

crdlt,

André