Bouton supprimer

Bonsoir à tous,

Dans un UserForm j'ai un bouton supprimer, dont le code est:

Private Sub Supprimer_SPV_Click()
    If MsgBox("ETES-VOUS CERTAIN DE VOULOIR SUPPRIMER LA FICHE?                                                                    " & Box1.Text & " " & Box2.Text, vbQuestion + vbYesNo) Then
        Sheets("SIGNALETIQUE").Rows(Box1.ListIndex + 2).Delete Shift:=xlUp
    End If
End Sub

Suis à l'apparition du message de confirmation je clique sur "NON" la ligne et tout de même supprimée.

Pourriez vous me dire où est mon erreur?

Hello,

Sans tester, je dirais ça à vue de nez

Pour sauter des lignes c'est chr(10) à la place de " "

    Private Sub Supprimer_SPV_Click()
       Select Case MsgBox("ETES-VOUS CERTAIN DE VOULOIR SUPPRIMER LA FICHE?                                                                    " & Box1.Text & " " & Box2.Text, vbQuestion + vbYesNo)
Case vbyes
            Sheets("SIGNALETIQUE").Rows(Box1.ListIndex + 2).Delete Shift:=xlUp
Case vbno
     ctroll = 1 + 1
        End Select
    End Sub

Merci Waard,

Mais le résultat est toujours le même que je clique sur "oui"ou "non" mais ligne est toujours supprimé.

??

    Sub Supprimer_SPV_Click()
       Select Case MsgBox("ETES-VOUS CERTAIN DE VOULOIR SUPPRIMER LA FICHE?", vbQuestion + vbYesNo)
Case vbYes
            Rows("1:1").Interior.Color = 65535
Case vbNo
     c1troll = 1 + 1
        End Select
    End Sub

Sub Supprimer_SPV_Click activée > Message > Choix Oui ligne en jaune et rien d'autre > Ou choix Non rien et rien d'autre > Fin

Suivant ce principe ce que je t'ai donné ne peux supprimer ta ligne si ton choix est Non.

La ligne est supprimée dans un autre morceau de code dans ce cas, mais pas dans cette SUB.

Bonsoir à tous,

Je pense que la réponse doit être traitée comme une variable :

reponse=msgbox(...,vbyesno...)

if reponse=vbyes then..... else....

Bonjour à tous,

Si j'utilise votre code:

    Sub Supprimer_SPV_Click()
       Select Case MsgBox("ETES-VOUS CERTAIN DE VOULOIR SUPPRIMER LA FICHE?", vbQuestion + vbYesNo)
Case vbYes
            Rows("1:1").Interior.Color = 65535
Case vbNo
     c1troll = 1 + 1
        End Select
    End Sub

Je reçois le message d'erreur suivant:

ERREUR DE COMPILATION:

Variable non définie

Et

c1troll = 1 + 1 est surligné en bleu

Hello,

Tu dois avoir option explicit, ça fait planter ma ligne qui ne sert qu'a remplir un vide en dessous de vbno.

supprime cette ligne, elle ne sert à rien.

c1troll = 1 + 1

Bye

Re

effectivement maintenant il y du changement:

• La ligne 1 qui ne doit pas changer en colorer en jaune
• Et aucune suppression