Microsoft 365 Valeur Checkbox dans Array

eric72

XLDnaute Accro
Bonjour à tous,
J'ai un userform avec une checkbox et lorsque je fais une modification d'une ligne j'aimerais que dans la colonne "Rapp.Bancaire de la feuille "Recettes" apparaisse "Ecriture Rapprochée" si la case est cochée et "En Attente du Rapprochement Bancaire" si la case n'est pas cochée, j'ai donc essayé avec ça:

If CheckBox1 = True Then CheckBox1.Caption = "Ecriture Rapprochée" (sans conviction)

mais cela ne fonctionne pas.
Auriez-vous une idée?
Merci pour votre dévouement à tous.
Eric
 

Pièces jointes

  • TEST.xlsm
    357.7 KB · Affichages: 14
Solution
C'est lorsque je selectionne dans listbox, que je modifie textbox ou checkbox et que je modifie la ligne de mon tableau avec le bouton "modifier"
Merci
Si j'ai bien compris. à tester
VB:
Private Sub CheckBox1_Change()
    With CheckBox1
        .Caption = IIf(.Value, "Ecriture Rapprochée", "Pas encore Rapprochée")
        If ListRecette.ListIndex <> -1 Then
            fRec.Cells(ListRecette.ListIndex + 2, 10) = .Caption
            fRec.Cells(ListRecette.ListIndex + 2, 11) = IIf(.Value, "", fRec.Cells(ListRecette.ListIndex + 2, 9))
        End If
    End With
End Sub

cp4

XLDnaute Barbatruc
C'est lorsque je selectionne dans listbox, que je modifie textbox ou checkbox et que je modifie la ligne de mon tableau avec le bouton "modifier"
Merci
Si j'ai bien compris. à tester
VB:
Private Sub CheckBox1_Change()
    With CheckBox1
        .Caption = IIf(.Value, "Ecriture Rapprochée", "Pas encore Rapprochée")
        If ListRecette.ListIndex <> -1 Then
            fRec.Cells(ListRecette.ListIndex + 2, 10) = .Caption
            fRec.Cells(ListRecette.ListIndex + 2, 11) = IIf(.Value, "", fRec.Cells(ListRecette.ListIndex + 2, 9))
        End If
    End With
End Sub
 

Discussions similaires

Réponses
16
Affichages
473
Réponses
2
Affichages
390
Réponses
6
Affichages
397

Statistiques des forums

Discussions
312 196
Messages
2 086 101
Membres
103 116
dernier inscrit
kutobi87