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:

Excel else if
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

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 684
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

Ludozebest
4 mars 2009 à 14:31

Merci beaucoup

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+

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

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

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 242
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

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 684
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...

Newsletters