Comment ecrire compris entre en VBA ?

[alfazoulou]

Bonjour le forum, j'ai une nouvelle fois besoin de vos lumières.
Je sais écrire dans un code l'argument = (égal)ou < (inférieur)ou > (supérieur)ou <>(différent).
mais comment écrire compris entre
dans une macro par exemple qui donnerait comme résultat de la cellule A1 "OK"
si la valeur contenue dans la cellule B1 est comprise entre 10 et 20.
Je voudrais bien sur éviter de dire <à10 et >à20.
merci.

 

[alfazoulou]

Re : Comment ecrire compris entre en VBA ?

et par la même occasion comment peut on dire supérieur ou égal et inférieur ou égal ?

 

[alfazoulou]

Re : Comment ecrire compris entre en VBA ?

vous aurez remarqué sans doute la petite erreur dans ma question à savoir "<à10 et >à20."qu'il faut bien sur interprété par ">à10 et <à20.

 

[JCGL]

Re : Comment ecrire compris entre en VBA ?

Bonjour à tous,

Essaye dans ta formule avec :

ET(A1>10;A1<20)

ou

ET(A1>=10;A1<=20)

A+

 

[Dull]

Re : Comment ecrire compris entre en VBA ?

Salut alfazoulou, le Forum

Un essai en pièce jointe

EDITION: Salut JC ... AlfazoulouaditenVBA

Bonne Journée

 

[Raja]

Re : Comment ecrire compris entre en VBA ?

Bonjour, Salut JCGL, Salut Dull,

Si c'est dans une macro, j'écrirai par exemple :

If [A1] > 10 And [A1] < 20 Then
.............
End If

 

[JCGL]

Re : Comment ecrire compris entre en VBA ?

Bonjour à tous,
Salut Dull ,
Salut Raja ,

Oupspasréveillé...
Jevaismerecoucher...

A++ et
A+ à tous

 

[alfazoulou]

Re : Comment ecrire compris entre en VBA ?

merci à tous mais ça m'arrange pas car j'aurais voulu éviter d'utiliser la double égalité (ou inégalité d'ailleurs)> et < qui me complique un peu mon code.
If Range("B67").Value = "14" And [B_154] > 7 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "13" And [B_154] > 6 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "12" And [B_154] > 6 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "11" And [B_154] > 5 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "10" And [B_154] > 5 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "9" And [B_154] > 4 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "8" And [B_154] > 4 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "7" And [B_154] > 3 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "6" And [B_154] > 3 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "5" And [B_154] > 2 And Range("G54").Formula = "=SUM(G23:G53)" _
Or Range("B67").Value = "4" And [B_154] < 2 And Range("G54").Formula = "=SUM(G23:G53)" Then

Dans ce code par exemple suivant le cas je voudrais vérifier que [B_154] est compris entre telle et telle valeur sans avoir à faire

If Range("B67").Value = "14" And [B_154] >= 5 And [B_154] <= 7 And Range("G54").Formula = "=SUM(G23:G53)" _

 

[alfazoulou]

Re : Comment ecrire compris entre en VBA ?

le but étant de simplifier ce ode une autre solution pour son exécution serait de vérifier que la valeur de B67 soit au moins 2 fois plus importante que la valeur de G54.
Donc comment écrire quelque chose ans le genre
If Range("B67").Value = [B_154] *2 And Range("G54").Formula = "=SUM(G23:G53)" then...sachant qu'il manquerait encore le "au moins" 2 fois plus importante.

 

[alfazoulou]

Re : Comment ecrire compris entre en VBA ?

oups encore une petite erreur:
le but étant de simplifier ce code une autre solution pour son exécution serait de vérifier que la valeur de B67 soit au moins 2 fois plus importante que la valeur de B154.
Donc comment écrire quelque chose ans le genre
If Range("B67").Value = [B_154] *2 And Range("G54").Formula = "=SUM(G23:G53)" then...sachant qu'il manquerait encore le "au moins" 2 fois plus importante.

 

[Raja]

Re : Comment ecrire compris entre en VBA ?

Re alfazoulou,

Il vaut mieux que tu nous joignes ton fichier et demande de l'aide en expliquant clairement ton besoin. Je pense qu'il y a sûrement une solution beaucoup plus simple si nous comprenons ce que tu veux faire exactement.

 

[pierrejean]

Re : Comment ecrire compris entre en VBA ?

bonjour a tous

A tester

If Range("B67").Value [COLOR=red]>=[/COLOR] [B_154] *2 And Range("G54").Formula = "=SUM(G23:G53)" then

 

[alfazoulou]

Re : Comment ecrire compris entre en VBA ?

merci à tous.
je crois que la solution de pierrejean devrai me servir.
sinon je vais affecter à la cellule B68 la formule B67/2 et je pourrait vérifier que
B68=B154
ça devrait aller Merci encore à vous.

 

[moutchec]

Re : Comment ecrire compris entre en VBA ?

bonjour a tous

A tester

If Range("B67").Value [COLOR=red]>=[/COLOR] [B_154] *2 And Range("G54").Formula = "=SUM(G23:G53)" then

bonjour à tous , bonjour le fil,
comment écrire ceci:
VarQte_Compare = CLng(.Value) + VarQte_Stock "doit être compris entre 0 et" Lbl_Volume_Stock
la partie en gras étant à traduire en VBA.
merci d'avance pour votre aide.
amicalement.
Moutchec.

ps : en resumé je veux que la valeur de mon textbox modifie le stock pour qu'il soit égal à un chiffre compris entre 0 et le volume initial.
donc en sortie quantité, si je saisis 10 alors qu'il y a 8 en stock le code corrige et ramène à 8
idem en entrée si valeur saisie est 10 alors qu'il y a déjà 10 en stock et que le volume initial est 15 alors le code corrige et ramène à 5.

 

[pierrejean]

Bonjour Moutchec

A tester
VarQte_Compare = CLng(.Value) + VarQte_Stock >0 and CLng(.Value) + VarQte_Stock<= Lbl_Volume_Stock