Excel - If Then Else

Résolu
Ludozebest -  
ROYA2 Messages postés 369 Statut Membre -
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
A voir également:

6 réponses

Réponse 1 / 6
gbinforme Messages postés 15478 Statut Contributeur 4 727
 
bonjour


Je suppose que c'est la syntaxe que tu cherches, alors ainsi cela fonctionne : 
If Application.WorksheetFunction.Sum(ActiveSheet.[A1:A10]) > 20 Then
    MsgBox "Message 1"
Else
    MsgBox "Message 2"
End If
9
Ludozebest
 
Merci beaucoup
0
Réponse 2 / 6
ROYA2 Messages postés 369 Statut Membre 77
 
Merci pour vos réponse, mais en fait ce que j'avais écrit dans le post numéro 4 fcontionne...

Tant que ca fonctionne...je ne simplifie pas...

A+
3
Réponse 3 / 6
ROYA2 Messages postés 369 Statut Membre 77
 
Bonjour j'ai une autre question du même type sauf que moi c'est : 

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 Sub
2
Réponse 4 / 6
ROYA2 Messages postés 369 Statut Membre 77
 
lol, je suis bête^^

Il suffisait de remplacer :

If Application.WorksheetFunction.Sum(ActiveSheet.[A1:A10]) > 20 Then
(Reponse de Gbinforme)

par

If Application.WorksheetFunction.Sum(ActiveSheet.[C11]) > 3 Then
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
wilfried_42 Messages postés 912 Statut Contributeur 245
 
Bonjour

en fonction de ce que j'ai compris 
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
0
Réponse 6 / 6
gbinforme Messages postés 15478 Statut Contributeur 4 727
 
bonjour

Tu dois pouvoir modifier ainsi car tu n'as pas besoin des "select" rajoutés par l'enregistreur. 
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

edit :
Trop tard et bonjour à Wilfried...
0