Test si la fonction sort ou non de l'intervalle

Question

Bonjour ;

Je débute le VBA et j’aurais besoin d’un renseignement pour un projet que je mène dans mon entreprise.

L’objectif est de savoir si la valeur rentrée par l’opérateur est comprise entre 54 et 56 et si elle ne l’ait pas je dois mettre une cellule en rouge.

Mon mode opératoire actuel est de faire des lignes de tests (exemple ci-dessous), mais avez-vous une autre méthode qui pourrait me raccourcir ses lignes interminables de code car je dois faire le test pour 6 valeurs différentes.

If Sheets(base_de_données).Cells(8, 9) > 56 Or Sheets(base_de_données).Cells(8, 9) < 54 or Sheets(base_de_données).Cells(8, 10) >56 Or Sheets(base_de_données).Cells(8, 10) <54 Then ( je vous épargne les 10lignes de test)

    Sheets("Accueil").Cells(c, r).Interior.Color = RGB(255, 100, 100)
End If

Je dois tester toutes ses valeurs les fentes doivent faire 50+/- 1 et la rotation 90°+/-0.5° par exemple

Merci d'avance pour vos réponses

Ausecour · Accepted Answer

D'accord, donc en effet pas de VBA requis ici.

Pour AI8 par exemple, qui est l'angle de rotation de la tête, on peut utiliser une mise en forme conditionnelle avec cette formule:

=ET(AI8<>"";OU(AI8>90.5;AI8<89.5))

Si la cellule AI8 n'est pas vide, et qu'elle est soit supérieure à 90.5, soit inférieure à 89.5, alors on applique la mise en forme (rouge par exemple).

Il suffit de faire une formule comme ça pour chaque cellule en changeant les valeurs et en appliquant les mises en forme souhaitées. Il faudra également changer l'adresse de la cellule pour celle utilisée, par exemple AI11 à la place des AI8 pour la cellule AI11.

Ausecour · Answer

J'aurais bien dis une petite procédure comme celle-ci: Sub test(Plage As Range, min, max) Dim Cel As Range For Each Cel In Plage.Cells If Cel &lt; min Or Cel &gt; max Then Cel.Interior.Color = RGB(255, 100, 100) End If Next Cel End Sub Vous lui donnez une plage de cellules à checker (peut-être une cellule ou plusieurs cellules, attention à ne pas faire plusieurs zones de plages de cellules, elle n'est pas prévue pour), un minimum et un maximum. Chaque cellule de la plage va être testée, et si sa valeur n'est pas entre le min et le max, alors son fond deviendra rouge...

DanielC · Answer

C'est peut-être plus simple sans VBA, avec une mise en forme conditionnelle ? Daniel...

Ausecour · Answer

Ah oui ce n'est pas tout à fait ce que j'avais en tête, ce à quoi j'avais pensé c'était d'utiliser la procédure comme ça: test Range("AI11"), 54, 56 De cette façon on aurait pu donner à la procédure la cellule dont on veut vérifier la valeur, le minimum qui est 54, le maximum qui est 56, et la mettre en rouge si sa valeur n'est pas dans l'intervalle. Ici visiblement ce qui est cherché est un peu différent, je me pose quelques questions: par exemple pour la rotation vous avez dit: "rotation 90°+/-0.5°" L'intervalle est constant ou il peut changer? Ce n'est pas mieux de directement mettre en couleur la cellule qui n'est pas dans l'intervalle? (via une mise en forme conditionnelle comme le proposait DanielC)...