Discussion :

[fmris]

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 :

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

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

[ouskel'n'or]

Par la formule

Code :

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

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

Si tu veux insérer par la macro,

Code :

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

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

A+

[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 ?

[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 ?

[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

[ouskel'n'or]

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 :

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

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

[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

[ouskel'n'or]

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

Code :

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

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