calcul de seuils et de pourcentages un peu complexe

[bertrand38]

salut à tout le forum

Mon problème est le suivant :
Je dispose d'une liste d'écarts (feuille 1 du tableur joint)
Chaque écart peut faire parti d'un seuil (seuil de 0 à 1cm, puis seuil de 1 à 2 cm, ...). Ensuite je dois vérifier le pourcentage de remplissage de ces seuils et vérifier si ce pourcentage correspond à ce que l'on attendait...

Le problème est un peu compliqué pour moi, sachant que nombre d'écarts, nombre de seuils, taille des seuils et pourcentages doivent être paramétrables.

Je vous joins une explication qui j'espère vous renseignera sur mon besoin.

Par avance merci à tous.

 

[Kotov]

Re : calcul de seuils et de pourcentages un peu complexe

Bonjour Bertrand,

Une précision :
Quand tu dis "je dois vérifier si 10% des écarts sont compris entre 0 et 1 cm", ton pourcentage correspond-il à la norme maximale autorisée ?

En clair :
1. Erreur au delà de 10%
2. Pas erreur si le pourcentage est inférieur ou égal à 10 ?

A +
Kotov

 

[bertrand38]

Re : calcul de seuils et de pourcentages un peu complexe

Exactement, c'est tout à fait ce que je voulais dire.🙂

 

[Kotov]

Re : calcul de seuils et de pourcentages un peu complexe

re Bertrand,

Bon, j'ai pas mal avancé, mais j'ai 2 autres questions :

Quelle unité d'écart ?
1. Au vu de ton exemple, je viens de lancer une macro qui me donne tous les écarts inférieurs à 0 sauf 27 (c'est logique, mais n'y a t'il pas une échelle particulière ?)
2. Une fois qu'on a tout pointé, comment afficher le résultat ?
- Un seuil non respecté = erreur pour la globalité
- Séparation entre les seuils respectés et non respectés ?

A +
Kotov

 

[Kotov]

Re : calcul de seuils et de pourcentages un peu complexe

Re Bertrand,

dans l'attente de précisions, voiçi une version en pièce jointe. testes le fichier.

La macro principale :

Sub GestionDesEcarts()
Dim i&
Dim n&
Dim Sh1 As Worksheet
Set Sh1 = Sheets("écarts")
Dim V1&
Dim V2&
Dim V3&
Dim V4&
Dim V5&
Dim V6&
Dim VHorsNorme&
Const S1 = 0.1
Const S2 = 0.1
Const S3 = 0.3
Const S4 = 0.2
Const S5 = 0.2
Const S6 = 0.2
Dim B0 As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim B3 As Byte
Dim B4 As Byte
Dim B5 As Byte
Dim B6 As Byte

 B0 = 0
 B1 = 1
 B2 = 2
 B3 = 3
 B4 = 4
 B5 = 5
 B6 = 6
Dim R As Byte

n = Sh1.Cells(65536, 1).End(3).Row

For i = 2 To n
Select Case Sh1.Cells(i, 1).Value
    Case Is > B6: VHorsNorme = VHorsNorme + 1
    Case Is > B5: V6 = V6 + 1
    Case Is > B4: V5 = V5 + 1
    Case Is > B3: V4 = V4 + 1
    Case Is > B2: V3 = V3 + 1
    Case Is > B1: V2 = V2 + 1
    Case Is >= B0: V1 = V1 + 1
    Case Else: VHorsNorme = VHorsNorme + 1
End Select
Next i
For i = 1 To 6
    Select Case (V & i / n)
        Case Is > S & i: R = R + 0
        Case Else: R = R + 1
    End Select
Next i
If VHorsNorme > 0 Then
     MsgBox "Non Conforme. Ecarts Hors normes", vbCritical, "Vérification des écarts"
Else
    Select Case R
        Case 6
        MsgBox "Conforme", vbInformation, "Vérification des écarts"
        Case Else
        MsgBox "Non Conforme, norme dépassée", vbCritical, "Vérification des écarts"
    End Select
End If
Set Sh1 = Nothing
End Sub

Bon, je m'absente jusqu'en fin de soirée
A +
Kotov

 

[Dugenou]

Re : calcul de seuils et de pourcentages un peu complexe

Salut Kotov et bertrand

Voici un essai par formule. J'ai un pb entre la définition des écarts 0,1, 2, ... cm et les valeurs des écarts 0.001, 0.06 etc
Est-ce bien la même unité car pour l'instant tout sort entre 0 et 1 sauf l'écart à 27 qui n'est pas pris en compte puisque on s'arrete à 9 cm.

Dis moi s'il faut avancer dans cette voie

 

[bertrand38]

Re : calcul de seuils et de pourcentages un peu complexe

Merci à tous les 2 pour votre aide.

Je vais regardé ce que vous avez fait mais je vous répond tout de suite :
- unité en cm (désolé pour l'écart de 27m, vous pouvez l'oublier ...)
- le refus d'une condition doit entrainer un refus global, même si plusieurs seuils sont validés.

Merci, je vais me dépêcher de regarder vos applications😀

 

[bertrand38]

Re : calcul de seuils et de pourcentages un peu complexe

Merci Kotov et Dugenou

Je vais prendre l'application de Dugenou, exactement ce que je cherchais à faire sauf que je connaissais pas toutes les formules (je vais prendre 2 minutes pour les décortiquer)
Désolé, les écarts que j'avais étaient en mètre, et pour les seuils j'ai parlé en cm. Donc pas de problème un simple facteur 100 et tout fonctionne🙂

Et encore merci !!!

 

[Dugenou]

Re : calcul de seuils et de pourcentages un peu complexe

Re,

Si c'est ce qui te convient, voici une version un peu améliorée.

Affichage masqué en fonction du nombre de seuils
Ajout d'une colonne pour la valeur des écarts
facteur 100 pour la formule de calcul du nb d'écarts

Cordialement