checkbox

[poussy67]

Bonjour le forum,

j'ai une question relative au CheckBox .

Voila j'ai trouvé sur le forum quand on coche le checkbox l'envoie une valeur dans une cellule (Ax = valeur X).

If Me.CheckBox1 = True Then
Sheets("BD2").Cells(Lgn + 2, 5).Value = "X"
End If
If Me.CheckBox1 = False Then
Sheets("BD2").Cells(Lgn + 2, 5).Value = ""
End If

Mais dans le sens inverse quand la cellule (Ax) contient une valeur, le checkbox doit ce cocher automatiquement.

Merci par avance,

 

[joss56]

Re : checkbox

Bonjour à tous,

C'est le même principe:

if Sheets("BD2").Cells(Lgn + 2, 5).Value <>"" then
checkbox1=true
else
checkbox1=false
end if

A+

 

[poussy67]

Re : checkbox

Merci pour ton aide
ça fonctionne tres bien