recherche de valeur dans un tbaleau.

elwardi · 7 Juillet 2018

Bonjour,
je developpe un petit programme de calcul et je suis bloqué:voici mon problème:
Je calcule l'inertie d'un profilé cellule (G22) et je veux chercher dans un tableau que j'ai déja la valeur la plus proche de ma valeur que je calcule et afficher la ligne du tableau ou se trouve cette valeur avec une couleur .
Exemple ;je calcule et je trouve 22 je cherche dans le tableau la valeur la plus proche de 22 je trouve 23 j'affiche la ligne ou il y a cette valeur avec le rouge par exemple.
Vous trouvez ci-joint un exemple.
Merci pour votre aide.

JHA · 8 Juillet 2018

Bonjour à tous,

Un essai avec une formule matricielle

JHA

job75 · 8 Juillet 2018

Bonjour elwardi, JHA,

Il est évident que les calculs en C22:C25 et G22 sont faux.

Une flèche de 370370370 mm (370 km) en C23 cela fait tilt non ?

Quand le résultat en G22 sera correct créez une MFC sur le tableau Q19:S43 avec cette formule :

Code:

=ABS($R19-$G$22)=MIN(ABS($R$19:$R$43-$G$22))

A+

elwardi · 9 Juillet 2018

JHA à dit:
Bonjour à tous,

Un essai avec une formule matricielle

JHA

Merci beaucoup,

elwardi · 9 Juillet 2018

job75 à dit:
Bonjour elwardi, JHA,

Il est évident que les calculs en C22:C25 et G22 sont faux.

Une flèche de 370370370 mm (370 km) en C23 cela fait tilt non ?

Quand le résultat en G22 sera correct créez une MFC sur le tableau Q19:S43 avec cette formule :

Code:

=ABS($R19-$G$22)=MIN(ABS($R$19:$R$43-$G$22))

A+

Merci,

elwardi · 11 Juillet 2018

job75 à dit:
Bonjour elwardi, JHA,

Il est évident que les calculs en C22:C25 et G22 sont faux.

Une flèche de 370370370 mm (370 km) en C23 cela fait tilt non ?

Quand le résultat en G22 sera correct créez une MFC sur le tableau Q19:S43 avec cette formule :

Code:

=ABS($R19-$G$22)=MIN(ABS($R$19:$R$43-$G$22))

A+

Bonjour,
Votre solution marche super bien par contre j'aimerais bien que ça m'affiche dans le tableau la valeur la plus proche mais surtout pas qu'elle soit inférieur de ma valeur calculée:
exemple:inertie calculé 18.2 j'ai dans le tableau j'ai 18.1 et 19 c'est vrai que 18.1 est plus proche mais elle est inférieur donc ca va pas du coup la solution affiché ca sera le profilé qui a 19 comme inertie.
J'espère que je suis claire.
Merci d'avance.

job75 · 11 Juillet 2018

Bonjour elwardi, JHA,

elwardi à dit:
j'aimerais bien que ça m'affiche dans le tableau la valeur la plus proche mais surtout pas qu'elle soit inférieur de ma valeur calculée:

Formule de la MFC sur Q19:S43 :

Code:

=$R19-$G$22=MIN(SI($R$19:$R$43>=$G$22;$R$19:$R$43-$G$22))

A+

elwardi · 12 Juillet 2018

job75 à dit:
Bonjour elwardi, JHA,

Formule de la MFC sur Q19:S43 :

Code:

=$R19-$G$22=MIN(SI($R$19:$R$43>=$G$22;$R$19:$R$43-$G$22))

A+

Bonjour,
Vous pensez que ça sera possible d'afficher l'image associé au profilé choisie dans mon tableau?j'ai mis toutes les images dans la deuxième feuille du classeur dans une seule colonne et classé selon le classement du tableau.
Je suis un peu perdu je ne sais pas de quel chemin je dois passer.
Est ce que vous aurez une idée pour que je puisse arriver!
Merci pour votre aide.

job75 · 12 Juillet 2018

Bonjour elwardi,

elwardi à dit:
Vous pensez que ça sera possible d'afficher l'image associé au profilé choisie dans mon tableau?

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille "test" :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible As Range, sel As Range, s As Shape, mini#, c As Range, NomImage$
Set cible = [G22]
Application.ScreenUpdating = False
ActiveCell.Activate 'si un objet est sélectionné
Set sel = Selection 'mémorise
'---RAZ---
For Each s In Shapes
    If s.TopLeftCell.Address = "$D$33" Then s.Delete
Next
'---recherche de la ligne du profilé et du nom de l'image---
mini = 1000000
For Each c In [F33:F57]
    If c > cible And c - cible < mini Then mini = c - cible: NomImage = c.Offset(, -3)
Next
If NomImage = "" Then Exit Sub
[D33].Select
Feuil1.Shapes(NomImage).Copy
Paste
Selection.Top = ActiveCell.Top + 12
Selection.Left = ActiveCell.Left + 12
sel.Select 'sélection initiale
End Sub

L'image s'affiche quand on modifie ou valide une cellule quelconque.

Nota 1 : le 21ème profilé n'a pas d'image.

Nota 2 : votre MFC n'était pas correcte, je l'ai refaite.

A+

elwardi · 13 Juillet 2018

job75 à dit:

Bonjour elwardi,

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille "test" :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible As Range, sel As Range, s As Shape, mini#, c As Range, NomImage$
Set cible = [G22]
Application.ScreenUpdating = False
ActiveCell.Activate 'si un objet est sélectionné
Set sel = Selection 'mémorise
'---RAZ---
For Each s In Shapes
    If s.TopLeftCell.Address = "$D$33" Then s.Delete
Next
'---recherche de la ligne du profilé et du nom de l'image---
mini = 1000000
For Each c In [F33:F57]
    If c > cible And c - cible < mini Then mini = c - cible: NomImage = c.Offset(, -3)
Next
If NomImage = "" Then Exit Sub
[D33].Select
Feuil1.Shapes(NomImage).Copy
Paste
Selection.Top = ActiveCell.Top + 12
Selection.Left = ActiveCell.Left + 12
sel.Select 'sélection initiale
End Sub

L'image s'affiche quand on modifie ou valide une cellule quelconque.

Nota 1 : le 21ème profilé n'a pas d'image.

Nota 2 : votre MFC n'était pas correcte, je l'ai refaite.

A+

Super je vais tester ,et je vais revenir vers vous pour vous montrer le programme final .merci énormément

job75 · 13 Juillet 2018

Bonjour elwardi, le forum,

Voici une 2ème solution, sans VBA, dans le fichier joint.

Maintenant la cellule D33 contient la photo de la cellule contenant la Shape en feuille "donné".

Les Shapes doivent impérativement être positionnées dans l'ordre des cellules test!E33:E57.

Bonne journée.

job75 · 13 Juillet 2018

Re,

Du coup dans le fichier précédent j'ai simplifié la formule de la MFC sur E33:G57 :

Code:

=LIGNES(E$33:E33)=lig

Puisqu'on a défini des noms autant s'en servir.

A+

elwardi · 13 Juillet 2018

Cool,je vais tester et je vous tiens au courant.
Merci encore mille fois,
Cordialement,

elwardi · 16 Juillet 2018

regardez le fichier.
Cordialement,

job75 · 16 Juillet 2018

elwardi à dit:
regardez le fichier.
Cordialement,

Un petit bonjour non ? Alors BONJOUR A TOUS.

Avec plusieurs tableaux dans des feuilles différentes seule la solution par macro de mon post #9 peut fonctionner.

A+

recherche de valeur dans un tbaleau.

elwardi

Guest

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

elwardi

Guest

elwardi

Guest

elwardi

Guest

job75

XLDnaute Barbatruc

elwardi

Guest

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

elwardi

Guest

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

elwardi

Guest

elwardi

Guest

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires

recherche de valeur dans un tbaleau.

elwardi

Guest

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

elwardi

Guest

elwardi

Guest

elwardi

Guest

job75

XLDnaute Barbatruc

elwardi

Guest

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

elwardi

Guest

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

elwardi

Guest

elwardi

Guest

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency