macro fonction et concaténation!

[bonsouarmessieux]

Bonjour!
Je voudrais soustraire deux valeurs DMin et DMax grâce à une macro et je souhaite que le résultat soit présenté sous la forme d'une formule dans la cellule A1. Cependant, mon code ne fonctionne pas. Pourriez vous m'aider?

Sub Différence()
    DMin = 8
    DMax = 8.27
    Cells(1, 1).Formula = "=" & DMax & "-" & DMin
End Sub

 

[mutzik]

Re : macro fonction et concaténation!

bonjour,

je me pose juste la question poourquoi tu veux passer par une fonction + du vba pour faire ce que excel sait faire avec des fonctions de base

 

[bonsouarmessieux]

Re : macro fonction et concaténation!

Pourquoi ai je posé une question aussi bizzzar?
Je suis entrain de faire une macro qui va me calculer tout un tas de valeur (dont DMin et DMax), et me faire les graphiques coresspondant. J'ai ensuite besoin d'optimiser une valeur à l'aide de solver et cela de façon itérative (impossible à faire manuellement). Or le solver requière que la case cible soit sous la forme d'une fonction.
Le problème que j'ai présenté plus haut est donc simplifié à l'extrème mais si vous parvenez à le résoudre, je pourrait probablement resoudre le mien beaucoup plus complexe.
Voili voilou

 

[bonsouarmessieux]

Re : macro fonction et concaténation!

Si quelqu'un a une idée pour résoudre mon problème...😀

 

[Hervé]

Re : macro fonction et concaténation!

bonjour

pas sur d'avoir compris, mais à essayer :

ta fonction personnalisée :

Public Function difference(dmax As Double, dmin As Double)
difference = dmax - dmin
End Function

ensuite, il te reste plus qu'a saisir la formule :

=difference(8,27;8)

salut

 

[bonsouarmessieux]

Re : macro fonction et concaténation!

En m'inspirant de ce que m'a conseillé Hervé, j'ai écrit le code suivant:

Public Function différence(dmax As Double, dmin As Double)
    différence = dmax - dmin
End Function
Sub AjoutFonctionEnA1()
    
    dmax = 8.27
    dmin = 8
    
    Cells(1, 1).Formula = "=différence(" & dmax & "," & dmin & ")"
    
End Sub

Ce code marche très bien si dmin et dmax sont des entiers et il plante quand (comme dans le code ci-dessus) dmin et dmax sont des nombres à virgule. Comment corriger ce problème?

 

[bonsouarmessieux]

Re : macro fonction et concaténation!

quelqu'un aurait il une solution?