XL 2013 valeur cellule en fonction de valeur combobox et optionbtutton

Appo1985 · 25 Février 2024

Bonjour à tous

Avec le formulaire, je détermine la valeur de la cellule A1 en cliquant sur « Valider ».

Les valeurs des boutons d’option 1 et 2 sont respectivement <5 et >=5. (5 étant une moyenne)

Le problème est que toutes les matières n’ont pas 5 comme moyenne certaines ont pour moyenne 10.

Je voudrais donc ajouter une condition en tenant compte de la valeur de combobox1 qui indique les matières.

La moyenne de chaque matière est indiquée en commentaire.

Merci par avance.

Dranreb · 25 Février 2024

Bonjour.
Sinon, si les matières ne changent jamais on pourrait simplement faire comme ça :

VB:

Option Explicit
Private TMoy()
Private Sub UserForm_Initialize()
   Me.ComboBox1.List = Array("Langue", "EPS", "Maths", "Sciences", "Histoire")
   TMoy = Array(10, 5, 10, 10, 5)
   End Sub
Private Sub CommandButton1_Click()
' tenir compte de la valeur choisie en Combobox1
' la moyenne est 5 pour "EPS" et "Histoire" mais 10 pour "Langue", "Maths" et "Sciences"
   Dim Moy As String
   If Not ComboBox1.MatchFound Then Exit Sub
   Moy = TMoy(ComboBox1.ListIndex)
   If OptionButton1.Value Then
      Range("A1").Value = "<" & Moy
      End If
   If OptionButton2.Value Then
      Range("A1") = ">=" & Moy
      End If
   End Sub
Private Sub...

TooFatBoy · 25 Février 2024

Bonjour,

Une proposition en pièce jointe, utilisant un Tableau Structuré.

Dranreb · 25 Février 2024

Bonjour.
Sinon, si les matières ne changent jamais on pourrait simplement faire comme ça :

VB:

Option Explicit
Private TMoy()
Private Sub UserForm_Initialize()
   Me.ComboBox1.List = Array("Langue", "EPS", "Maths", "Sciences", "Histoire")
   TMoy = Array(10, 5, 10, 10, 5)
   End Sub
Private Sub CommandButton1_Click()
' tenir compte de la valeur choisie en Combobox1
' la moyenne est 5 pour "EPS" et "Histoire" mais 10 pour "Langue", "Maths" et "Sciences"
   Dim Moy As String
   If Not ComboBox1.MatchFound Then Exit Sub
   Moy = TMoy(ComboBox1.ListIndex)
   If OptionButton1.Value Then
      Range("A1").Value = "<" & Moy
      End If
   If OptionButton2.Value Then
      Range("A1") = ">=" & Moy
      End If
   End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   Range("A1").Select
   Selection.ClearContents
   End Sub

Attention, ça me parait bizarre que la cellule soit systématiquement effacée, ensuite, au déchargement de l'UserForm

Appo1985 · 25 Février 2024

Merci

TooFatBoy à dit:
Bonjour,

Une proposition en pièce jointe, utilisant un Tableau Structuré.

Grandement merci.
Ça marche bien

Appo1985 · 25 Février 2024

Dranreb à dit:

Bonjour.
Sinon, si les matières ne changent jamais on pourrait simplement faire comme ça :

VB:

Option Explicit
Private TMoy()
Private Sub UserForm_Initialize()
   Me.ComboBox1.List = Array("Langue", "EPS", "Maths", "Sciences", "Histoire")
   TMoy = Array(10, 5, 10, 10, 5)
   End Sub
Private Sub CommandButton1_Click()
' tenir compte de la valeur choisie en Combobox1
' la moyenne est 5 pour "EPS" et "Histoire" mais 10 pour "Langue", "Maths" et "Sciences"
   Dim Moy As String
   If Not ComboBox1.MatchFound Then Exit Sub
   Moy = TMoy(ComboBox1.ListIndex)
   If OptionButton1.Value Then
      Range("A1").Value = "<" & Moy
      End If
   If OptionButton2 = True Then
      Range("A1") = ">=" & Moy
      End If
   End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   Range("A1").Select
   Selection.ClearContents
   End Sub

Attention, ça me parait bizarre que la cellule soit systématiquement effacée, ensuite, au déchargement de l'UserForm

Grandement merci.
C'est ce que je voulais.

En fait j'utilise la plage A1 à D1 comme critère de filtres et le bouton de commande pour voir le résultat J'ai peur qu'en laissant la cellule A1 sans effacer que ça joue sur les prochains résultats.

XL 2013 valeur cellule en fonction de valeur combobox et optionbtutton

Appo1985

XLDnaute Occasionnel

Pièces jointes

Dranreb

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Appo1985

XLDnaute Occasionnel

Appo1985

XLDnaute Occasionnel

Discussions similaires