Boîte de dialogue avec cases à cocher

Bonjour,

Lorsque tu fabriques ta boite de dialogue, tu as la possibilité d'avoir des actions sur évènement. En double cliquant dessus apparaît une feuille avec Checkbox1.click()
choisi checkbox1.change()
puis tu veux changer la valeur de la cellule

if range ("feuil1!$a$1") = "O" then range("feuil1!$a$1").value = "L"
else range("feuil1!$a$1").value = "O"
end if

ce qui fait que si la cellule A1 de la feuil1 et avec L, ça passera à O et inversement. Si elle est vide cela passera aussi à O.

Si tu click sur la boite de dialogue, tu as la possibilité avec Sub UserForm_Activate()

d'initialisé ta boite de la manière suivante

Sub UserForm_Activate()
if range("feuil1!$a$1").value = "L" then checkbox1.value = true
else checkbox1.value = false
end if
End Sub

Amicalement

Salut "Fredrennes","marc F"
Re le "FORUM"
une solution peut être
tu crées dans VBA (Alt+F11)
un Userform tu fais insertion Userform
tu inseres une listbox sur le userform via la boite à outils
ensuite tu clic sur le Userform et tu copies ce texte dans la page code du userform
je ne sais pas comment tu recopies dans la feuille j'ai donc mis le resultat dans la cellule C1
Private Sub ListBox1_Click()
Worksheets("Feuil1").Range("C1") = ListBox1.Value
End Sub

Private Sub UserForm_Initialize()
Dim L As Integer
Dim plage As String
L = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
plage = Worksheets("Feuil1").Range("A1:B" & L).Address
With ListBox1
.ColumnCount = 2
.RowSource = plage
.BoundColumn = 0
End With

End Sub

A+++
Jean Marie

Re à tous
je m'apercois que le click renvoie l'index de l'élément du listbox qui est choisi
petite adaptation à faire par un plus calé que moi
A+++
Jean Marie

Salut "Fredrennes"
re re à tous OuPssss
j'ai trouvé ;o) Lol
tu remplaces
Private Sub ListBox1_Click()
Worksheets("Feuil1").Range("C1") = ListBox1.Value
End Sub
Par
Private Sub ListBox1_Click()
ListBox1.BoundColumn = 2
Worksheets("Feuil1").Range("C1") = ListBox1.Value
End Sub
et là tu as ton 1 ou ton 0 dans C1 OupSSSS

A++
Jean Marie
Ps il faut Persévérer toujours Persévérer

Je vais regarder tout cela.

Merci

Cdlt

Fred