MsgBox : Confirmation clic sur OUI
jean300
Messages postés
374
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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.
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 If
End Sub
Configuration: Windows / Firefox 69.0
A voir également:
- MsgBox : Confirmation clic sur OUI
- Msgbox vba variable ✓ - Forum VB / VBA
- Msgbox range ✓ - Forum Excel
- [VBA] Type d'une variable réponse de msgbox - Forum VB / VBA
- Msgbox vbyesnocancel ✓ - Forum VB / VBA
- Msgbox batch ✓ - Forum Autoit / batch
5 réponses
Bonjour
1 petite faute de frappe et un oubli
petites erreurs classiques dues souvent à la saturation ==> prends l'air ou petit siestou...
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.
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
Je ne saturais pas mais je regardais le match de rugby.... Manquait un THen (ligne rouge) et son End IF
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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é.
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
