vbYesNo / que faire si "Non" ?

[jonleboss]

Bonsoir à tous,

J'ai une fonction qui récupère une valeur via une Textbox et qui supprime la ligne d'un tableau pour laquelle la cellule B est égale à cette valeur. Pour éviter tout erreur de manipulation ou suppression attive, j'ai mis en place une MsgBox avec "oui" et "non". Quand on choisi "oui" pour confirmer la suppression, la ligne est ( logiquement, je sais ) supprimée et le USF SuppresionOK s'affiche. Mais, je n'arrive pas à trouver comme faire en sorte que si nous cliquions sur "non", le USF SuppresionNon s'affiche.... Faut-il utiliser Else ? ou autre codage ?

Voici mon code, je pense que tout ce joue vers la fin

Private Sub BoutSupprimer_Click()
Dim r As Range
With Sheets("feuil1")
Set r = .Range("B3:B" & .Cells(Application.Rows.Count, 3).End(xlUp).Row).Find(TextBox1.Value, , xlValues, xlWhole)
If r Is Nothing Then MsgBox "Aucune correspondance trouvée", , "Pas de Corespondance": Exit Sub
If MsgBox("Êtes-vous sûr(e) de vouloir supprimer cette donnée ? ", vbYesNo, "Attention !") = vbYes Then .Rows(r.Row).Delete
End With
Unload Me
SuppresionOK.Show 
Else
SuppresionNon.Show
End Sub

Merci d'avance.

M.

 

[Gareth]

Re : vbYesNo / que faire si "Non" ?

Bonsoir,


Une solution à tester :

Private Sub BoutSupprimer_Click()
Dim r As Range

With Sheets("feuil1")
Set r = .Range("B3:B" & .Cells(Application.Rows.Count, 3).End(xlUp).Row).Find(TextBox1.Value, , xlValues, xlWhole)
If r Is Nothing Then MsgBox "Aucune correspondance trouvée", , "Pas de Corespondance": Exit Sub
Select Case MsgBox("Êtes-vous sûr(e) de vouloir supprimer cette donnée ? ", vbYesNo, "Attention !")
Case vbYes: .Rows(r.Row).Delete
Case vbNo: 'ici Code vbNo
End Select
End With
Unload Me
SuppresionOK.Show
Else
SuppresionNon.Show
End Sub

 

[Si...]

Re : vbYesNo / que faire si "Non" ?

salut

Si... Alors ... Sinon... doit s'écrire sur 3 lignes

If P Then Action
Else ...

est incorrect !
Dans ton cas essaie :

Private Sub CommandButton1_Click()
 Dim r As Range
  With Sheets("feuil1")
    Set r = .Columns(2).Find(TextBox1, , xlValues, xlWhole)
    If r Is Nothing Then MsgBox "Aucune correspondance trouvée", , "Pas de Correspondance": TextBox1 = "": Exit Sub 
    Unload Me
    If MsgBox("Êtes-vous sûr(e) de vouloir supprimer cette donnée ? ", vbYesNo, "Attention !") = vbYes Then
      .Rows(r.Row).Delete
      SuppresionOK.Show
    Else
      SuppresionNon.Show
    End If
  End With
End Sub

A noter qu'un code bien indenté permet d'éviter de telles erreurs.

 

[jonleboss]

Re : vbYesNo / que faire si "Non" ?

Bonjour Si...

Merci pour le retour.

J'ai testé votre solution et j'ai un message d'erreur quand je clic sur "Oui" :

Erreur de compilation :

End With sans With

Que puis-je faire ?

Merci.

J.

 

[jonleboss]

Re : vbYesNo / que faire si "Non" ?

Bonjour Gareth,

Merci pour le retour.

J'ai testé votre solution et j'ai un message d'erreur quand je clic sur "Oui" :

Erreur de compilation :

Else sans If

Que puis-je faire ?

Merci.

J.

 

[Si...]

Re : vbYesNo / que faire si "Non" ?

salut

difficile de dire pourquoi sans le contexte. A priori, il n'y a aucune raison pour que mon code provoque une erreur.

 

[Gareth]

Re : vbYesNo / que faire si "Non" ?

Bonsoir,

Dans mon code il faut enlever le dernier Else.