Bonjour,
Je souhaite créer une macro excel avec les fonctions if then else.
Ce que je souhaite c'est :
SI (If) : Somme (A1:A10) > 20
ALORS (Then) : MsgBox "Message 1"
SINON (Else) : MsgBox "Message 2"
Merci pour votre aide,
LD
Sub Calculer()
'
' Calculer Macro
' Macro enregistrée le 25/04/2009 par Moi
'
'
Si (If) : La valeur de la cellule C11 est supérieur ou égale à 3
Else
Range("H11").Select
ActiveCell.FormulaR1C1 = "Mon message 1"
Range("H12").Select
ActiveCell.FormulaR1C1 = "Mon message 2"
Else
Range("H11").Select
ActiveCell.FormulaR1C1 = "Mon message 3"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=C12/(C11*C11)"
End If
End SubIf Application.WorksheetFunction.Sum(ActiveSheet.[A1:A10]) > 20 Then
MsgBox "Message 1"
Else
MsgBox "Message 2"
End If
Sub Calculer()
if range("C11")>3 then
Range("H11") = "Mon message 1"
Range("H12") = "Mon message 2"
Else
Range("H11") = "Mon message 3"
Range("H12").Formula = "=C12/(C11*C11)"
End if
End Sub
Sub Calculer()
If Range("C11").Value >= 3 Then
Range("H11").FormulaR1C1 = "formule 1"
Range("H12").FormulaR1C1 = "formule 2"
Else
Range("H11").FormulaR1C1 = "formule 3"
Range("H12").FormulaR1C1 = "=C12/(C11*C11)"
End If
End Sub
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.