Discussion :

[CélineM]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeXo]

en VBA

condition IF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if (condition=vrai) THEN
....INSTRUCTION
ELSE
....INSTRUCTION SI CONDITION FAUSSE
END IF

[Thomas69]

If (ta condition) And (ton autre condition)

Then (ce que tu veux faire)

Else( autre que tes conditions)



Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[wilfried_42]

Bonjour CelineM


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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