Modifier checkbox vrai faux par oui non

Bonjour à tous,

Je suis à la recherche depuis plusieurs heures, un moyen pour modifier le résultat de mes checkboxs.

Je vous explique.

J'ai une userform, qui contient des checkboxs, mais je souhaiterai que lorsque je clique sur une checkbox, "oui" s'affiche une fois que j'ai valider mon userform. Si je n'ai pas cochée ma checkbox, il faudrait "non"...

Je pense que c'est tout bête, mais impossible de trouver la solution ...

Quelqu'un peut-il m'aider ?

Merci par avance

Laurent

Peut-etre avec un fichier ça sera plus simple.

Hello Lolo,

Avec des If (Si).

Remplace ton code du bouton valider par celui-là...

Private Sub CommandButton2_Click()
With Sheets("Liste correspondants")
        Ln = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Cells(Ln, 1).Value = Tb_batiment.Value 'Ecrit en A2 la valeur de TB_batiment
        .Cells(Ln, 2).Value = Tb_niveau.Value 'Ecrit en B2 la valeur de Tb_niveau
        .Cells(Ln, 3).Value = Tb_interlocuteur.Value 'Ecrit en C2 la valeur de Tb_interlocuteur
        If CHB_panneaux Then ' équivalent à If CHB_panneaux.Value = True Then
            .Cells(Ln, 4).Value = "OUI"
        Else
            .Cells(Ln, 4).Value = "NON"
        End If
        If CHB_classeur Then
            .Cells(Ln, 5).Value = "OUI"
        Else
            .Cells(Ln, 5).Value = "NON"
        End If
        If CHB_mailing Then
            .Cells(Ln, 6).Value = "OUI"
        Else
            .Cells(Ln, 6).Value = "NON"
        End If
        If CHB_eroom Then
            .Cells(Ln, 7).Value = "OUI"
        Else
            .Cells(Ln, 7).Value = "NON"
        End If
    Sheets("Liste correspondants").Select
    ActiveCell.Offset(0, 2).Columns("A:D").EntireColumn.Select
    Selection.Replace What:="VRAI", Replacement:="Oui", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="FAUX", Replacement:="Non", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Unload Me
End With

End Sub

Ça devrait le faire.

Salut Hulk,

ça marche nickel !!!

je te remercie.

A plus

Laurent