[VBA-E]Form : demander une année

Version imprimable

09/02/2006, 10h11
repié

[VBA-E]Form : demander une année

Bonjour

je suis à la recherche d'un objet pour mon user form Excel qui demande à l'utilisateur simplement une anné (donc pas une date complète comme dtpicker je crois)

Est ce que ca existe?
09/02/2006, 11h39
ThierryAIM

un combobox, que tu remplis avec des valeurs année, non :?:
09/02/2006, 11h43
repié

ba c'est une solution en effet, s'il n'existe pas d'objet prévu
09/02/2006, 20h25
zazaraignée

Salut

Ce qu'il y a de bien avec les ListBox et les ComboBox sur un UserForm dans Excel, c'est que tu peux leur mettre une source pour les données à saisir.

Une stratégie que tu peux adopter serait de mettre toutes les valeurs de listes dont tu aura besoin pour tes différentes listes (formulaire, UserForm, validation de données...) sur une feuille. Chaque liste est identifiée par une plage nommée (tu sélectionnes la liste et tu tapes un nom significatif dans la zone nom, sans accents, c'est mieux). Tu peux ensuite masquer cette feuille et/ou la protéger pour la rendre inaccessible à l'utilisateur.

Pour attribuer une liste dans une plage à un contrôle ListBox ou ComboBox, sélectionne le contrôle. Dans la boîte de propriétés, tape le nom de la plage source à la propriété RowSource. Si tu mets juste l'adresse de la plage (exemple: A1:A10), et que lorsque tu appelle le UserForm ce n'est pas la feuille source qui est affichée, il n'y aura rien dans la liste. C'est pourquoi l'utilisation des plages nommées est recommandée.
09/02/2006, 20h44
Pierre Fauconnier

Bonsoir

Pour compléter Zazaraignée, pense que tu peux utiliser des fonctions dans la référence des noms de plage que tu crées.

La technique de Zazaraignée crée une plage nommée de A1 à A10. Mais si tu dois ajouter une donnée à la liste, il faut l'insérer entre les cellules A1 et A10 puis éventuellement retrier, pour que le nom de ta plage se réfère à A1:A11...
Si l'utilisateur qui souhaite ajouter une valeur à cette plage ne sait pas cela, il remplira "bêtement" la cellule A11 et cette cellule ne sera pas inclue dans la plage nommée.

Pour remédier à cela, on peut, via Insertion/Noms/Définir, créer une plage nommée qui fait référence à une plage créée avec la fonction DECALER (OFFSET en anglais).

Ainsi, pour créer une plage de taille dynamique qui commence en A2 et inclut toutes les données de la colonne A, A1 exclu (nom de colonne ou de champ), tu peux utiliser

Code:

=DECALER(Feuil1!$A$1;1;0;NBVAL(Feuil1!$A:$A)-1;1)

qui adaptera ta plage nommée en fonction des cellules remplies en A. La seule restriction est qu'il n'y ait pas de cellules vides entre A1 et la dernière cellule remplie de A...

On peut aussi avoir une plage dynamique bi-directionnelle, pour définir automatiquement une table de données, quel que soit le nombre d'enrgistrements et le nombre de champs de la table.

Code:

=DECALER(Feuil1!$A$1;1;0;NBVAL(Feuil1!$A:$A)-1;NBVAL(Feuil1!$1:$1))

Ainsi, lorsque l'on présente des données en Excel sous forme de table (pas d'enregistrement avec donnée en A vide et pas de noms de champ vides), on peut ajouter des données et/ou des champs sans devoir redéfinir les noms de plage.

Bon boulot

Pierre Fauconnier
09/02/2006, 21h08
ThierryAIM

Citation:

Envoyé par Thierry AIM

un combobox, que tu remplis avec des valeurs année, non :?:

quand j'ai dit "remplir", j'ai pas dit à la main :?

une simple boucle For i = 1897 to 2398 avec un additem evite bien de se torturer l'esprit, non :wink:

salut

pourquoi ne pas utiliser un simple controle textbox?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
'je suppose que intervalle de date varie entre 1000 et 2990
'etape1: je force une entrée de valeur numérique
 
if isnumeric(val(textbox1.text))=false then 
textbox1=empty
exit sub
end if
 
'l'étape1 est traversée lorsqu'une valeur numérique est saisie
'on peut alors tester l'intervalle de date obligatoire
 
if val(textbox1.text)<1000 and val(textbox1.text)>2990 then
textbox1=empty
exit sub
end if
 
'si l'étape2 est traversée, cela signifie que les données entrées sont 
'valides

tu pourras mettre la propriété maxlength de ton textbox à 5 mais cela ne sera pas trop necessaire

10/02/2006, 11h50
repié

Alors le truc c'est que je suis débutant dans les forms!

Mais je n'ai besoin que d'une comprenant les années de 2004 à 2010; et en liste modifiable parceque mon form entre dans le cadre d'une appli qui fait ca tout le temps donc ca fait un peu tache de faire un textbox au milieu! Mais l'idée était pas mal!

Quelqu'un aurait un petit code pour me dépanner SVP?
10/02/2006, 12h05
valval

resalut!

je souhaitrais que tu reformules très clairement ta preoccupation

tu colles une combo sur ton userform et tu mets ca :

Code:

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2004 To 2010
    ComboBox1.AddItem i
Next i
End Sub

10/02/2006, 14h06
repié

Ba c'est génial ca marche à merveille!

Merci beaucoup!