XL 2016 Condition sélection Listbox

Paf

XLDnaute Barbatruc

• 14 Juillet 2016

• #2

Bonjour troopers87,

a priori

Code:

Private Sub ListBox1_Click()
  CommandButton1.Enabled = True
End Sub

A+

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 14 Juillet 2016

• #3

bonjour troopers🙂 paf🙂
tu es pas oblige de coder les 2 OptionButtons un seul suffit il sont "lier"

exemple avec ton code

Private Sub UserForm_Initialize()
'à l'initialisation de l'userform, désactiver les accès à la listbox et du commandbutton
ListBox1.Enabled = False
CommandButton1.Enabled = False
End Sub
Private Sub OptionButton1_Change()
CommandButton1.Enabled = 0
ListBox1.Enabled = 1
If OptionButton1 Then
ListBox1.RowSource = "voitures"
Else
ListBox1.RowSource = "légumes"
End If
End Sub
Private Sub ListBox1_Click()
CommandButton1.Enabled = 1
End Sub
Private Sub CommandButton1_Click()
'au clic sur le commandbutton, insertion de la valeur de la texbox dans la cellule B1 puis fermeture userform
Range("b1").Value = ListBox1.Value
Unload Me
End Sub

bien change le forum comprends plus rien 😡

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Juillet 2016

• #4

😀salut

laetitia90 à dit:

bonjour troopers🙂 paf🙂
tu es pas oblige de coder les 2 OptionButtons un seul suffit il sont "lier"
bien change le forum comprends plus rien 😡

Cliquez pour agrandir...

Cela ne va pas te consoler Laetitia 😀 mais je ne suis pas seul à patauger avec cette nouvelle interface 😱
Je reste plus à l’aise avec le VBA.

Exemple : je remplace souvent les boutons d’option par un contrôle ListBox pour simplifier les codes comme dans le fichier joint

VB:

Private Sub UserForm_Initialize()
  ListBox2.List = Array("voitures", "légumes")  'remplace les 2 boutons d'option
End Sub
Private Sub ListBox2_Click()
    ListBox1.RowSource = ListBox2
End Sub
Private Sub ListBox1_Click()
  [B1] = ListBox1:  Unload Me
End Sub

 

Pièces jointes

• ListBox Option.xlsm

  20.6 KB · Affichages: 61

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 14 Juillet 2016

• #5

rebonjour tous🙂🙂 bonjour l'ami Si 🙂🙂🙂
bien vu !!!!tu vas a l'essentiel dans ton code pas trop surprise !!!te connaissant 🙂🙂

concernant la new interface je patauges j'ai compris pour passer en french les petites "bêtes" rondes j'ai trouve contente🙂🙂
mais pour ecrire le code pour avoir des couleurs ??? je vois code (visual basic) au debut tu fais comment l'ami paf code (text) si tu pouvais me donner un de pied 😕 non de main 🙂 te serais reconnaissance
bisous a+ leti

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Juillet 2016

• #6

laetitia90 à dit:

rebonjour tous🙂🙂 bonjour l'ami Si 🙂🙂🙂
bien vu !!!!tu vas a l'essentiel dans ton code pas trop surprise !!!te connaissant 🙂🙂

concernant la new interface je patauges j'ai compris pour passer en french les petites "bêtes" rondes j'ai trouve contente🙂🙂
mais pour ecrire le code pour avoir des couleurs ??? je vois code (visual basic) au debut tu fais comment l'ami paf code (text) si tu pouvais me donner un de pied 😕 non de main 🙂 te serais reconnaissance
bisous a+ leti

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 14 Juillet 2016

• #7

bonjour laetitia90, Si...
Dans le bandeau de réponse, 3 icônes à droite de l'icône Smiley : Insérer
puis Code, puis choisir code général (code text) ou VB.

Moins pratique qu'avant il faut alors coller le code dans la fenêtre.

Bonne fin de journée

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Juillet 2016

• #8

bonsoir Léti 😀

je prèfère te donner ... une bise😉 et pour le code


[Edit] Bonsoir Paf

 

Dernière édition: 14 Juillet 2016

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 14 Juillet 2016

• #9

Bonsoir à tous et merci pour vos réponses !

La réponse de Laetitia est parfaite :

VB:

Private Sub ListBox1_Click()
CommandButton1.Enabled = 1
End Sub

Cela me permet bien d'activer mon CommandButton1 lorsque je clique sur une valeur de ma Listbox.

En revanche, l'idée de lier les deux Optionbutton ne me convient pas car dans mon fichier final, j'en ai à peu près 6. Merci pour l'info en tout cas !

Merci encore et à bientôt ! Et courage, un interface qui change, c'est un site qui vit !

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 15 Juillet 2016

• #10

bonjour tous🙂🙂

merci a tous les 2 pour l'info je vais essayer😉

ps: troopers

j'ai ecris la méme chose que l'ami Paf ????

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 15 Juillet 2016

• #11

Oui, exact, merci à aussi à toi, Paf 🙂
Je ne trouve pas le bouton "Résolu" ?

 

Vote positif 0 Vote négatif