Discussion :

[clemini]

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" !!!

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.

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[clemini]

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.

[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 ?

[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.

[mayekeul]

bonjour,

vois avec ce code pour comprendre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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