Userbox empecher copie dans cellule si condition

Bonjour à tous,

Je ne vois pas comment faire mon code qui je pense doit être placé dans l'USERFORM, dans la partie ListBox pour :

Dans Feuille2, 3... (Article24, Article 25....) lors du vote à partir de mon UserForm (VOTE) empêcher l'écriture du résultat (Contre, Pour, Abstention) si dans la cellule de la colonne PRESENCE il est mentionné "A" pour Absence.

Merci de votre aide.

J'ai cherché mais en vain.

Bonjour,

Il faut que tu ajoutes un test dans ton code

Private Sub ListBox1_Click()
Dim VOTE As String
    On Error Resume Next
        If Me.OptionButton1 = True Then
            VOTE = "Pour"
        ElseIf Me.OptionButton2 = True Then
            VOTE = "Contre"
        ElseIf Me.OptionButton3 = True Then
            VOTE = "Abstention"
        End If
    With ListBox1
        If Cells(.List(.ListIndex, 1), 3) <> "A" Then
            Cells(.List(.ListIndex, 1), 1).Select
            Cells(.List(.ListIndex, 1), 4) = VOTE
        End If
    End With
    Unload Me
    UserForm2.Show 0
End Sub

A+

Genial, c'est parfait.

Merci pour ce dépannage.

Il me semblait qu'il fallait mettre une condition dans le TextBox mais je suis débutant en VBA qui est au passage est vraiment incroyable.

Mais je ne sais pas encore très bien interpréter les commandes VBA. Je vais m'y mettre mais j'ai tellement de chose à faire en parallèle.

Merci encore Frangy.