MsgBox : Confirmation clic sur OUI

Bonjour

1 petite faute de frappe et un oubli

If MsgBox("Confirmez-vous la demande de suppression de ce contact?",vbyesno)=vbyes

petites erreurs classiques dues souvent à la saturation ==> prends l'air ou petit siestou...

Bonjour michel,
Merci de me répondre si rapidement.
J'ai cependant un problème, la ligne se met en rouge, peut-être comme tu le dis est-ce du à la fatigue.

Private Sub Workbook_Open()
.......
If MsgBox("Ce contact doit-il être supprimé de la Base ?", vbYesNo) = vbYes Then
'si Oui
If MsgBox("Confirmez-vous la demande de suppression de ce contact?",vbyesno)=vbyes
Range("AA2").Value = ("Sup")
Else
Range("AA2").Value = ("Maj")
End If
End Sub

RE

Je ne saturais pas mais je regardais le match de rugby.... Manquait un THen (ligne rouge) et son End IF

Merci michel
Bonne soirée

Bonjour les amis et les crack du forum,
Je ne connais pas grand chose en Vba, ce que je désire obtenir sur une feuille protégée ou je patauge :

Si en A4 (nom de la personne Col A) et en K4 (son prénom Col B) sont inscrits.
Avoir une macro qui demande (essai ci-dessous) par MsgBox, mais, car il y a un mais, elle ne doit se déclencher qu'une seule fois.

Ma principale difficulté est que j'aimerai que cette macro ne se lance que dès que je change la valeur de ces 2 cellules Colonne A et B et seulement pour les cases qui viennent d'être modifiées.

Je crains qu'elle ne se lance à chaque changement dans la feuille.
Peut être faut-il ajouter un compteur (je ne sais pas faire, ni me passer des .Select).

En vous remerciant car je compte vraiment sur vos connaissances.
Un grand merci si vous acceptez de me mettre le code entier rectifié.

Private Sub Worksheet_Change(ByVal Target As Range)
...... codes qui précèdent
 
Sheets("feuil1").Select
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
......codes existants.
Range("A4"].Value <> "" and Range("K4").Value <> "" 
 
    If MsgBox("Ce contact doit-il être supprimé des données ?", vbYesNo) = vbYes Then  
       Range("AA2").Value = ("Sup")
    Else
       Range("AA2").Value = ("Maj")
    End If
 
    If MsgBox("Confirmez-vous la suppression de ce contact?",vbYesNo)=vbyes       
         Call CfnMsgBox
    Else
        Range("A4").Select
    End If
End Sub