Msgbox en cascade

[Yvon]

Bonsoir à tous,

Je souhaite mettre des msgbox en cascade je m'explique :

1 : msgbox'Connaissez vous notre etablissement'
if vbYes then range('A1')
If VbNO then msgbox'connaissez vous la marque'

If VbYes then msgbox'détail établissement'
if vbYes then range('A1')

If VBNo then msgbox'détail marque +établissement'
if vbYes then range('A1')

Mon souci est que je n'arrive pas à mettre le code en bon ordre, j'ai essayé avec Exit sub end if, rien ne marche, ou j'ai oui qui marche ou non mais pas les deux

Par avance merci du coup de main

a++
Yvon

 

[myDearFriend!]

Bonsoir Yvon,

Si j'ai bien compris le problème, peut-être peux-tu essayer comme ça :

      If MsgBox('Connaissez vous notre etablissement', vbYesNo) = vbNo Then
            If MsgBox('connaissez vous la marque', vbYesNo) = vbNo Then
                  MsgBox 'détail marque +établissement'
            Else
                  MsgBox 'détail établissement'
            End If
      End If
      Range('A1').Select

Cordialement,

 

[Yvon]

Bonsoir my dear friend,

Cela ne marche pas mieux, enfin si mais c'est pas satisfaisant, je pense que je vais utiliser des USF, ce sera plus facilement gérable.

Merci de ton aide

a+
Yvon

 

[Charly2]

Bonsoir Yvon et Didier mDF

A priori, j'aurais donné le même genre de réponse que Didier, mais à la relecture de ton code, je ne comprends pas trop ce que tu veux faire :S

Il faut savoir que les constantes vbYes et vbNo (sous XL97 en tout cas) valent respectivement 6 et 7 !

Donc tes tests :

If vbYes then et If vbNo Then deviennent If 6 Then et If 7 Then, c'est-à-dire qu'ils sont toujours VRAI !!!

Pour contourner ce problème, il faut soit utiliser le code proposé par Didier mDF, soit utiliser une variable :

Resultat = MsgBox 'Message'

puis effectuer des tests sur cette variable :

If Resultat = vbYes Then ...
ou
If Resultat = vbNo Then ...

Ensuite, il faut vraiment savoir 'quoi' doit enclencher 'quoi'.

J'espère que ces quelques lignes te permettront d'y voir plus clair

Amicalement
Charly

 

[Yvon]

Salut Charly, Mydear friend,

Ce que j'ai compris au travers de ton message et de celui de Didier, c'est que je n'y arriverai pas, de cette manière, ce que je vous ai livre en info est en fait un condensé, c'est un peu plus complexe dans la réalité.

Donc je passe en USF.

Merci de votre aide à tous les deux.

Bon Week-end

a++
Yvon