Discussion :

[benajoel]

Pour la gestion d'un compte, j'ai besoin de pouvoir choisir un "objet" dans une liste(selectrow (N5:N25) et d'afficher cet "objet" dans la "cellule active" avant de pouvoir inscrire le "montant" dans la cellule voisine.
Tout ceci en sachant que la liste des "objet" est figée, mais que je puisse ajouter directement dans mon "userform" un objet qui ne serait pas dans la liste sans modifier celle-ci

[Igloobel]

Bonjour,

...Tout ceci en sachant que la liste des "objet" est figée, mais que je puisse ajouter directement dans mon "userform" un objet qui ne serait pas dans la liste sans modifier celle-ci

C'est un truc un peu "batard" cependant ce que j'ai fais se raprochant de ce que tu veux est :

-avec liste de validation
dans la liste de validation sélectionner l'onglet "Alerte d'erreur"
puis décocher la case à cocher : "Quand les données non valides sont tapées"

je n'ai jamais un truc de ce genre sous un UserForm

ceci reste donc qu'une piste

A bientôt

[Thautheme]

Bonjour Benajoel, Igloobel, bonjour le forum,

Un proposition à adapter à ton cas...
Ce premier code à placer dans le composant de l'onglet concerné, ouvrira l'UserForm au double-clic dans une cellule :

Code :

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

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub

Le code ci-dessous à placer dans le composant de l'UserForm :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize() 'a l'initialisation de l'UserForm1
Dim O As Worksheet 'déclare la variable O
 
Set O = Worksheets("Feuil1") 'éfinit l'onglet O (à adapter à ton cas)
Me.ComboBox1.List = O.Range("N5:N25").Value 'alimente la ComboBox1
End Sub
 
Private Sub CommandButton1_Click() 'au clic du bouton
ActiveCell.Value = Me.ComboBox1.Value 'renvoie la valeur de la ComboBox1 dansa cellule active
ActiveCell.Offset(0, 1).Select 'sélectionne la cellulà droite de la cellule active
End Sub

[benajoel]

Bonjour Thautheme, salut le forum. merci pour la réponse, j'ai toujours mon pb, je voudrai juste avoir la commende qui, sur clic dans la liste, colle le choix sur lequel j'ai cliqué dans une variable (par exemple la variable "choixdeliste"). Avant le choix j'ai tout ok, aprés le choix, pareil , mais juste le click ???
merci

[rvtoulon]

Bonjour,
s'il sagit d'une Listbox dans un Userform, alors utiliser l'évènement Change ou Click de la listbox.

l'exemple ci-dessous affiche dans un msgbox la valeur cliquée d'un listbox:

Code :

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

1
2
3
Private Sub ListBox1_Click()
MsgBox Me.ListBox1.Value
End Sub