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
sabatier
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 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
michdenis
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.
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
michdenis
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
tu as de la chance, caroline, que j'ai su me nommer un bon suppléant lequel,
toutefois, t'embrouille un peu en laissant tomber le principe de la variable
que j'avais pourtant glissé subrepticement dans mon offre mais bon, pour la
facture, elle reste au tarif syndical...
jps

"michdenis" a écrit dans le message de
news:%23J$
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
Jacky
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
Jacky
jmagouré Elle en veut pas Caroline, de cette variable(faut dire qu'elle est pas
jolie.. jolie), t'aurais du l'appeler 'Caroline'


;o))
JJ

"sabatier" a écrit dans le message
de news:
tu as de la chance, caroline, que j'ai su me nommer un bon suppléant
lequel,

toutefois, t'embrouille un peu en laissant tomber le principe de la
variable

que j'avais pourtant glissé subrepticement dans mon offre mais bon, pour
la

facture, elle reste au tarif syndical...
jps

"michdenis" a écrit dans le message de
news:%23J$
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
ou là encore, une histoire de bouchers...
jps (toujours à la tête de lard)

"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
Pierre Fauconnier
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