MsgBox : Confirmation clic sur OUI

Fermé

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - Modifié le 20 oct. 2019 à 13:26
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 21 oct. 2019 à 15:31

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 If
End Sub

Configuration: Windows / Firefox 69.0

A voir également:

MsgBox : Confirmation clic sur OUI
Msgbox range ✓ - Forum Excel
Msgbox vbokcancel ✓ - Forum VB / VBA
Msgbox vba afficher variable - Forum VB / VBA
Msgbox html ✓ - Forum HTML
Vba msgbox bouton personnalisé ✓ - Forum Excel

5 réponses

Réponse 1 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 20 oct. 2019 à 13:34

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

Réponse 2 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
20 oct. 2019 à 13:43

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

Réponse 3 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 20 oct. 2019 à 14:36

RE

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

Réponse 4 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
20 oct. 2019 à 15:21

Merci michel
Bonne soirée

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
21 oct. 2019 à 01:06

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 oct. 2019 à 12:17

Bonjour,

Vu l'épisode cévenol dans mon coin qui me bloque at home, j'essaierai de regarder cet aprèm

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 oct. 2019 à 15:31

Désolé, pas possible aujourd’hui

Discussions similaires

Msgbox dans un .bat

[VB]MsgBox avec variable

MessageBox en PHP

Vbs: MsgBox avec bouton personnaliser ?

afficher MessageBox avec java

Discussions similaires

Newsletters