Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Recherche de X et Y selon dimensions L1 et L2

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Titi456

XLDnaute Junior
Bonjour,

Je recherche une formule à mettre en cellules H8 et H9 pour pouvoir trouver les dimensions X et Y selon les dimensions L1 et L2 (voir fichier joint).
Je conçois que ma question est plutôt orientée pour un ingénieur en calculs mais peut-être qu'il y en aurait qqn sur ce site qui pourrait m'aider.

Mes meilleures salutations,

Thierry
 

Pièces jointes

Trier par date Trier par votes
Bonjour,
C'est sympa comme question. Mais il manque des éléments à mon avis. Quelle est la valeur de R19 (rayon), et quelle relation peut on avoir pour trouver la valeur de X. Connait on la valeur de l'angle opposé à X. Les valeurs L1 et L2 comprennent elles les arcs de cercle R19.
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour fcyspm30,

Merci pour votre message. Le rayon R19 équivaut à un rayon de 19mm. Effectivement les distances L1 et L2 comprennent les arcs de cercle. Les angles ne sont pas connu malheureusement; raison pour laquelle ma question relève plutôt d'un ingénieur calculateur.

Meilleures salutations,

Thierry

​

 

Pièces jointes

Vote positif 0 Vote négatif
C'est la distance entre la hauteur (de longueur Y) par rapport au point central de mes deux poulies.

Si L1 = L2, X = 0
 

Pièces jointes

  • Recherche de X et Y selon dimensions L1 et L2.jpg
    50.6 KB · Affichages: 14
Dernière édition:
Vote positif 0 Vote négatif
Bonjour Titi456, le forum,

Je reviens tardivement sur ce fil avec une solution qui je pense est assez complète.

Voyez le fichier joint, les formules trigonométriques devraient être comprises par un élève de terminale.

La ligne donnant le résultat est la ligne 521 colorée par une MFC, j'ai fait 2 extrapolations autour.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Titi456, le forum,

Ceci est plus simple, voyez le nom défini lig et les formules en J32 et J33 :
Code: 
=PREVISION(0;DECALER(INDIRECT("C"&lig-4);;;4);DECALER(INDIRECT("G"&lig-4);;;4))
=PREVISION(0;DECALER(INDIRECT("D"&lig-4);;;4);DECALER(INDIRECT("G"&lig-4);;;4))
On voit mieux quelles sont les plages utilisées.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour le forum,

Je viens terminer proprement ce fil.

Pour avoir une meilleure précision il faut utiliser un pas de 0,001 degré.

Mais avec les fichiers précédents il faudrait un tableau de 90 000 lignes et faire 8 100 000 000 itérations pour les calculs de la distance en colonne G, ce n'est pas envisageable.

Par contre en ajoutant la colonne H et en utilisant cette fonction VBA il n'y a pas de problème :
VB: 
Function MaPrevision(Entraxe#, R#, L1#, L2#, lig1&, lig2&)
Dim p#, a(0 To 200, 1 To 4), b(0 To 200, 1 To 4), i&, min1#, min2#, j&, d#, X#, Y#
p = Application.Pi()
a(0, 1) = Cells(lig1 - 1, 1)
b(0, 1) = Cells(lig2 - 1, 1)
For i = 0 To 200
    a(i, 1) = a(0, 1) + i / 1000 'angle en degré, pas de 0.001
    a(i, 2) = a(i, 1) * p / 180 'angle en radian
    a(i, 3) = -Entraxe / 2 - R * Cos(a(i, 2)) + (L1 - R * a(i, 2)) * Sin(a(i, 2)) 'X1
    a(i, 4) = R * Sin(a(i, 2)) + (L1 - R * a(i, 2)) * Cos(a(i, 2)) 'Y1
    b(i, 1) = b(0, 1) + i / 1000 'angle en degré, pas de 0.001
    b(i, 2) = b(i, 1) * p / 180 'angle en radian
    b(i, 3) = Entraxe / 2 + R * Cos(b(i, 2)) - (L2 - R * b(i, 2)) * Sin(b(i, 2)) 'X2
    b(i, 4) = R * Sin(b(i, 2)) + (L2 - R * b(i, 2)) * Cos(b(i, 2)) 'Y2
Next i
min1 = 9 ^ 99
For i = 0 To 200
    min2 = 9 ^ 99
    For j = 0 To 200
        d = Sqr((a(i, 3) - b(j, 3)) ^ 2 + (a(i, 4) - b(j, 4)) ^ 2) 'distance des extrémités
        If d < min2 Then min2 = d
    Next j
    If min2 < min1 Then min1 = min2: X = a(i, 3): Y = a(i, 4)
Next i
MaPrevision = Array(X, Y) 'vecteur horizontal
End Function
On peut vérifier les résultats en faisant L1=L2 et en allant jusqu'à 800 000 mm...

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour le forum,

Ce n'était pas fini.

Avec ce code on peut atteindre la précision que l'on veut, ici 0,00001 degré :
VB: 
Function MaPrevision(Entraxe#, R#, L1#, L2#, lig1&, lig2&)
Dim p#, pas#, inia#, inib#, N%, a(0 To 20, 1 To 4), b(0 To 20, 1 To 4)
Dim i&, min1#, min2#, j&, d#, temp#, X#, Y#
p = Application.Pi()
pas = 0.1 'pas initial
inia = Cells(lig1 - 1, 1)
inib = Cells(lig2 - 1, 1)
For N = 1 To 4 'pour atteindre une précision de 0,00001 degré
    pas = pas / 10
    a(0, 1) = inia
    b(0, 1) = inib
    For i = 0 To 20
        a(i, 1) = a(0, 1) + pas * i 'angle en degré
        a(i, 2) = a(i, 1) * p / 180 'angle en radian
        a(i, 3) = -Entraxe / 2 - R * Cos(a(i, 2)) + (L1 - R * a(i, 2)) * Sin(a(i, 2)) 'X1
        a(i, 4) = R * Sin(a(i, 2)) + (L1 - R * a(i, 2)) * Cos(a(i, 2)) 'Y1
        b(i, 1) = b(0, 1) + pas * i 'angle en degré
        b(i, 2) = b(i, 1) * p / 180 'angle en radian
        b(i, 3) = Entraxe / 2 + R * Cos(b(i, 2)) - (L2 - R * b(i, 2)) * Sin(b(i, 2)) 'X2
        b(i, 4) = R * Sin(b(i, 2)) + (L2 - R * b(i, 2)) * Cos(b(i, 2)) 'Y2
    Next i
    min1 = 9 ^ 99
    For i = 0 To 20
        min2 = 9 ^ 99
        For j = 0 To 20
            d = Sqr((a(i, 3) - b(j, 3)) ^ 2 + (a(i, 4) - b(j, 4)) ^ 2) 'distance des extrémités
            If d < min2 Then min2 = d: temp = b(j, 1)
        Next j
        If min2 < min1 Then min1 = min2: inia = a(i, 1) - pas: inib = temp - pas: X = a(i, 3): Y = a(i, 4)
    Next i
Next N
MaPrevision = Array(X, Y) 'vecteur horizontal
End Function
Pour L1 = L2 = 800000 mm on obtient X = -0,02162 mm.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2010 Formule de recherche spécifique
Réponses
6
Affichages
178
TooFatBoy
T
  • Résolu(e)
XL 2010 Formule - Recherche dans tableau
Réponses
2
Affichages
362
tchi456
T
  • Question Question
XL 2010 Modification coordonnées x et y d’un graphique st valeur de cellules
2
Réponses
19
Affichages
75
jeanmi
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
195
p56
S
  • Question Question
Microsoft 365 Formule "SI.MULTIPLES"
Réponses
2
Affichages
671
Stef34
S
T
  • Résolu(e)
XL 2010 VAB - Lister et renommer fichiers en bloc
Réponses
6
Affichages
391
tchi456
T
T
  • Résolu(e)
XL 2010 Formule recherche spécifique
Réponses
2
Affichages
560
Titi456
T
T
  • Résolu(e)
XL 2010 Recherche dans tableau
Réponses
3
Affichages
379
Titi456
T
A
  • Question Question
Microsoft 365 Recherche Valeur ET un (si ≥ X et Si ≤ Y)
Réponses
3
Affichages
544
ALS35
A
T
  • Résolu(e)
XL 2010 VBA - Lister fichiers et décortiquer le nom des fichiers dans colonne A et B
Réponses
5
Affichages
464
sylvanu
D
  • Question Question
Microsoft 365 formules avec double conditions préalables et plusieurs conditions selon des niveaux de délégations
Réponses
2
Affichages
444
Daniel200666
D
T
  • Résolu(e)
XL 2010 VBA - Bouton lister fichiers et bouton renommer ces fichiers
Réponses
4
Affichages
602
Titi456
T
T
  • Résolu(e)
XL 2010 Formule - Recherche selon 4 critères dans 3 autres feuilles
Réponses
6
Affichages
587
tchi456
T
B
  • Résolu(e)
Microsoft 365 Formule Excel : Colonne selon date du jour
Réponses
4
Affichages
703
djidji59430
T
  • Résolu(e)
XL 2010 Arrondi au multiple selon condition
Réponses
3
Affichages
380
job75
T
  • Résolu(e)
XL 2010 Formule - Si 2 cellules non vides sur une plage de cellules
Réponses
5
Affichages
662
Titi456
T
T
  • Résolu(e)
XL 2010 Liste déroulante dynamique et fonction RECHERCHE
Réponses
4
Affichages
598
tchi456
T
D
  • Question Question
XL 2021 report automatique de donnees
Réponses
3
Affichages
281
DomL
D
A
  • Résolu(e)
XL 2016 Plage de données fixes pour calcul dans formule
Réponses
3
Affichages
376
sylvanu
A
  • Question Question
XL 2019 Formule SI ou autre
Réponses
4
Affichages
448
amienois80
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…