1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120
| Option Explicit
Dim Msg As String
Private Sub Command1_Click()
Msg = "Condition: que le champs1 renseigné" & vbNewLine & vbNewLine
Essais1 "Toujours renseigné"
Msg = "Condition: champs1 et champs2 renseignés" & vbNewLine & vbNewLine
Essais1 "Toujours renseigné", "champs2 renseigné"
Msg = "Condition: champs1 et champs3 renseignés" & vbNewLine & vbNewLine
Essais1 "Toujours renseigné", , "champs3 renseigné"
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Essais1 "Toujours renseigné", "champs2 renseigné", "champs3 renseigné"
'autre façon d'appeler la sub
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Call Essais1("Fin", "de la", "démonstration")
End Sub
Private Sub Essais(Champs1 As Variant, Optional Champs2 As Variant, Optional Champs3 As Variant)
If IsMissing(Champs2) And IsMissing(Champs3) Then ' que le champs1 renseigné
Msg = Msg & "Champs1: " & Champs1
End If
If Not IsMissing(Champs2) And IsMissing(Champs3) Then 'champs1 et champs2 renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2
End If
If IsMissing(Champs2) And Not IsMissing(Champs3) Then 'champs1 et champs3 renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs3: " & Champs3
End If
If Not IsMissing(Champs2) And Not IsMissing(Champs3) Then 'tous les champs sont renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2 & vbNewLine & "Champs3: " & Champs3
End If
MsgBox Msg
End Sub
'***********************************************************************************************
Private Sub Command2_Click()
Msg = "Condition: que le champs1 renseigné" & vbNewLine & vbNewLine
Essais2 "Toujours renseigné"
Msg = "Condition: champs1 et champs2 renseignés" & vbNewLine & vbNewLine
Essais2 "Toujours renseigné", "champs2 renseigné"
Msg = "Condition: champs1 et champs3 renseignés" & vbNewLine & vbNewLine
Essais2 "Toujours renseigné", , "champs3 renseigné"
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Essais2 "Toujours renseigné", "champs2 renseigné", "champs3 renseigné"
'autre façon d'appeler la sub
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Call Essais2("Fin", "de la", "démonstration")
End Sub
Private Sub Essais2(Champs1 As String, Optional Champs2 As String = vbNullString, Optional Champs3 As String = vbNullString)
If Champs2 = vbNullString And Champs3 = vbNullString Then ' que le champs1 renseigné
Msg = Msg & "Champs1: " & Champs1
End If
If Not Champs2 = vbNullString And Champs3 = vbNullString Then 'champs1 et champs2 renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2
End If
If Champs2 = vbNullString And Not Champs3 = vbNullString Then 'champs1 et champs3 renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs3: " & Champs3
End If
If Not Champs2 = vbNullString And Not Champs3 = vbNullString Then 'tous les champs sont renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2 & vbNewLine & "Champs3: " & Champs3
End If
MsgBox Msg
End Sub
'***********************************************************************************************
Private Sub Command3_Click()
Msg = "Condition: que le champs1 renseigné" & vbNewLine & vbNewLine
Essais3 "Toujours renseigné"
Msg = "Condition: champs1 et champs2 renseignés" & vbNewLine & vbNewLine
Essais3 "Toujours renseigné", "champs2 renseigné"
Msg = "Condition: champs1 et champs3 renseignés" & vbNewLine & vbNewLine
Essais3 "Toujours renseigné", , "champs3 renseigné"
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Essais3 "Toujours renseigné", "champs2 renseigné", "champs3 renseigné"
'autre façon d'appeler la sub
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Call Essais3("Fin", "de la", "démonstration")
End Sub
Private Sub Essais3(Champs1 As String, Optional Champs2 As String = vbNullString, Optional Champs3 As String = vbNullString)
If Champs2 = vbNullString And Champs3 = vbNullString Then ' que le champs1 renseigné
Msg = Msg & "Champs1: " & Champs1
End If
If Champs2 <> vbNullString And Champs3 = vbNullString Then 'champs1 et champs2 renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2
End If
If Champs2 = vbNullString And Champs3 <> vbNullString Then 'champs1 et champs3 renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs3: " & Champs3
End If
If Champs2 <> vbNullString And Champs3 <> vbNullString Then 'tous les champs sont renseignés
Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2 & vbNewLine & "Champs3: " & Champs3
End If
MsgBox Msg
End Sub |
Partager