XL 2019 Msgbox différent selon le contenu d'une cellule

[pat66]

Bonjour le forum,

Je souhaiterai que le msgbox soit différent selon le contenu d'une cellule ce qui n'est pas le cas avec ma macro actuelle

Macro actuelle :

Sub osp()
Dim AnswerYes As String
Dim AnswerNo As String
AnswerYes = MsgBox("Souhaitez vous activer cette option ?", vbQuestion + vbYesNo, "Information")
If AnswerYes = vbYes Then
conditions 1 ........
else
conditions 2 .........
end if
end sub

Je souhaiterai un message différent selon le contenu de Y151, exemple :
Si cellule Y151 = "Oui"
MsgBox("Souhaitez vous désactiver cette option ?", vbQuestion + vbYesNo, "Information")
si réponse No = cancel = true
si réponse Yes
conditions 1 ...................

Si cellule Y151 = "Non"
MsgBox("Souhaitez vous activer cette option ?", vbQuestion + vbYesNo, "Information")
si réponse No = cancel = true
si réponse Yes
conditions 2 ...................

j'espère être clair
un grand merci et bon we

pat66

 

[Staple1600]

Bonjour

Un exemple basique
(à mettre dans le code de la feuille)
Et pour tester saisir en A1 oui ou non

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
MsgBox "Voulez-vous " & IIf(Target = "oui", "activer", "désactiver") & " cette option ?", vbQuestion
End If
End Sub

 

[Staple1600]

Re,

@pat66
J'ai relu ton 1er message

j'ai corrigé puisque mon premier message faisait l'inverse du problème décrit.
(cette version est un peu plus étoffée)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Dim a
Select Case Target
Case "oui"
S_tr = "Voulez-vous désactiver cette option"
a = 32
Case "non"
S_tr = "Voulez-vous activer cette option"
a = 32
Case Else
S_tr = "Attention, valeur incorrecte!"
a = 16
End Select
MsgBox S_tr, a
End If
End Sub

 

[pat66]

bonjour Staple1600,

ton exemple est intéressant et je le garde précieusement, mais je dois passer par une macro (clic bouton) pour tester Y151, car la saisie de "Oui" ou de "Non" fait parti des conditions

MsgBox("Souhaitez vous désactiver cette option ?", vbQuestion + vbYesNo, "Information")
si réponse No = cancel = true
si réponse Yes
conditions 1 ............
Worksheets("Feuil1").Range("Y151").Value = "non"

Si cellule Y151 = "Non"
MsgBox("Souhaitez vous activer cette option ?", vbQuestion + vbYesNo, "Information")
si réponse No = cancel = true
si réponse Yes
conditions 2 ..............
Worksheets("Feuil1").Range("Y151").Value = "Oui"

merci

 

[Staple1600]

Re

@pat66
Il suffit de transformer le code que je t'ai proposé
Tu vois comment faire ?

 

[pat66]

re,

non pas du tout car je pense je qu'en modifiant
Private Sub Worksheet_Change(ByVal Target As Range) par un Sub, cela ne suffira pas

De plus je ne sais pas comment faire dans ta macro pour saisir "Oui" ou "Non" dans Y151 (ou A1 dans ton exemple, alors je veux bien un coup de main si tu veux bien

merci

 

[Staple1600]

Re

Voici la transformation

Sub Macro_pour_Bouton()
Dim a, Cellule As Range
Set Cellule = Range("Y151")
Select Case Cellule
Case "oui"
S_tr = "Voulez-vous désactiver cette option"
a = 32
Case "non"
S_tr = "Voulez-vous activer cette option"
a = 32
Case Else
S_tr = "Attention, valeur incorrecte!"
a = 16
End Select
MsgBox S_tr, a
End Sub
Sub tester()
[Y151] = InputBox("Saisir oui ou non ou n'importe quelle valeur", "Macro de test", "oui")
Call Macro_pour_Bouton
End Sub

La macro tester comme son nom l'indique ne sert qu'à tester la 1ere macro (*)
=> faire trois test
Dans l'inputbox qui s'affiche
• saisir: oui
• saisir: non
• saisir: autre chose que oui ou non

(*) que tu pourrais affecter à un bouton.

 

[Phil69970]

Bonjour @pat66 et @Staple1600

Je propose ceci

Sub osp()
Dim Reponse As Byte
Select Case Range("Y151")
Case "Oui"
    Reponse = MsgBox("Souhaitez vous désactiver cette option ?", 36, "Information")
    If Reponse = 6 Then         'L'utilisateur a répondu Oui
        'Condition Oui
    Else                        'L'utilisateur a répondu Non
        'Condition Non
    End If
Case "Non"
    Reponse = MsgBox("Souhaitez vous activer cette option ?", 36, "Information")
    If Reponse = 6 Then         'L'utilisateur a répondu Oui
        'Condition Oui
    Else                        'L'utilisateur a répondu Non
        'Condition Non
    End If
End Select
End Sub

Merci de ton retour
*Edit : Ajout du fichier

@Phil69970

 

[Staple1600]

Bonjour @Phil69970

Je ne fais pas mon retour mais mon arrivée
Et j'arrive donc par retourner la réponse suivante:
Si j'étais moi, j'adopterai la Sub osp, car elle est plus complète que ma galette du message#7

 

[pat66]

re,

bonjour Phil69970

merci pour votre aide, là je dois m'absenter mais je teste vos propositions dès que possible (demain matin maxi) et reviens vers vous pour vous dire quelle est la meilleure solution à mon problème, bien sur je prends en compte de l'avis bienveillant de Staple1600

PS: Phil69970, j'ai cliquer sur ta pièce jointe, mais "La page demandée est introuvable".

un grand merci à tous les 2

 

[pat66]

re,

Phil69970 la pièce jointe est téléchargeable, merci

je reviens vers vous

a plus

 

[pat66]

re,

je suis trop impatient de tester vos propositions alors j'ai pris quelques minutes de plus
Phil69970, dans ta proposition le sub teste et exécute la macro selon "oui" ou "non", mais doit aussi écrire "oui" ou "non" dans Y151, voir mon post #4

Alors j'ai testé ta proposition en la modifiant dans ce sens, et cela correspond à mes attentes, si tu vois une incohérence, je te remercie de m'en faire part

Sub osp()
Dim Reponse As Byte
Select Case Range("Y151")
Case "Oui"
    Reponse = MsgBox("Souhaitez vous désactiver cette option ?", 36, "Information")
    If Reponse = 6 Then         'L'utilisateur a répondu Oui
       Worksheets("Feuil1").Range("Y151").Value = "Non"
    Else                        'L'utilisateur a répondu Non
       cancel = True
    End If
Case "Non"
    Reponse = MsgBox("Souhaitez vous activer cette option ?", 36, "Information")
    If Reponse = 6 Then         'L'utilisateur a répondu Oui
  Worksheets("Feuil1").Range("Y151").Value = "Oui"
    Else                        'L'utilisateur a répondu Non
cancel = True
    End If
End Select
End Sub

un grand merci

 

[Phil69970]

@pat66

Perso je ne voyais pas ta demande dans ce sens .....
Et toujours perso faire un msgbox pour demander à l'utilisateur si il veut mettre oui ou non dans la cellule Y151 me semble bizarroïde alors qu'une semble validation des données avec un choix oui/non comme sur mon fichier fait le job directement mais si cela te va moi aussi et pourquoi faire simple si on peut faire compliquer

@Phil69970

 

[pat66]

re,

je comprends parfaitement, mais pour diverses raisons et notamment de conception, les macros doivent être exécutées par des clics sur des formes uniquement, je dois passer par là....

en tout cas, je te remercie pour ton aide et un grand merci aussi à Staple1600

bon we à tous

pat66

 

[Staple1600]

Re,

mais pour diverses raisons et notamment de conception, les macros doivent être exécutées par des clics sur des formes uniquement, je dois passer par là....

Dans ce cas, joindre un fichier exemple qui respecte cette conception (mais sans données confidentielles) serait un plus pour faire des tests.

PS: Il n'est jamais interdit de revoir la conception d'un classeur.
Notamment si comme moi, on a tatoué sur l'épaule gauche ce principe K.I.S.S
A ne pas confondre avec ce KISS là