Discussion :

[patlunel]

Bonjour à tous,

Je recherche (et ne trouve pas) une procédure pouvant permettre ceci :
ouverture d'une fenetre contenant une liste de mots (je la ferais apparaitre avec un bouton)
clique sur un mot (ou séléction et clique sur ok)
la fenetre se referme
remplissage de la cellule active avec le mot séléctionné

Merci de vos bons conseils

[mercatog]

tu peux le mette directement dans ta feuille dans liste de validation sans passer par un userform

[patlunel]

oui exact mais pour des raisons pratiques il me faut procéder de cette manière
Donc je cherche toujours

[Maiden002]

Pour ton probléme, il te faut utiliser une UserForm, et ensuite initialisé une liste déroulante avec les valeurs que tu veux dedans

Pour l'initialisation de ta comboBox

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
cmbajout.AddItem "TATA"
cmbajout.AddItem "TOTO"
cmbajout.AddItem "TITI"
 
End Sub

Pour ton bouton Ok

Code :

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

1
2
3
4
5
Private Sub btnOK_Click()
 
Worksheets("feuil1").Range("A1").Value = cmbajout
Unload Me
End Sub

[laetitia]

bonjour le fil le forum. un autre exemple basique a adapter
un userform une combobox. donnée de la combobox en colonne A
code: userform

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Click()
ActiveCell = ComboBox1.Value: Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Range([A1], [a65536].End(xlUp)).Value
End Sub

ps on pourrait faire un peut plus. double clic sur une cellule d'une plage determinée dans l'exemple plage c1 a d10 pour exemple
ouvertutre userform choix selection dans la combo & fermeture user
code a rajouter

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("c1:d10")) Is Nothing Then
UserForm1.Show
Target.Offset(1, 0).Select
End If
End Sub