Select case ou If then...Résolu

Question

Bonjour à tous J'ai déjà posée la question mais je viens d'essayer une solution mais ca ne fonctionne pas pouvez vous me dire pourquoi ? Voila j'ai créé un formulaire avec plusieurs liste de choix une liste qui s'appelle nom produit/designation une autre qui s'appelle niveau/level et un champ prix/price je voudrais que lorsque je selectionne 1 niveau et un produit j'ai un prix qui s'affiche: ex niveau :niveau 1 & produit: longe corde prix =18,3 ? je tape ce code: Private Sub Form_AfterUpdate()If Niveau_de_réparation_level_of_repair.Value "niveau 1" And Nom_produit_designation.Value "longe corde" Then Prix_price.Value = "18,30" End If End Sub Dans mon formulaire je ne peux plus selectionner mon produit a chaque fois que je le selectionne dans la liste deroulant il ne s'affiche pas dans le champ... De plus j'ai peu de produits et de prix à rentrer est ce qu'il ne faudrait pas plutot utiliser Select Case longe corde case is...? Merci de vos réponses je galère de trop sur ce sujet là... A+

lolo_bob2 · Accepted Answer

Salut Mortalino

c'est bon j'ai r&#233;ussi &#224; resoudre mon probl&#232;me merci beaucoup 
A+

mortalino · Answer

Salut, Private Sub Form_AfterUpdate()If Niveau_de_réparation_level_of_repair.Value "niveau 1" And Nom_produit_designation.Value "longe corde" Then Prix_price.Value = "18,30" End If End Sub Je suppose que Niveau_de_réparation_level_of_repair & Nom_produit_designation sont des ComboBox, dans ce cas, essaie ça Private Sub Nom_produit_designation_ Change () If Nom_produit_designation.Value <> "" And Niveau_de_réparation_level_of_repair.Value <> "" Then If Niveau_de_réparation_level_of_repair.Value = "niveau 1" _ And Nom_produit_designation.Value = "longe corde" then Prix_price.Value = "18,30" End If End If End Sub ' Là en gros, lorsque la valeur de "Nom_produit_designation" change, il vérifie que rien ne soit vide et place 18.30 si la condition est vraie. Select Case traite également des conditions. C'est plus lisible mais utilise celui avec lequel tu es le plus à l'aise @ ++ Mortalino

lolo_bob2 · Answer

Ok merci beaucoup

il faut bien que le code se trouve au niveau du formulaire et non pas d'une combobox ?
En fait j'ai plusieurs produit et prix c'est a dire que suivant le produit et le niveau le prix n'est pas le m&#234;me...
C'est pour ca que je demandais si il ne fallait pas plutot utiliser un select case
En fait je suis novice et je suis pas trop &#224; l'aise avec le VB
Quel seris la syntaxe d'un select case lorsque j'ai plusieurs produits, plusieurs niveau et plusieurs prix ?
Merci beaucoup Mortalino
A+

mortalino · Answer

Dans ce cas essaie

Private Sub Form_AfterUpdate()
      Dim NiveauRepLevel As String, NomProd As String
   NiveauRepLevel = Niveau_de_r&#233;paration_level_of_repair.Value 
   NomProd = Nom_produit_designation.Value 

Select Case NiveauRepLevel 
   Case "niveau 1":     'Si niveau 1 s&#233;l&#233;ctionn&#233;
      Select Case NomProd
         Case "longe corde":
            Prix_price.Value = "18,30"
         Case "produit 2":
            Prix_price.Value = "XX,XX"
         Case "produit3":
            Prix_price.Value = "XX,XX"
etc...
         End Select
   Case "niveau 2":     'Si niveau 2 s&#233;l&#233;ctionn&#233;
      Select Case NomProd
         Case "longe corde":
            Prix_price.Value = "18,30"
         Case "produit 2":
            Prix_price.Value = "XX,XX"
         Case "produit3":
            Prix_price.Value = "XX,XX"
etc...
         End Select
End Select

End Sub


Voit si c'est bon. si tu veux des pr&#233;cisions, n'h&#233;site pas

  Mortalino

lolo_bob2 · Answer

Ok merci beaucoup 

Je vais essayer cette solution 
Je te redis &#231;a dans la journ&#233;e
Je vais enfin arriver &#224; faire cette manipulation qui me pr&#233;occupe depuis longtemps...
Merci Mortalino
A+

lolo_bob2

lolo_bob2 · Answer

Salut Mortalino

Je viens de faire l'essai avec deux produits

voici le code :

Private Sub Form_AfterUpdate()
      Dim NiveauRepLevel As String, NomProd As String
          NiveauRepLevel = Niveau_de_r&#233;paration_level_of_repair.Value
          NomProd = Nom_produit_designation.Value


Select Case NiveauRepLevel
   Case "niveau 1":     'Si niveau 1 s&#233;l&#233;ctionn&#233;
      Select Case NomProd
         Case "longe corde":
            Prix.Value = "18,30"
         Case "harnais":
            Prix.Value = "20,30"
         
         End Select
         
   Case "niveau 2":     'Si niveau 2 s&#233;l&#233;ctionn&#233;
      Select Case NomProd
         Case "longe corde":
            Prix.Value = "30,00"
         Case "harnais":
            Prix.Value = "50,00"
         
         End Select
End Select


End Sub

Donc je le met sur Apres MAJ, je reviens sur mon formulaire en mode formulaire et lorsque je selectionne le niveau 1 et le produit longe corde le prix n'apparait pas 
Le champ prix est un champ independant.
D'o&#249; peut provenir l'erreur ?
Merci beaucoup
A+ tard

mortalino · Answer

Par contre question bête, c'est quoi comme contrôle ton
Niveau_de_réparation_level_of_repair
Tu travailles sur une BDD Access ?

lolo_bob2 · Answer

Salut Mortalino

je travaille sur BD Access effectivement...
Le bouton Niveau_de_r&#233;paration_level_of_repair est une zone de liste modifiable...
Voila pour le plus d'informations
ce soir j'ai r&#233;essay&#233; mais ca ne fonctionnait toujours pas
A+

mortalino · Answer

Ben concernant Access, j'ai fait une BDD mais il y a bien longtemps (dans une galaxie lointaine).
Donc actuellement je n'ai pas de solution mais je regarderai dans ma bible ce soir et si je trouve je te met un Post demain matin (sauf si une âme charitable à la soluce de tête).
Désolé

mortalino · Answer

Par contre, remplace le terme "Value" par "Text", j'ai regardé 2 / 3 codes et c'est ce terme qui est employé

lolo_bob2 · Answer

ok merci beaucoup 


j'essaye &#231;a d&#232;s demain matin 


en tout cas merci de te pencher de pr&#232;s &#224; mon probl&#232;me...


Bonne soir&#233;e

mortalino · Answer

Salut lolo_bob2,

Tant mieux si tu as trouvé car moi je me suis rencarder, et VBA Access c'est particulier comme syntaxe.

Bien vu et @ ++

Mortalino

Select case ou If then...

12 réponses

Discussions similaires