Sujet Précédent Sujet Suivant

Excel - If Then Else

Résolu/Fermé
Ludozebest - 4 mars 2009 à 10:26
ROYA2 Messages postés 344 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 30 octobre 2011 - 25 avril 2009 à 10:53
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 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 714
4 mars 2009 à 10:53
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
4 mars 2009 à 14:31
Merci beaucoup
0
Réponse 2 / 6
ROYA2 Messages postés 344 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 30 octobre 2011 77
25 avril 2009 à 10:53
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 344 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 30 octobre 2011 77
25 avril 2009 à 08:13
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 344 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 30 octobre 2011 77
25 avril 2009 à 08:18
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 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
25 avril 2009 à 08:19
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 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 714
25 avril 2009 à 08:22
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