XL 2016 Condition sélection Listbox

troopers87

XLDnaute Occasionnel
Bonjour à tous,

je suis prêt du but ! Mais il me manque un mot un seul et ça fait plus d'une heure que je cherche...
Je souhaite activer un commandbutton seulement si une valeur de ma listbox (peu importe laquelle) est sélectionnée.
Malheureusement, je pêche vraiment sur l'argument à insérer dans mon code.

Ci-joint, un petit fichier exemple pour vous aider à comprendre mon problème.

Merci d'avance !
 

Pièces jointes

  • TEST VBA.xlsm
    18.2 KB · Affichages: 55

laetitia90

XLDnaute Barbatruc
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 :mad:
 

Si...

XLDnaute Barbatruc
:Dsalut
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 :mad:

Cela ne va pas te consoler Laetitia :D mais je ne suis pas seul à patauger avec cette nouvelle interface :eek:
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

laetitia90

XLDnaute Barbatruc
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 :confused: non de main :) te serais reconnaissance
bisous a+ leti
 

Si...

XLDnaute Barbatruc
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 :confused: non de main :) te serais reconnaissance
bisous a+ leti
 

Paf

XLDnaute Barbatruc
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
 

Si...

XLDnaute Barbatruc
bonsoir Léti :D

je prèfère te donner ... une bise;) et pour le code
upload_2016-7-14_17-12-22.png


[Edit] Bonsoir Paf
 
Dernière édition:

troopers87

XLDnaute Occasionnel
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 !
 

Discussions similaires