Checkbox.value

[madgicbobbyboon]

Bonjour et encore merci de l'aide apportée pour la mise en place de mon userform.

encore un probleme :
j'ai des checkbox intitulés "propre" /"sale"
j'aimerai qu"une fois cochée, la valeur qui doit être mise dans la cellule (la meme cellule) corresponde au nom de la checkbox

j'ai essayé avec :
if checkbox1=true then
checkbox.value="propre"
end if

rien 🙁
merci

 

[Lone-wolf]

Bonjour madgic

'Dans UserForm_Initialize
For i = 1 to nombre de checkbox
Controls("CheckBox" & i).Caption = "Propre/Sale"
Next i

'Dans le Bouton
For i = 1 to nombre de checkbox
If Controls("CheckBox" & i) Then
Controls("CheckBox" & i).Capion = "Propre"
Range("d5") = Controls("CheckBox" & i).Caption
Else
Controls("CheckBox" & i).Capion = "Sale"
Range("d5") =Controls("CheckBox" & i).Caption
End If
Next i

 

[Lone-wolf]

Re

Un autre exemple

Private Sub CommandButton1_Click()
Dim lig As Long, i As Long
    With Feuil1
        lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        For i = 1 To 6
                Controls("CheckBox" & i).Caption = IIf(Controls("CheckBox" & i).Value = True, "Propre", "Sale")
                .Cells(lig, i) = Controls("CheckBox" & i).Caption
        Next i
    End With
End Sub

 

[madgicbobbyboon]

Re

Un autre exemple

Private Sub CommandButton1_Click()
Dim lig As Long, i As Long
    With Feuil1
        lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        For i = 1 To 6
                Controls("CheckBox" & i).Caption = IIf(Controls("CheckBox" & i).Value = True, "Propre", "Sale")
                .Cells(lig, i) = Controls("CheckBox" & i).Caption
        Next i
    End With
End Sub

je vais essayer celui la

 

[Lone-wolf]

Re

Si tu écrit comme ceci, dans initialize

For i = 4 To CheckBox
Controls("CheckBox" & i).Caption = "Propre/Sale"
Next i
C'est claire que ça plante, il faut écrire For i = 1 To 4

Mais d'après ce que j'ai vu, pas besoin d'en mettre 4, 1 seul suffit et là tu écrit par exemple

If ChecKBox1 then
ChecKBox1.Caption = "Propre"
.Cells(lig, 4) = ChecKBox1.Caption
.Cells(lig, 6) = ChecKBox1.Caption
Else
ChecKBox1.Caption = "Sale"
.Cells(lig, 4) = ChecKBox1.Caption
.Cells(lig, 6) = ChecKBox1.Caption
End If