Boucle If pour une CheckBox

[Lord_Chesseling]

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

[mercatog]

Bonjour

Je n'arrive pas a faire fonctionner cette boucle

Ce n'est pas une boucle

Essaies ceci (avec commentaire)

Code :

1
2
3
4
5
6
7
Private Sub Caseàcocher15_Click()
Dim Res As Boolean
 
Res = Caseàcocher15.Value                                  'Res=True si Caseàcocher15 est coché, false sinon
Range("AG5").Value = IIf(Res, "LBP", "BNP PARIBAS Agence PARIS ANJOU")    'Si Res=True, on écrit en AG5: LBP, sinon, on écrit BNP....
Shapes("Picture 2").Visible = Not Res                      'L'image est visible si Res=false, invisible si Res=True
End Sub

[Lord_Chesseling]

Ok
Je comprends la logique de ta procédure
mais je reçois le message "Sub ou Function non définie"
Encore une autre chose
Pq lq porté "Private"?
Merci

[mercatog]

Sur ta feuille tu as une case à cocher (Controle ActiveX) nommée Caseàcocher15
Le code est mis sur l'évènement Click de cette case à cocher (donc dans le module de ta feuille)
Private parce que le code a la portée sur l'évènement Click de Caseàcocher15!