MsgBox : Confirmation clic sur OUI Fermé

Question

Bonjour amis,
Dans le MsgBox ci-dessous, je voudrais une confirmation de la suppression souhaitée lors du clic sur Oui mais je ne sais pas comment l'écrire.
En vous remerciant.

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 ?)"        Range("AA2").Value = ("Sup")    Else        Range("AA2").Value = ("Maj")    End IfEnd Sub



Configuration: Windows / Firefox 69.0

michel_m · Answer

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...

jean300 · Answer

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

michel_m · Answer

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

jean300 · Answer

Merci michel
Bonne soirée

jean300 · Answer

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

MsgBox : Confirmation clic sur OUI

5 réponses

Discussions similaires