Je n'arrive pas a faire fonctionner cette boucle ; je ne vois pas où je me trompe.
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager