Problème pour traduire une fonction Excel en VBA [Résolu]

[Magic_Doctor]

Bonjour,

Dans ma feuille j'ai rédigé cette fonction (intrication de fonctions) qui marche :

=MIN(DECALER($B$5;1;2;EQUIV($C$2;$B$6:$B$38;0)))

J'ai tenté de la traduire pour une macro :

Sub zaza()

Dim myRange As Range, pos, b
Dim mini As Double


Set myRange = Worksheets("Tableaux").Range("B6:B38")
pos = Application.WorksheetFunction.Match([C2], myRange, 0) 'OK
b = Application.WorksheetFunction.Offset([B5], 1, 2, pos) 'ça coince

mini = Application.WorksheetFunction.Min(b)

End Sub

Comment s'y prendre ?

 

[Staple1600]

Bonjour le fil, le forum

@Magic_Doctor

Comment s'y prendre ?

Oui comment s'y prendre sans fichier exemple pour tester nos éventuelles propositions...

 

[Magic_Doctor]

Bonjour Staple1600,

En effet, j'aurais pu joindre un fichier, mais ça ne me semblait pas indispensable vue la question.

Je joins donc.

J'explique :

la valeur minimale de l'axe des ordonnées de mon graphique est celle trouvée dans les 2 colonnes variables du tableau ("N tatonnement" & "N Excel").
Dans la cellule "J24" j'obtiens cette valeur.

Dans le module de feuille, cette valeur est récupérée pour ajuster l'axe des ordonnées.
Plutôt que d'écrire la fonction qui me donne cette valeur sur la feuille, je voulais tout simplement l'écrire directement au sein du module de feuille.

 

[Staple1600]

Re

Je me complique pas la vie

Sub zaza()
mini = [=MIN(OFFSET($B$5,1,2,MATCH($C$2,$B$6:$B$38,0)))]
MsgBox mini
End Sub

donc en corrigeant (au niveau de la référence de cellule) ta macro initiale

Sub romi()
x = [=MIN(OFFSET($B$5,1,2,MATCH($C$2,$B$6:$B$38,0)))]: [J24] = x * 1
End Sub

 

[Magic_Doctor]

Re,

Effectivement, c'est plus simple !
Je ne connaissais pas cette syntaxe.
Mais pourquoi multiplier x par 1 ?

En tout cas, merci.

 

[Staple1600]

Re

Parce que ça me fait plaisir

 

[Modeste geedee]

Bonsour®

Bonjour,
Dans ma feuille j'ai rédigé cette fonction (intrication de fonctions) qui marche :
=MIN(DECALER($B$5;1;2;EQUIV($C$2;$B$6:$B$38;0)))
J'ai tenté de la traduire pour une macro

d'abord traduire dans la langue US
puis ensuite faire un [evaluate ]comme proposé par Stapple1600

Function LireF(target, Optional info As Integer)
Select Case info
Case 1
LireF = "'" & target.Formula
Case 2
LireF = "'" & target.FormulaR1C1
Case 3
LireF = "'" & target.FormulaR1C1Local
Case Else
LireF = "'" & target.FormulaLocal
End Select
End Function

 

[Magic_Doctor]

Et oui. Chacun trouve son plaisir où il peut...

 

[Staple1600]

Re, Bonjour Modeste geedee

Re,
Je ne connaissais pas cette syntaxe.

En es-tu si sûr ?
https://www.excel-downloads.com/threads/problème-avc-la-fonction-evaluate.200979/

 

[Magic_Doctor]

Effectivement, j'avais complètement oublié ce fil.
Il faut dire, mon vieux, que je ne fais pas ça toute la journée. Ça me prend par périodes, en fonction de mes desiderata... Un peu comme la pêche à la mouche pour d'autres...
Pero, caramba, vos ¡que memoria!

 

[Staple1600]

Re

Pour le plaisir (bis)

Sub PourLeFun()
Dim r As Range: Set r = Range("$D$6:$D$38")
    With Application.WorksheetFunction
        mini = .Index(r, .Match(.Min(r), r, 0))
        maxi = .Index(r, .Match(.Max(r), r, 0))
    End With
MsgBox mini
MsgBox maxi
End Sub

 

[Si...]

Bon_jour

édition : proposition effacée car inadéquate

 

[Magic_Doctor]

Bonjour Si...

Le problème est que, suivant le pourcentage choisi (quand celui-ci < 100%), le tableau est tronqué.
Avec votre proposition on est toujours dans un tableau complet.

 

[Staple1600]

Re

@Magic_Doctor
Et quid de la macro du message#11 ?
Elle fonctionne non (et sans "formule") ?

 

[Magic_Doctor]

Re,

À moins qu'un problème soit très simple, toute réponse mérite réflexion (donc un peu de temps), et, n'oublie pas que ne suis pas à Perpignan (centre du monde) mais à Montevideo (décalage...).
Bref, pour bien expliquer le dernier problème, j'ai voulu réduire mon document, mais trop long. Donc je mets tout.
J'ai essayé tes 2 solutions. Chez moi, seule la 1ère (Evaluate) fonctionne (aller dans le module de feuille pour tester. J'y ai mis les 2 solutions).
Pas d'affolement, les seuls tableaux qui nous intéressent sont les 4 derniers, ceux avec chacun une courbe.
On peut choisir la concentration à partir de plusieurs cellules : AD9, AN9, AX9 & BI9 (toutes avec listes déroulantes). Chaque fois que l'on choisit une concentration dans une de ces cellules, les autres prennent la même valeur.
La 1ère cellule (AD9) pourrait s'appeler "cellule mère".

Tout est expliqué, il suffit maintenant de choisir une concentration dans l'une quelconque de ces 4 cellules.
Si je choisis un pourcentage à partir de la cellule mère (AD9), tout marche très bien.
En revanche, si je choisis un pourcentage dans l'une des 3 autres cellules, le graphique correspondant à Calcul de N par la fonction "DROITEREG" ne se met pas à jour ; pour ce faire, il faut cliquer, dans la liste déroulante, une deuxième fois sur le même item. Pas pratique...

Ma question est : comment résoudre ce dernier problème ?