"Compris entre" en VBA

Bonsoir, Bonjour:D,


Sur un formulaire, je cherche "simplement" a exécuter un module sur le champ "Bra_taille " Si la variable "Bdd_largeur" est comprise entre 2 valeur

J'ai bidouiller ce bout de code qui ne fonctionne pas "bien entendu":aie: :

Code:

---

1 2	If (Bdd_largeur > 1,2 And Bdd_largeur < 5) Then Bra_taille = "Trés_fin" If (Bdd_largeur > 5 And Bdd_largeur < 10) Then Bra_taille = "Grand"

---

Merci pour l’éventuel aide que vous m’apporterai :D

Salut,

L'erreur vient de la virgule au lieu du point.

tu aurais pu utiliser une structure Select Case

Code:

---

1 2 3

Select Case Bdd_largeur Case 1.2 to 5 Case 6 to 10

---

mais tes valeurs se chevaucheraient

du coup tu passes par une toute petite correction de ton code

Code:

---

1 2	If (Bdd_largeur > 1.2 And Bdd_largeur < 5) Then Bra_taille = "Trés_fin" If (Bdd_largeur > 5 And Bdd_largeur < 10) Then Bra_taille = "Grand"

---

Comme vos critères sont mutuellement exclusifs, conventionnellement on écrit :

Code:

---

1 2 3 4 5 6 7 8

If (Bdd_largeur > 1.2 And Bdd_largeur < 5) Then Bra_taille = "Trés_fin" ElseIf (Bdd_largeur > 5 And Bdd_largeur < 10) Then Bra_taille = "Grand" Endif

---

Attention la valeur exacte 5 n'est pas gérée ici puisque "très fin" est < à 5 et grand est > 5...

Si la valeur exacte de 5 correspond à "très fin", il faut écrire :

Code:

---

1 2 3 4 5 6 7 8

If (Bdd_largeur > 1.2 And Bdd_largeur <= 5) Then Bra_taille = "Trés_fin" ElseIf (Bdd_largeur > 5 And Bdd_largeur < 10) Then Bra_taille = "Grand" Endif

---

Si elle correspond à "Grand" :

Code:

---

1 2 3 4 5 6 7 8

If (Bdd_largeur > 1.2 And Bdd_largeur < 5) Then Bra_taille = "Trés_fin" ElseIf (Bdd_largeur >= 5 And Bdd_largeur < 10) Then Bra_taille = "Grand" Endif

---

Bsoir,

Merci beaucoup pour vos explications : It's Work !!

Bye;)