Discussion :

[Nounours1]

Bonjour,

En VBA est-il possible de définir une valeur cible avec des bornes Mini et Maxi sur la valeur cible "cellule à modifier" ?

Par exemple mini = 38 maxi = 45
La macro devrait tenir compte de ces paramètres, pour ne pas passer en dessous de 38 et pas au dessus de 45.

Par exemple en A1 = A3*B2
En A2 = B2*A1 (Valeur à atteindre = 39)
En A3 cellule à modifier, chiffre entre 38 et 45 sur cette cellule.

Les bornes Mini et Maxi seront en B7 pour Mini et C8 pour Maxi.

En B3 = 39 chiffre à prendre en compte pour le calcul de la cellule A2. pour exemple.
je suis sur qu'il y a bien un crack sur ce forum pour résoudre mon problème.

Merci,
Bonne soirée et bon dimanche.

[Overcrash]

Bonjour,

J'ai pas bien compris je pense.
Mais tu veux borner une cellule modifiable avec un maximum ou minimum ?

Si oui tu peux sur un change.
Si value inférieur à borneMax ET value supérieur à borneMin alors
Message 'je suis dans les clous !


Overcrash.

[419]

Moi je serais plutôt sur un calcul de valeur cible puis si le résultat est en dessous du Mini, appliquer valeur cible sur le Mini, ou si résultat est supérieur à Maxi, appliquer valeur cible sur Maxi sinon garder le résultat trouvé..

[Nounours1]

Bonsoir,

Oui 419, c'est bien ça que je recherche.

Merci à vous deux.
Si vous avez un exemple sur un classeur cela serait parfait.

Bonne soirée.
@+

[419]

Ton problème n'est pas très complexe.
si tu fais l'enregistreur de macro, tu ponds une valeur cible
après tu trouves un si au dessus alors valeur cible, si au dessous blabla.

J'ai fait truc rapide qui est loin d'être parfait mais ça a l'air de mouliner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro2()
'
' Macro2 Macro
'
Dim Resultat As String
Range("A2").GoalSeek Goal:=Range("b2"), ChangingCell:=Range("A3") 'tu calcules ta valeur cible
 
Resultat = Range("a2").Value ' tu chopes le résultat
 
If Resultat < Range("b7").Value Then 'si ce résultat est en dessous de ton mini 
   Range("A2").GoalSeek Goal:=Range("b7"), ChangingCell:=Range("A3") 'tu refais ta valeur cible au mini
Else
   If Resultat > Range("c8").Value Then 'idem pour le maxi
   Range("A2").GoalSeek Goal:=Range("c8"), ChangingCell:=Range("A3")
 
   Else
Range("A2").GoalSeek Goal:=Range("b7"), ChangingCell:=Range("A3") 'sinon c'est la valeur cible de base
 
End If
End If
 
 
End Sub

[Nounours1]

Merci, j'ai compris le principe, je vais travailler sur ton exemple.

Bonne soirée,
Cordialement