Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel MsgBox : Yes No

MsgBox : Yes No

21 réponses
Avatar
Caroline L.
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé dans votre
site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro un message
s'ouvre et que si on clique sur Oui la macro se poursuit. Si on appuie sur
Non, la macro cesse.

merci à l'avance.
Bonne journée
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Caroline L.
oups !
très drôle le résultat avec une simple faute de frappe !
:o))))

"Jacky" a écrit dans le message
de news:

c'est un peu du chinois
La différence entre Gras et Non Gras
j'ai du gros
Ce n'est plus du VBA ,c'est une cure de grossissement.


<;o))
JJ

"michdenis" a écrit dans le message de
news:%
Bonsoir Caroline,

La différence entre Gras et Non Gras n'est pas très grande quand la
police


de caractère est grande. Si tu veux observer une
plus grande différence, essaie ceci:


'--------------------------
With Range("C4:C5")
If MsgBox("Voulez-vous appliquer le Gras ?", vbYesNo) = vbYes Then
With .Font
.Bold = True
.Name = "Arial"
.Size = 16
End With
Else
With .Font
.Bold = False
.Name = "Arial"
.Size = 12
End With
End If
End With
'--------------------------


Salutations!






"Caroline L." a écrit dans le message de
news:bG27d.641$

Bonsoir Michdenis,
merci pour ta réponse. J'ai fait le test : si je clique sur Oui, cela
fonctionne, j'ai du gros et les caractères changent de taille. C'est
super.

MAIS, lorsque j'appuie sur Non, j'obtiens le même résultat. ? ? ? ?
Que faire ?



"michdenis" a écrit dans le message de news:
#J$
Bonsoir Caroline,

'--------------------------
With Range("C4:C5")
If MsgBox("Voulez-vous appliquer le Gras ?", vbYesNo) = vbYes Then
With .Font
.Bold = True
.Name = "Arial"
.Size = 16
End With
Else
With .Font
.Bold = False
.Name = "Arial"
.Size = 16
End With
End If
End With
'--------------------------


Salutations!


"Caroline L." a écrit dans le message de
news:Bw07d.310$

Bonjour Sabatier,
j'ai lu mais c'est un peu du chinois pour moi. Peux-tu me donner la
procédure pour un cas très simple et je vais essayer de le modifier à
mon


classeur.

Par exemple, l'utilisateur clique sur un bouton nommé Gras et sur
lequel



est
affecté la macro suivante :

Range("C4:C5").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("C4").Select
End Sub

JE VOUDRAIS QU'AU DÉBUT DE LA PROCÉDURE, Lorsque l'on clique sur le
bouton


Gras, une boîte s'ouvre : "Voulez-vous vraiment appliquer le gras ?"
si



on
clique Oui, la macro se poursuit et si on clique Non, la s'arrête
(donc



les
cellules ne seront pas en gras).

merci de m'aider.


"sabatier" a écrit dans le
message

de news: #
bonjour caroline
tiens lis cela et dis-nous si cela t'inspire

jmagouré = MsgBox("Avez-vous facturé le bon client?" & vbCrLf &
vbCrLf




&
_
"Si oui, cliquer ensuite sur Facturation phase 2" & vbCrLf & vbCrLf
&




_
"Si non, vous retournez à la case départ, càd au fichier Tarifs",
vbYesNo


+
vbCritical, "Ultime contrôle avant phase 2")
Application.ScreenUpdating = False
If jmagouré = vbNo Then
'ta procédure
If jmagouré = vbYes Then
Exit Sub

jps

"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé
dans




votre
site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro
un





message
s'ouvre et que si on clique sur Oui la macro se poursuit. Si on
appuie




sur
Non, la macro cesse.

merci à l'avance.
Bonne journée






















Avatar
Caroline L.
Bonjour Pierre,
génial ! j'ai adapté ta macro à celle que j'ai et ça fonctionne. En fait,
c'est la fin "If Reponse = vbNo Then Exit Sub" qu'il me manquait.

Gros merci.


"Pierre Fauconnier" a écrit dans le
message de news: #
Bonjour Caroline

Sub MaMacro()
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous lancer la macro?", vbYesNo + vbQuestion)
If Reponse = vbNo Then Exit Sub
...
...
...
End Sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé dans
votre

site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro un
message

s'ouvre et que si on clique sur Oui la macro se poursuit. Si on appuie
sur


Non, la macro cesse.

merci à l'avance.
Bonne journée








Avatar
Caroline L.
Re-bonjour,
oui d'accord je vois.
J'ai refait la macro et ça fonctionne. Merci beaucoup pour ton aide.
Bonne journée


"michdenis" a écrit dans le message de news:
#
Bonsoir Caroline,

La différence entre Gras et Non Gras n'est pas très grande quand la police
de caractère est grande. Si tu veux observer une

plus grande différence, essaie ceci:


'--------------------------
With Range("C4:C5")
If MsgBox("Voulez-vous appliquer le Gras ?", vbYesNo) = vbYes Then
With .Font
.Bold = True
.Name = "Arial"
.Size = 16
End With
Else
With .Font
.Bold = False
.Name = "Arial"
.Size = 12
End With
End If
End With
'--------------------------


Salutations!






"Caroline L." a écrit dans le message de
news:bG27d.641$

Bonsoir Michdenis,
merci pour ta réponse. J'ai fait le test : si je clique sur Oui, cela
fonctionne, j'ai du gros et les caractères changent de taille. C'est
super.

MAIS, lorsque j'appuie sur Non, j'obtiens le même résultat. ? ? ? ?
Que faire ?



"michdenis" a écrit dans le message de news:
#J$
Bonsoir Caroline,

'--------------------------
With Range("C4:C5")
If MsgBox("Voulez-vous appliquer le Gras ?", vbYesNo) = vbYes Then
With .Font
.Bold = True
.Name = "Arial"
.Size = 16
End With
Else
With .Font
.Bold = False
.Name = "Arial"
.Size = 16
End With
End If
End With
'--------------------------


Salutations!


"Caroline L." a écrit dans le message de
news:Bw07d.310$

Bonjour Sabatier,
j'ai lu mais c'est un peu du chinois pour moi. Peux-tu me donner la
procédure pour un cas très simple et je vais essayer de le modifier à
mon


classeur.

Par exemple, l'utilisateur clique sur un bouton nommé Gras et sur lequel
est

affecté la macro suivante :

Range("C4:C5").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("C4").Select
End Sub

JE VOUDRAIS QU'AU DÉBUT DE LA PROCÉDURE, Lorsque l'on clique sur le
bouton


Gras, une boîte s'ouvre : "Voulez-vous vraiment appliquer le gras ?" si
on

clique Oui, la macro se poursuit et si on clique Non, la s'arrête (donc
les

cellules ne seront pas en gras).

merci de m'aider.


"sabatier" a écrit dans le
message

de news: #
bonjour caroline
tiens lis cela et dis-nous si cela t'inspire

jmagouré = MsgBox("Avez-vous facturé le bon client?" & vbCrLf & vbCrLf
&



_
"Si oui, cliquer ensuite sur Facturation phase 2" & vbCrLf & vbCrLf &
_



"Si non, vous retournez à la case départ, càd au fichier Tarifs",
vbYesNo


+
vbCritical, "Ultime contrôle avant phase 2")
Application.ScreenUpdating = False
If jmagouré = vbNo Then
'ta procédure
If jmagouré = vbYes Then
Exit Sub

jps

"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé
dans




votre
site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro un
message

s'ouvre et que si on clique sur Oui la macro se poursuit. Si on
appuie




sur
Non, la macro cesse.

merci à l'avance.
Bonne journée


















Avatar
sabatier
dis-moi, caroline, que t'avais-je sussuré de si différent que ce félon de
pierre, hein dis-moi?
jps

"Caroline L." a écrit dans le message de
news:TQh7d.2621$
Bonjour Pierre,
génial ! j'ai adapté ta macro à celle que j'ai et ça fonctionne. En
fait,

c'est la fin "If Reponse = vbNo Then Exit Sub" qu'il me manquait.

Gros merci.


"Pierre Fauconnier" a écrit dans le
message de news: #
Bonjour Caroline

Sub MaMacro()
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous lancer la macro?", vbYesNo +
vbQuestion)


If Reponse = vbNo Then Exit Sub
...
...
...
End Sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé dans
votre

site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro un
message

s'ouvre et que si on clique sur Oui la macro se poursuit. Si on appuie
sur


Non, la macro cesse.

merci à l'avance.
Bonne journée












Avatar
Caroline L.
La fin est différente avec le Then Exit Sub. Mais ton chemin fonctionne
aussi (je t'ai répondu dans la lignée ci-dessus).
merci encore à toi ! :o)


"sabatier" a écrit dans le message
de news: #aG499#
dis-moi, caroline, que t'avais-je sussuré de si différent que ce félon de
pierre, hein dis-moi?
jps

"Caroline L." a écrit dans le message de
news:TQh7d.2621$
Bonjour Pierre,
génial ! j'ai adapté ta macro à celle que j'ai et ça fonctionne. En
fait,

c'est la fin "If Reponse = vbNo Then Exit Sub" qu'il me manquait.

Gros merci.


"Pierre Fauconnier" a écrit dans le
message de news: #
Bonjour Caroline

Sub MaMacro()
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous lancer la macro?", vbYesNo +
vbQuestion)


If Reponse = vbNo Then Exit Sub
...
...
...
End Sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé
dans




votre
site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro un
message

s'ouvre et que si on clique sur Oui la macro se poursuit. Si on
appuie




sur
Non, la macro cesse.

merci à l'avance.
Bonne journée
















Avatar
sabatier
au fait, caroline, tu connais philippe R?
non? eh bien, sache que dans ce genre de situation, il t'aurait dit : "
c'était avec plaisir"
jps

"Caroline L." a écrit dans le message de
news:V%i7d.2636$
La fin est différente avec le Then Exit Sub. Mais ton chemin fonctionne
aussi (je t'ai répondu dans la lignée ci-dessus).
merci encore à toi ! :o)


"sabatier" a écrit dans le
message

de news: #aG499#
dis-moi, caroline, que t'avais-je sussuré de si différent que ce félon
de


pierre, hein dis-moi?
jps

"Caroline L." a écrit dans le message de
news:TQh7d.2621$
Bonjour Pierre,
génial ! j'ai adapté ta macro à celle que j'ai et ça fonctionne. En
fait,

c'est la fin "If Reponse = vbNo Then Exit Sub" qu'il me manquait.

Gros merci.


"Pierre Fauconnier" a écrit dans le
message de news: #
Bonjour Caroline

Sub MaMacro()
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous lancer la macro?", vbYesNo +
vbQuestion)


If Reponse = vbNo Then Exit Sub
...
...
...
End Sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé
dans




votre
site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro
un





message
s'ouvre et que si on clique sur Oui la macro se poursuit. Si on
appuie




sur
Non, la macro cesse.

merci à l'avance.
Bonne journée




















Avatar
Pierre Fauconnier
Le félon va le dire pour lui...

Ach, si les amis me tirent dans le dos, maintenant...

Pierre

"sabatier" a écrit dans le message
de news:%23yCiMW$
au fait, caroline, tu connais philippe R?
non? eh bien, sache que dans ce genre de situation, il t'aurait dit : "
c'était avec plaisir"
jps

"Caroline L." a écrit dans le message de
news:V%i7d.2636$
La fin est différente avec le Then Exit Sub. Mais ton chemin fonctionne
aussi (je t'ai répondu dans la lignée ci-dessus).
merci encore à toi ! :o)


"sabatier" a écrit dans le
message

de news: #aG499#
dis-moi, caroline, que t'avais-je sussuré de si différent que ce félon
de


pierre, hein dis-moi?
jps

"Caroline L." a écrit dans le message de
news:TQh7d.2621$
Bonjour Pierre,
génial ! j'ai adapté ta macro à celle que j'ai et ça fonctionne.
En




fait,
c'est la fin "If Reponse = vbNo Then Exit Sub" qu'il me manquait.

Gros merci.


"Pierre Fauconnier" a écrit dans
le




message de news: #
Bonjour Caroline

Sub MaMacro()
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous lancer la macro?", vbYesNo +
vbQuestion)


If Reponse = vbNo Then Exit Sub
...
...
...
End Sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé
dans




votre
site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent
pas.






Pouvez-vous m'aider ? Je veux simplement qu'au début d'une
macro






un
message
s'ouvre et que si on clique sur Oui la macro se poursuit. Si on
appuie




sur
Non, la macro cesse.

merci à l'avance.
Bonne journée
























Avatar
Pierre Fauconnier
C'était avec plaisir, Caroline... ;-)

Et reviens-nous aussi souvent que tu le désires...

Le félon... :)

"Caroline L." a écrit dans le message de
news:TQh7d.2621$
Bonjour Pierre,
génial ! j'ai adapté ta macro à celle que j'ai et ça fonctionne. En
fait,

c'est la fin "If Reponse = vbNo Then Exit Sub" qu'il me manquait.

Gros merci.


"Pierre Fauconnier" a écrit dans le
message de news: #
Bonjour Caroline

Sub MaMacro()
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous lancer la macro?", vbYesNo +
vbQuestion)


If Reponse = vbNo Then Exit Sub
...
...
...
End Sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé dans
votre

site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro un
message

s'ouvre et que si on clique sur Oui la macro se poursuit. Si on appuie
sur


Non, la macro cesse.

merci à l'avance.
Bonne journée












Avatar
sabatier
:-)))))))
jps
PS notre gentille caroline ne doit plus rien comprendre à ce qui s'échange
ici....

"Pierre Fauconnier" a écrit dans le
message de news:eniGic$
C'était avec plaisir, Caroline... ;-)

Et reviens-nous aussi souvent que tu le désires...

Le félon... :)

"Caroline L." a écrit dans le message de
news:TQh7d.2621$
Bonjour Pierre,
génial ! j'ai adapté ta macro à celle que j'ai et ça fonctionne. En
fait,

c'est la fin "If Reponse = vbNo Then Exit Sub" qu'il me manquait.

Gros merci.


"Pierre Fauconnier" a écrit dans le
message de news: #
Bonjour Caroline

Sub MaMacro()
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous lancer la macro?", vbYesNo +
vbQuestion)


If Reponse = vbNo Then Exit Sub
...
...
...
End Sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé
dans




votre
site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent pas.
Pouvez-vous m'aider ? Je veux simplement qu'au début d'une macro un
message

s'ouvre et que si on clique sur Oui la macro se poursuit. Si on
appuie




sur
Non, la macro cesse.

merci à l'avance.
Bonne journée
















Avatar
Caroline L.
non je ne connais pas Philippe R... mais s'il avait conclu avec "c'était
avec plaisir"
j'aurais trouvé ça très gentil.




"sabatier" a écrit dans le message
de news: #yCiMW$
au fait, caroline, tu connais philippe R?
non? eh bien, sache que dans ce genre de situation, il t'aurait dit : "
c'était avec plaisir"
jps

"Caroline L." a écrit dans le message de
news:V%i7d.2636$
La fin est différente avec le Then Exit Sub. Mais ton chemin fonctionne
aussi (je t'ai répondu dans la lignée ci-dessus).
merci encore à toi ! :o)


"sabatier" a écrit dans le
message

de news: #aG499#
dis-moi, caroline, que t'avais-je sussuré de si différent que ce félon
de


pierre, hein dis-moi?
jps

"Caroline L." a écrit dans le message de
news:TQh7d.2621$
Bonjour Pierre,
génial ! j'ai adapté ta macro à celle que j'ai et ça fonctionne.
En




fait,
c'est la fin "If Reponse = vbNo Then Exit Sub" qu'il me manquait.

Gros merci.


"Pierre Fauconnier" a écrit dans
le




message de news: #
Bonjour Caroline

Sub MaMacro()
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous lancer la macro?", vbYesNo +
vbQuestion)


If Reponse = vbNo Then Exit Sub
...
...
...
End Sub

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Caroline L." a écrit dans le message de
news:sG%6d.303$
Bonjour à tous,

je désire ajouter à une macro un MsgBox Oui ou Non. J'ai fouillé
dans




votre
site excelabo mais je ne vois pas.
J'ai essayé avec l'aide Excel mais mes tests ne fonctionnent
pas.






Pouvez-vous m'aider ? Je veux simplement qu'au début d'une
macro






un
message
s'ouvre et que si on clique sur Oui la macro se poursuit. Si on
appuie




sur
Non, la macro cesse.

merci à l'avance.
Bonne journée
























1 2 3