Pb Calcul de la longueur d'un Escargot

[Paritec]

Bonjour Le Forum,
J'ai un problème pour définir le nombre de tour que je dois faire pour obtenir une longueur souhaitée.
En fait j'enroule sur un mandrin, un fil plat de 0.28 mm d'épaisseur et donc à chaque tour le diamètre augmente et donc la longueur de chaque tour augmente.
Comment donc faire pour dans mon userform1 entrer dans la textbox1 la longueur en mètres et obtenir le nombre de tour à faire dans la textbox 2?
j'espère avoir été assez clair, enfin regardez le fichier joint et vous aurez la suite des données si besoins.
dans l'attente de vos réponses
amicalement
Papou

 

[wilfried_42]

Re : Pb Calcul de la longueur d'un Escargot

Bonjour

La circonference d'un cercle= pi * Diamettre

Donc prende le diametre du mandrin : Dm * 3.1416 donnera la longeur du premier tour

0.28 etant l'epaisseur, la multiplier par 2, le diametre du mandrin pour le 2eme tour sera de Diametre Du mandrin d'origine + (0.28 * 2)

Progrssivement : le diametre du mandrin prendra les valeurs :
Diametre Mandrin + (nombre de tour * (0.28 * 2))

les circonferences progressives

(Diametre Mandrin + (nombre de tour * (0.28 * 2))) * 3.1416

 

[Paritec]

Re : Pb Calcul de la longueur d'un Escargot

Bonjour Wilfried, bonjour le forum
Oui ok je suis d'accord avec toi sur le principe que je connais bien puisque si tu regardes en feuille 1 de mon fichier joint tu retrouves ce que tu m'as dit.
Mais maintenant comment rentrer ma longueur en Textbox 1 et avoir le résultat en Textbox2
Moi j'ai éssayé et je n'y arrive pas
a+
Papou

 

[wilfried_42]

Re : Pb Calcul de la longueur d'un Escargot

re:

une fonction personalisée à mettre dans un module

Public Function calcul_tour(Diametre As Double, Epaisseur As Double, longueur As Double) As Long
        Dim drapeau As Boolean, prog As Double
        drapeau = False
        While drapeau = False
               If prog + ((Diametre + (calcul_tour * (Epaisseur * 2))) * 3.1416) > longueur Then
                     drapeau = True
               Else
                     prog = prog + ((Diametre + (calcul_tour * (Epaisseur * 2))) * 3.1416)
                     calcul_tour = calcul_tour + 1
               End If
        Wend
End Function

utilisation : Formule
=calcul_tour(Diametre du mandrin ; Epaisseur du fil ; Longueur)

pour un texbox
texbox2 = cstr(calcul_tour(Diametre du mandrin ; Epaisseur du fil ; Longueur))

 

[Paritec]

Re : Pb Calcul de la longueur d'un Escargot

Re Wilfried re le forum
Je te remercie Wilfried je vasi essayé de mettre cela en place
mais je ne te cache pas que pour moi ce sera dur enfin j'essaye de suite et je reviens vers toi
a+
Papou

 

[Lord Nelson]

Re : Pb Calcul de la longueur d'un Escargot

Salut à tous,

Voici une solution possible qui s'appuie sur ton tableau :

Private Sub TextBox1_Change()
Dim a As Double, CL As Range
If TextBox1 = "" Then TextBox2 = ""
If TextBox1 = "" Then Exit Sub

For Each CL In Sheets("Feuil1").Range("D4:D77")
  If CL > TextBox1 * 1000 Then
    a = CL.Offset(-1, -2) 'Nombre entier de tours
    a = a + (TextBox1 * 1000 - CL.Offset(-1, 0)) / CL.Offset(0, -1)
    Exit For
  End If
Next
TextBox2 = Format(a, "00.00 Tour")
End Sub

La boucle recherche dans la colonne D la première valeur supérieure à celle qui a été saisie.
On en déduit le nombre de tours entiers puis on y ajoute la fraction de tour.

Pour vérification, tu trouveras l'équivalent de ce code en colonne G avec les fonctions INDEX et EQUIV.

A+
Horatio

 

[sousou]

Re : Pb Calcul de la longueur d'un Escargot

Bonjour
Un nouveau userform

 

[Paritec]

Re : Pb Calcul de la longueur d'un Escargot

Bonjour Sousou bonjour le forum
Sousou je viens d'essayer mais cela ne me donne pas le bon résultat
en fait le résultat que je devrais obtenir et en feuille1 Colonne D longueur totale en mm
là avec ton user c'est bien mais je n'obtient pas le bon nombre de tour!!!
Ou alors j'ai mal fait mais c'est trés explicite ton userform alors
je recommence
a+
papou

 

[Paritec]

Re : Pb Calcul de la longueur d'un Escargot

Re Sousou, re le forum
J'ai vraiment pas compris ce que tu as fait et pourquoi, mais il apparaît que contrairement a ce que je t'ai dit dans mon post précédent cela marche trés bien.
Je n'ai plus qu'a mettre en place avec mes valeurs fixe et c'est bon
bonne journée
merci également a Wilfried
a+
Papou

 

[sousou]

Re : Pb Calcul de la longueur d'un Escargot

RE
J'ai exactement fait ce que tu fait dans tes formules!, mais dans une boucle macro
En gros
tant que la longueur du fil est inférieur à la circonférence,
je soustrai la circonférence à la longueur
je compte un tour
je modifie le diamètre + deux épaisseurs

et je recommence.

A la fin on obtient uin nombre de tour+ un reste de fil qui ne fait plus le tour.

 

[Lord Nelson]

Re : Pb Calcul de la longueur d'un Escargot

Salut à tous !

Voici une version indépendante du tableau pour effectuer le calcul pour toute longueur, y compris moins d'un tour complet.

A+
Horatio

 

[Paritec]

Re : Pb Calcul de la longueur d'un Escargot

Bonsoir Lord Nelson, bonsoir Sousou, bonsoir le forum,
Alors Lord Nelson c'est bien exactement ce que je voulais je te remercie beaucoup, c'est vraiment du bon boulot, hélas je n'ai pas compris pourquoi cela marche bien mais bref.
Sousou toi ta version est aussi bonne, sauf que quand je fais à l'ouverture Diam = A4 et Ep = A2 là si je donne la longueur et calcul,cela me donne un résultat faux.
J'ai trouvé pourquoi et j'ai pas su résoudre!!! en fait des l'ouverture de l'user la valeur de A4 et A2 se mettent en place """mais avec une virgule""". 0,3 et 92,2
Et le calcul quand tu donnes la longueur, si c'est avec une virgule cela donne un résultat faux, si c'est avec un point c'est bon, là c'est encore un mystère de plus pour moi.
En tout cas merci à tous trois Wilfried, Sousou et Lord Nelson bonne soirée
amicalement
Papou

PS: Sousou si tu peux essayer et me dire pourquoi avec une virgule cela ne marche pas !! j'apprendrai encore un truc ce soir