Pb fonction max pour une cellule

Version imprimable

22/11/2006, 12h45
fmris

Pb fonction max pour une cellule
Bonjour
je souhaite réalisé cette macro de telle maniere que lorsque la condition if est remplie, la valeur de la cell ("ei38") prenne la valeur la plus grande (dc le max) de cette formule 0.02 * (100 - Range("ek29").Value ou 0.8
Le code suivant ne fonctionne evidement pas !!! et je nai pas trouve cle code adequat
merci de votre aide
Code:

1 2 3 4 5 If Range("ee21").Value >= 20 And Range("ee21").Value <= 75 Then Range("ei38").Value = "=MAX((0.02 * (100 - Range("ek29").Value)), 0.8)" End If
22/11/2006, 12h55
ouskel'n'or

Par la formule

Code:

=SI(E20>=20;SI(E21<=75;SI(E20>E21;E20;SI(E21>E20;E21))))

Si tu veux insérer par la macro,

Code:

Range("F25").FormulaLocal = "=SI(E20>=20;SI(E21<=75;SI(E20>E21;E20;SI(E21>E20;E21))))"

A+
22/11/2006, 13h01
fmris

ca ok ca aurait plus simple pour moi ms le souci ce que cette macro doit etre declenché par un bouton et je recherche une macro simple (comme l'exemple (bon daccord il est faux mais ds l'esprit c ca ke je recherche)
quelqu'un a une solution ?
22/11/2006, 13h09
SfJ5Rpw8

voir l'utilisation des fonctions de feuilles de calcul excel en VBA ..
A quoi sert la propriété WorksheetFunction ?

Comment trouver la traduction anglaise d'une fonction de feuille de calcul ?
22/11/2006, 13h19
fmris

si la fonction worksheetfunction correspond a ma demande je suis oblige de passe par une cellule intermediaire ou jeffectue mon calcul precedent (0.02 * (100 - Range("ek29").Value) ce qui marrange pas car cette formule est changeante suivan tdotre criteres et dc il fodrai kel soit integré comme ds mon exemple
merci

Quel est ton pb ? Déclencher la macro avec le bouton ou la formule à placer dans la macro elle-même ?
Si c'est la formule,

Code:

1
2
3
4
5
6
7
8
9
10
11
If Range("E20").Value >= 20 And Range("E21").Value <= 75 Then
     If Range("E20").Value > Range("E21").Value Then
          Range("E25").Value = Range("E20").Value
          'tu remplaces par ton calcul
       ElseIf Range("E21").Value > Range("E20").Value Then
          Range("E25").Value = Range("E20").Value
          'tu remplaces par ton calcul
       Else
          MsgBox "Les deux valeurs sont identiques"
     End If
End If

Tu dis ;)

NB - Evite le sms (interdit sur le forum) et lis les règles du forum, elles peuvent t'aider ;)

22/11/2006, 13h23
fmris

jpens que je me fais mal comprendre
jsuis ok avec ton code ms ce ki minteresse c le style de code que g ecrit en premier, cad savoir si il ya une fonction max qui permet d'integrer mes deux criteres (0.02 * (100 - Range("ek29").Value, 0.8)
il faut savoir que ce code je vai l'ecrire plusieurs fois et ce sera plus lisible a relire
merci

Je ne comprends pas ton max où tu n'as que deux proposition mais bon, en faisant avec, on peut faire ça
Code:

1 2 3 4 5 6 7 If Range("E20").Value >= 20 And Range("E21").Value <= 75 Then If 0.02 * (100 - Range("e29").Value) > 0.8 Then Range("e38").Value = 0.02 * (100 - Range("e29").Value) else ' ?????????? End If End If
Si je n'ai rien compris, faudra que tu me dises ce qui me manque ;)

22/11/2006, 14h42
fmris

si ton code fonctionne bien, ce ki me gene c la "lourdeur" du code et je me posais la question de savoir si une fonction qui renverra le max des 2 (0.02 * (100 - Range("ek29").Value ou 0.8) un peu comme la fction max utilisé directement ds les cellules sof ke la je cherche a la mettre ds une macro
jespere avoir ete clair

donc si tu dois l'utiliser plusieurs fois tu peu créer ta propre fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'  Range("ei38").Value = "=MAX((0.02 * (100 - Range("ek29").Value)), 0.8)"
'
' Pour l'utiliser :
' Range("ei38").value = MaFonction(Range("ek29"))
Function MaFonction(r As Range) As Double
 Dim dTest As Double
 dTest = (0.02 * (100 - r.Value))
 If dTest > 0.8 Then
   MaFonction = dTest 'Retourne .. dTest
 Else
   MaFonction = 0.8
 End If
 
 
End Function

bonjour
Code:

1 2 3 4 Dim x As Double x = 0.02 * (100 - Range("EF29").Value) MsgBox Application.WorksheetFunction.Max(x, 0.8)
ps:
merci de ne plus écrire en SMS (dernier rappel)

michel

jai enfin reussi a me faire comprendre !!!!!
voici le code qui fonctionne et qui me convient

Code:

1
2
3
4
5
6
If Range("ee21").Value >= 20 And Range("ee21").Value <= 75 Then
 
            Range("ei38").Value = Application.WorksheetFunction.Max(0.02 * (100 - Range("Ek29")), 0.8)
 
 
        End If

merci à tous !