ListBox-ComboBox avec valeur en dur dans VB

Version imprimable

14/12/2010, 17h42
clemini

ListBox-ComboBox avec valeur en dur dans VB

Bonjour,

Je suis en train de créer une macro pour laquelle l'utilisateur doit entrer un mot (parmi une dizaine au choix), dans une InputBox qui récupère une variable qui me servira ensuite dans ma macro.

En soi, ce mot ne peut prendre qu'une dizaine de valeurs différentes, je me dis donc que pour éviter les bugs dus à l'orthographe lors de la saisie, une liste déroulante de choix serait plus appropriée.
Seulement voilà, je ne veux pas aller chercher mes valeurs dans une plage de cellules déterminées, je veux les écrire directement dans mon code, en dur, car ce seront toujours les mêmes. À la base, je lance ma macro d'un classeur vide, je ne veux donc rien écrire dedans...
De même, j'aimerais que l'utilisateur ne puisse choisir qu'une valeur parmi la dizaine au choix, et qu'au simple click, le mot choisi soit récupéré comme avec mon InputBox.
Je sais, cela fait beaucoup de "j'aimerais" !!! :oops:

En gros, je pense qu'il faut que je passe par un UserForm et une ListBox ou ComboBox.
Est-ce que quelqu'un a une idée ? J'ai lu pas mal de choses à ce sujet mais je n'arrive pas à recouper les infos pour créer mon propre code.

D'avance merci de votre aide !

Clemini.

Bonsoir demini,

Si ça ne te pose pas de problème d'avoir un ComboBox directement sur une feuille (le combo est un contrôle ActiveX). A l'ouverture du classeur le combo est rempli :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
'à mettre dans le module du classeur :
 
Private Sub Workbook_Open()
 
    With Feuil1.ComboBox1
        .AddItem "Mon premier mot"
        .AddItem "Mon second mot"
        .AddItem "Mon troisième mot"
        'etc...
    End With
 
End Sub
 
'a mettre dans le module de la feuille (pour le test) :
 
Private Sub ComboBox1_Change()
 
    MsgBox ComboBox1.Text
 
End Sub

Hervé.

15/12/2010, 08h58
clemini

ComboBox

Merci Hervé,

Je vais essayer de chercher encore un peu selon la méthode que je voudrais utiliser mais en effet, je vais peut-être devoir me résigner à cela !

Bonne journée,

Clemini.
15/12/2010, 09h45
spaiku

Bonjour,

pourquoi ne passes-tu pas directement par une validation ? Tu n'es pas obligé de passer par une plage de cellules, tu peux directement saisir des valeurs.

Ou alors il y a quelque chose que je n'ai pas compris dans ton besoin ?
15/12/2010, 10h20
clemini

Spaiku,

Tu as tout à fait compris, mais je n'ai que des notions en VBA donc qu'est-ce qu'une validation ?
Merci !

Clemini.

bonjour,

vois avec ce code pour comprendre ;)

Code:

1
2
3
4
5
6
On Error Resume Next
With Cells(1, 1).Validation
    .Delete
    .Add xlValidateList, xlValidAlertStop, xlBetween, "choix10,choix20,choix30"
End With
On Error GoTo 0

15/12/2010, 10h41
rvtoulon

Bonjour,
dans l'idée du départ, je met le lien vers un fichier qui pourras t'aider.
Ce fichier est "vide", les feuilles sont vierges, mais à l'ouverture il ouvre un userform avec un combobox, l'utilisateur fait un choix dans le combo. lorsque le choix est fait une macro est appellée et récupére dans une variable le choix de la combo, ferme le userform, et affiche un message.
Etudie le principe et adapte le a tes besoins ;)
voici le lien :http://www.cijoint.fr/cjlink.php?fil...cijLEfps6P.xls
15/12/2010, 10h46
clemini

Merci à vous deux mayekeul et rvtoulon !

rvtoulon, je pense que je vais pouvoir adapter ton code au mien, c'est tout à fait ce que je souhaite faire, merci !
Je n'oublie pas de cliquer sur résolu si j'ai bien résolu mon problème ;)

Clemini.