Microsoft 365 Valeur Checkbox dans Array

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
395
Réponses
4
Affichages
647
Compte Supprimé 979
C
Réponses
6
Affichages
592
Réponses
18
Affichages
2 K
Retour