Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

zone de liste modifiable avec date

3 réponses
Avatar
leproust
Bonjour

j'ai dans un formulaire une zone de liste modifiable qui fait référence à
une liste de date.
Cela marche bien, la liste apparait correctement

mais dès que je passe à une autre zone de mon formulaire
il apparait à la place de la date un nombre
pourquoi la zone se transforme t elle ?

merci par avance pour votre aide

jean marie

3 réponses

Avatar
MichDenis
Tu peux utiliser un bout de code comme ceci pour remplir un combobox...
en choisissant l'événement qui convient le mieux à ton application...

P.S. La propriété RowSource du combobox ne doit pas être renseignée.

'------------------------
Dim S
With Worksheets("Feuil1")
S = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Me.ComboBox1.List = S
End With
'------------------------


"leproust" a écrit dans le message de news:

Bonjour

j'ai dans un formulaire une zone de liste modifiable qui fait référence à
une liste de date.
Cela marche bien, la liste apparait correctement

mais dès que je passe à une autre zone de mon formulaire
il apparait à la place de la date un nombre
pourquoi la zone se transforme t elle ?

merci par avance pour votre aide

jean marie
Avatar
leproust
Bonsoir

j'ai essayé cela ne fonctionne pas

J'ai mis

Private sub userform-initilize()
me.Cboxpériode.rowsource ="F1!D9:D" & Sheets("F1").[D6500].End(xlUp).Row
End sub


mais je n'arrive pas à afficher une date

pouvez vous m'aider

jm


Tu peux utiliser un bout de code comme ceci pour remplir un combobox...
en choisissant l'événement qui convient le mieux à ton application...

P.S. La propriété RowSource du combobox ne doit pas être renseignée.

'------------------------
Dim S
With Worksheets("Feuil1")
S = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Me.ComboBox1.List = S
End With
'------------------------


"leproust" a écrit dans le message de news:

Bonjour

j'ai dans un formulaire une zone de liste modifiable qui fait référence à
une liste de date.
Cela marche bien, la liste apparait correctement

mais dès que je passe à une autre zone de mon formulaire
il apparait à la place de la date un nombre
pourquoi la zone se transforme t elle ?

merci par avance pour votre aide

jean marie





Avatar
MichDenis
Si tu ne sais pas faire un copier-coller,
je ne peux pas aller au delà de ce que j'ai suggéré !

P.S. La propriété RowSource du combobox ne doit pas être renseignée.

Private sub userform-initilize()
Dim S
' Adapte le nom de la feuille
With Worksheets("Feuil1")
S = .Range("D9:D" & .Range("D65536").End(xlUp).Row)
Me.Cboxpériode.List = S
End With
End Sub



"leproust" a écrit dans le message de news:

Bonsoir

j'ai essayé cela ne fonctionne pas

J'ai mis

Private sub userform-initilize()
me.Cboxpériode.rowsource ="F1!D9:D" & Sheets("F1").[D6500].End(xlUp).Row
End sub


mais je n'arrive pas à afficher une date

pouvez vous m'aider

jm


Tu peux utiliser un bout de code comme ceci pour remplir un combobox...
en choisissant l'événement qui convient le mieux à ton application...

P.S. La propriété RowSource du combobox ne doit pas être renseignée.

'------------------------
Dim S
With Worksheets("Feuil1")
S = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Me.ComboBox1.List = S
End With
'------------------------


"leproust" a écrit dans le message de news:

Bonjour

j'ai dans un formulaire une zone de liste modifiable qui fait référence à
une liste de date.
Cela marche bien, la liste apparait correctement

mais dès que je passe à une autre zone de mon formulaire
il apparait à la place de la date un nombre
pourquoi la zone se transforme t elle ?

merci par avance pour votre aide

jean marie