Comment intégrer plusieurs codes?
s
Bonsoir,
Moi qui démarre en vba je me demande comment je peux formaliser plusieurs codes ? Je les sépare par End if et des fois ça marche et dès fois ca me surligne en jaune Private Sub Worksheet_Change(ByVal Target As Range)
Merci pour vos lumières!
Moi qui démarre en vba je me demande comment je peux formaliser plusieurs codes ? Je les sépare par End if et des fois ça marche et dès fois ca me surligne en jaune Private Sub Worksheet_Change(ByVal Target As Range)
Merci pour vos lumières!
bonjour,
Vous ne pouvez pas créer plusieurs Sub dont le nom est identique.
Dans le cas de certaines évènementielles comme Worksheet_Change vous devez différencier leur comportement selon la source de l'évènement : Target.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [A1] Then
MsgBox "vous avez saisie la cellule A1"
ElseIf Target = [B1] Then
MsgBox "vous avez saisie la cellule B1"
Else
MsgBox "vous avez saisie une autre cellule"
End If
End SubA+