Sub Condition_B5() 'cette macro est associée à une procédure événementielle.
If [B5] = "" Then
MsgBox "completer B5 par 1 ou 2"
Range("B5").Select
ElseIf [B5] = 1 Then
Range("C4").Value = "Hello"
Range("C6").ClearContents
ElseIf [B5] = 2 Then
Range("C6").Value = "Bye Bye"
Range("C4").ClearContents
Else
End If
End Sub
Une instruction If condition Then InstructionSurLaMêmeLigne est différente d'une instruction If condition Then, dans la mesure ou elle n'instaure pas de bloc If devant se terminer par un End If. Elle supporte aussi plusieurs instructions mais elles doivent alors toutes être séparées de ": " sur la même ligne logique que le Then, soit éventuellement plusieurs ligne physiques dont seule la dernière ne doit pas se terminer par le " _" de continuation.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5")) Is Nothing Then
Test1
ElseIf Not Intersect(Target, Range("B5")) Is Nothing Then
Condition_B5
End If
End Sub