Problème de fonction si

Bonjour,
J'aimerais savoir comment faire pour donner plusieurs instruction dans une fonction si, c'est à dire que je voudrais que ma fonction fasse :
si la valeur de la cellule A10 de la feuill recup est different de 0
alors ouverture de splash1 et de la feuill accueil et de splash2
sinon ouverture de la feuill accueil et de splash 1
voici mon code merci d'avance

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() Sheets("recup").Activate If (R10C0 <> "") Then Splash1.Show Sheets("Accueil").Activate Sheets("Accueil").Range("a1").Select Splash1.Show End Sub

---

en VBA

condition IF

Code:

---

1 2 3 4 5

if (condition=vrai) THEN ....INSTRUCTION ELSE ....INSTRUCTION SI CONDITION FAUSSE END IF

---

If (ta condition) And (ton autre condition)

Then (ce que tu veux faire)

Else( autre que tes conditions)



Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Message() Application.ScreenUpdating = False Sheets("Rapport").Select For i = 2 To 1000   acquit = Cells(i, 2) acquit1 = Cells(i, 1)   If acquit = "" And Not IsEmpty(acquit1) Then 'si la cellule acquit est vide et que la cellule acquit1 est remplis alors .....   Sheets("Rapport").Select Result = Cells(Range("A1").End(xlDown).Row, 1).Value   MsgBox "depassement:" & Result 'faire apparaitre mon message     Else'au sinon partir sur la feuille rapport Sheets("Rapport").Select   End If Next i Sheets("Saisie").Select Application.ScreenUpdating = True End Sub

---

tu as compris?

Bonjour CelineM


Le bloc IF..... Then......Else.......EndIf

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If condition then reàlisation des commandes si la contion est respectée else ' sinon realisation des commandes si la condition est fausse end if

---

bon apres-midi