Boucle If pour une CheckBox
Je n'arrive pas a faire fonctionner cette boucle ; je ne vois pas où je me trompe.
Merci de votre aide
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Sub Caseàcocher15_Click()
If Caseàcocher15 = False Then
ActiveSheet.Range("AG5") = ""
ActiveSheet.Range("AG5") = "BNP PARIBAS Agence PARIS ANJOU"
ActiveSheet.Shapes.Range(Array("Picture 2")).Visible = True
Else
ActiveSheet.Range("AG5") = ""
ActiveSheet.Range("AG5") = "LBP"
ActiveSheet.Shapes.Range(Array("Picture 2")).Visible = False
End If
End Sub |