Discussion :

[paf26]

Bonjour,

J'ai actuellement des cases contenant une valeur choisie dans une liste.
je cherche à mettre dans les cases situées juste en dessous les numéros des choix (en tant que note)

Je voudrais faire ca par macro pour pas devoir tout changer si on rajoute une liste ou on modifie les listes

j'ai vu que c'était possible avec combobox et .listindex
mais n'ayant jamais utilisé de combobox je n'arrive pas a comprendre comment faut-il déclarer ce truc?? et on fait comment après pour mettre .listindex?

je joins un fichier exemple pour ceux qui veulent voir a quoi ce ressemble (en page 2 c'est pour les commentaire à choisir)

voila j'espère que c'est compréhensible

Merci

[Matthou]

Je comprend pas trop de que tu veux faire, en gros tu veux pouvoir choisir les données qui sont dans la feuille 1 avec Une Combo Box dans ce cas-la je te propose d'utiliser un UserF :

Code :

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

1
2
3
4
 
Private Sub UserForm_Initialize()
      Me.cboComboBox.RowSource = "Feuil1!A1:A" & Sheets("Feuil1").Cells(1, 1).End(xlDown).Row
End Sub

Si j'ai pu t'aider

---

l'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai

[paf26]

Salut, merci de ta réponse

Je cherche à faire un truc "simple", je pense que j'ai pas été clair... désolé

Donc je retente:
J'ai mis avec une validation des données, des listes dans certaines cellules de la feuil1, je cherche par macro à connaître le numéro du choix. (l'utilisateur choisit ses caractéristiques parmis les listes)

après l'utilisateur clique sur un bouton qui affiche les numéro des choix dans des cellules (choix "a"=> afficher 1, choix "b", afficher 2,...)

Dans l'exemple c'est des lettres seules mais en vrai ce sont des phrases, j'essaye donc d'éviter les structures du genre:

Code :

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

1
2
3
4
5
6
select case cells(1,1).Value
case is ="a"
'retourner 1
case is ="b"
retourner 2
etc...

je suis en train de me demander si c'est bien une combobox qu'il faut utiliser?

[Matthou]

Si tu veux juste afficher les valeurs des cases tu peux tout simplement utiliser une MsgBox
Je te fil la code que j'ai retouchée pour toi et tu me dit si c'est ça ^^ :

Code :

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

1
2
3
4
5
6
7
 
Option Explicit
Private Sub CommandButton1_Click()
If CommandButton1 = False Then
MsgBox ("La première case vaut --> " & Range("A1").Value & " & La Deuxième case vaut --> " & Range("B1").Value)
End If
End Sub

Dans ta feuille 1

[paf26]

Merci encore, mais je désire afficher non pas le contenu de la case, mais le numéro de on choix:
si on a une liste à 3 elements possible, disons
premier ="a'
deuxieme="b"
troisieme="c"

Alors je désire qu'il me mette 1 si je choisit a, 2 si je choisit b, 3 si je choisit c

je pense qu'il existe quelque chose pour cela mais je ne trouve pas...