Bonjour,

plusieurs fois, je me suis trouvé confronté à un petit problème sans en trouver d'explication.

La question est dans l'exemple ci-après, pourquoi la ligne 19 (coche = ws.CheckBox1) ne fonctionne pas ?

Je suppose que c'est dû au type d'objet pour lequel je n'a pas utilisé la bonne syntaxe...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
 
    Dim ws As Worksheet
    Dim val As Double
    Dim coche As Boolean
 
    Set ws = ThisWorkbook.Worksheets("Feuil1")
 
    'OK
    val = hisWorkbook.Worksheets("Feuil1").Range("A1")
 
    'OK
    val = ws.Range("A1")
 
    'OK
    coche = ThisWorkbook.Worksheets("Feuil1").CheckBox1
 
    'Pas OK
    coche = ws.CheckBox1
 
    Set ws = Nothing
End Sub
Si quelqu'un pouvait m'expliquer ou m'indiquer un tuto, j'en serai fort reconnaissant.

Cordialement.