macro ( boite de dialogue )

Salut Eric,

if msgbox("Continuer ?", vbyesno)=vbyes then
TaMacro
endif


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC

Bonjour,

J'ai une macro qui efface mes données et je veux ajouter
une boite de dialogue qui demande
" Êtes-vous certain ?"
"oui" ou "non"

que dois-je faire ?

Merci !!!

Eric

Bonjour,
Le plus simple est de faire un MsgBox :
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
...
Else
...
End If

A+

V.

-----Message d'origine-----
Bonjour,

J'ai une macro qui efface mes données et je veux ajouter
une boite de dialogue qui demande
" Êtes-vous certain ?"
"oui" ou "non"

que dois-je faire ?

Merci !!!

Eric


.

Bonjour,
Le plus simple est de faire un MsgBox :
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
...
Else
...
End If

A+

V.

-----Message d'origine-----
Bonjour,

J'ai une macro qui efface mes données et je veux ajouter
une boite de dialogue qui demande
" Êtes-vous certain ?"
"oui" ou "non"

que dois-je faire ?

Merci !!!

Eric


.

-----Message d'origine-----
Bonjour,
Le plus simple est de faire un MsgBox :
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
....
Else
....
End If

A+

V.

-----Message d'origine-----
Bonjour,

J'ai une macro qui efface mes données et je veux ajouter
une boite de dialogue qui demande
" Êtes-vous certain ?"
"oui" ou "non"

que dois-je faire ?

Merci !!!

Eric


.Bonjour Vincent ;
Chaque fois que j'essaye "VbMsgboxResult" j'obtiens le

message suivant : "Erreur de compilation. Type activeX non
géré dans visual basic".
J'ai consulté l'aide sans résultat.
Y-a-t-il une soluce ?
Voilà ce que j'ai fait pour appliquer ton code :

Sub zaza()
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
[A1] = "Bien"
Else
[A1] = "NON"
End If
End Sub

Merci.

.

-----Message d'origine-----
Bonjour,
Le plus simple est de faire un MsgBox :
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
....
Else
....
End If

A+

V.

-----Message d'origine-----
Bonjour,

J'ai une macro qui efface mes données et je veux ajouter
une boite de dialogue qui demande
" Êtes-vous certain ?"
"oui" ou "non"

que dois-je faire ?

Merci !!!

Eric


.Bonjour Vincent ;
Chaque fois que j'essaye "VbMsgboxResult" j'obtiens le

message suivant : "Erreur de compilation. Type activeX non
géré dans visual basic".
J'ai consulté l'aide sans résultat.
Y-a-t-il une soluce ?
Voilà ce que j'ai fait pour appliquer ton code :

Sub zaza()
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
[A1] = "Bien"
Else
[A1] = "NON"
End If
End Sub

Merci.

.

Bonjour dadda,

Tu dois pouvoir trouver vbMsgBox dans l'explorateur
d'objets (dans la première colonne).

Voici ce que dit l'aide d'Excel 98 :


L'énumération VbMsgBoxResult contient des constantes permettant d'identifier le bouton qui a été activé dans une fenêtre de message
affichée à l'aide de la
fonction MsgBox. Ces constantes peuvent être utilisées partout dans votre code.

Pour obtenir de l'aide sur une constante spécifique

1 Sélectionnez la constante dans la liste Membres de 'VbMsgBoxResult'.
2 Cliquez sur le bouton .


Il s'agit en fait d'une liste de 7 constantes, vbCancel,
vbYes, vbOK, ... qui ont toutes une valeur comprise
entre 1 et 7

Tu peux donc remplacer

Dim Rép As VbMsgBoxResult

par

Dim Rép As Integer
ou par
Dim Rép As Byte

-----Message d'origine-----
Bonjour,
Le plus simple est de faire un MsgBox :
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
....
Else
....
End If

A+

V.

-----Message d'origine-----
Bonjour,

J'ai une macro qui efface mes données et je veux ajouter
une boite de dialogue qui demande
" Êtes-vous certain ?"
"oui" ou "non"

que dois-je faire ?

Merci !!!

Eric


.Bonjour Vincent ;
Chaque fois que j'essaye "VbMsgboxResult" j'obtiens le

message suivant : "Erreur de compilation. Type activeX non
géré dans visual basic".
J'ai consulté l'aide sans résultat.
Y-a-t-il une soluce ?
Voilà ce que j'ai fait pour appliquer ton code :

Sub zaza()
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
[A1] = "Bien"
Else
[A1] = "NON"
End If
End Sub

Merci.

.

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Salut,
Essaie de faire juste Dim rép sans spécifier
vbMsgBoxresult... ça devrait marcher !
Tu dois avoir un bidule mal installé.
A+

-----Message d'origine-----

-----Message d'origine-----
Bonjour,
Le plus simple est de faire un MsgBox :
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
....
Else
....
End If

A+

V.

-----Message d'origine-----
Bonjour,

J'ai une macro qui efface mes données et je veux
ajouter

une boite de dialogue qui demande
" Êtes-vous certain ?"
"oui" ou "non"

que dois-je faire ?

Merci !!!

Eric


.Bonjour Vincent ;
Chaque fois que j'essaye "VbMsgboxResult" j'obtiens le

message suivant : "Erreur de compilation. Type activeX
non

géré dans visual basic".
J'ai consulté l'aide sans résultat.
Y-a-t-il une soluce ?
Voilà ce que j'ai fait pour appliquer ton code :

Sub zaza()
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Êtes-vous certain ?", vbYesNo, "Attention")
If Rép = vbYes Then
[A1] = "Bien"
Else
[A1] = "NON"
End If
End Sub

Merci.

.

.