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

Msgbox

10 réponses
Avatar
Pierre.M
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno). Dans
les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour obtenir
l'effet voulu (apres le 1er clic le Msgbox disparait et reapparait
instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a la fin...

Merci pour vos idees.

Pierre.M
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
Avatar
Youky
rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de news:
44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno). Dans les
2 cas je suis oblige de cliquer 2 fois sur le bouton pour obtenir l'effet
voulu (apres le 1er clic le Msgbox disparait et reapparait
instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a la
fin...

Merci pour vos idees.

Pierre.M



Avatar
Pierre.M
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une
boucle... Une autre idee peut-etre? En tous cas merci de t'y etre
interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de news:
44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno). Dans
les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour obtenir
l'effet voulu (apres le 1er clic le Msgbox disparait et reapparait
instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a la fin...

Merci pour vos idees.

Pierre.M




Avatar
Youky
Comment cà...!!!..tu sais pas....,?????.
"je ne crois pas etre dans une boucle"
Une autre idee peut-etre?
Oohhh que Oui
Chu curieux de voir ta macro, mais sans elle dur-dur
verifie que ton msgbox ne soit pas entre un For et Next ou autres boucles
Youky


"Pierre.M" a écrit dans le message de news:
44aaa6be$0$828$
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une boucle...
Une autre idee peut-etre? En tous cas merci de t'y etre interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de news:
44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno). Dans
les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour obtenir
l'effet voulu (apres le 1er clic le Msgbox disparait et reapparait
instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a la
fin...

Merci pour vos idees.

Pierre.M








Avatar
Pierre.M
Voila, j'ai mis ca dans thisworkbook

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?",
vbYesNo + vbQuestion, "Nouvel Article")

If MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo +
vbQuestion, "Nouvel Article") = vbYes Then

F_saisie.Show

End If

End Sub

Y a-t-il une boucle? Je suis super debutant (et j'etais assez content
de moi...) alors soit indulgent, c'est pas si simple au debut... :-(

Pierre.M


On 2006-07-04 21:34:21 +0200, "Youky" said:

Comment cà...!!!..tu sais pas....,?????.
"je ne crois pas etre dans une boucle"
Une autre idee peut-etre?
Oohhh que Oui
Chu curieux de voir ta macro, mais sans elle dur-dur
verifie que ton msgbox ne soit pas entre un For et Next ou autres boucles
Youky


"Pierre.M" a écrit dans le message de news:
44aaa6be$0$828$
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une
boucle... Une autre idee peut-etre? En tous cas merci de t'y etre
interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de news:
44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno). Dans
les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour obtenir
l'effet voulu (apres le 1er clic le Msgbox disparait et reapparait
instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a la fin...

Merci pour vos idees.

Pierre.M








Avatar
jps
bonjour pierre
youky qui supportait l'allemagne est encore sous le choc et je prends le
relais
écris ta proc comme ceci et tout va rentrer dans l'ordre (clément aurait dit
"dans les ordres")

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", _
vbYesNo + vbQuestion, "Nouvel Article")

If ouverture = vbYes Then

F_saisie.Show

End If

End Sub

HTH
jps

"Pierre.M" a écrit dans le message de news:
44aad784$0$890$
Voila, j'ai mis ca dans thisworkbook

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo +
vbQuestion, "Nouvel Article")

If MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo +
vbQuestion, "Nouvel Article") = vbYes Then

F_saisie.Show

End If

End Sub

Y a-t-il une boucle? Je suis super debutant (et j'etais assez content de
moi...) alors soit indulgent, c'est pas si simple au debut... :-(

Pierre.M


On 2006-07-04 21:34:21 +0200, "Youky" said:

Comment cà...!!!..tu sais pas....,?????.
"je ne crois pas etre dans une boucle"
Une autre idee peut-etre?
Oohhh que Oui
Chu curieux de voir ta macro, mais sans elle dur-dur
verifie que ton msgbox ne soit pas entre un For et Next ou autres boucles
Youky


"Pierre.M" a écrit dans le message de news:
44aaa6be$0$828$
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une
boucle... Une autre idee peut-etre? En tous cas merci de t'y etre
interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de news:
44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno). Dans
les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour obtenir
l'effet voulu (apres le 1er clic le Msgbox disparait et reapparait
instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a la
fin...

Merci pour vos idees.

Pierre.M












Avatar
Youky
Merci jps et cher voisin, à bientot
Youky
"jps" a écrit dans le message de news:
O4LNg9%
bonjour pierre
youky qui supportait l'allemagne est encore sous le choc et je prends le
relais
écris ta proc comme ceci et tout va rentrer dans l'ordre (clément aurait
dit "dans les ordres")

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", _
vbYesNo + vbQuestion, "Nouvel Article")

If ouverture = vbYes Then

F_saisie.Show

End If

End Sub

HTH
jps

"Pierre.M" a écrit dans le message de news:
44aad784$0$890$
Voila, j'ai mis ca dans thisworkbook

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo
+ vbQuestion, "Nouvel Article")

If MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo +
vbQuestion, "Nouvel Article") = vbYes Then

F_saisie.Show

End If

End Sub

Y a-t-il une boucle? Je suis super debutant (et j'etais assez content de
moi...) alors soit indulgent, c'est pas si simple au debut... :-(

Pierre.M


On 2006-07-04 21:34:21 +0200, "Youky" said:

Comment cà...!!!..tu sais pas....,?????.
"je ne crois pas etre dans une boucle"
Une autre idee peut-etre?
Oohhh que Oui
Chu curieux de voir ta macro, mais sans elle dur-dur
verifie que ton msgbox ne soit pas entre un For et Next ou autres
boucles
Youky


"Pierre.M" a écrit dans le message de news:
44aaa6be$0$828$
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une
boucle... Une autre idee peut-etre? En tous cas merci de t'y etre
interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET
ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de news:
44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno). Dans
les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour obtenir
l'effet voulu (apres le 1er clic le Msgbox disparait et reapparait
instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a la
fin...

Merci pour vos idees.

Pierre.M
















Avatar
jps
de rien, youky, but where are you coming from then?
jps

"Youky" a écrit dans le message de news:
OtfpJb$
Merci jps et cher voisin, à bientot
Youky
"jps" a écrit dans le message de news:
O4LNg9%
bonjour pierre
youky qui supportait l'allemagne est encore sous le choc et je prends le
relais
écris ta proc comme ceci et tout va rentrer dans l'ordre (clément aurait
dit "dans les ordres")

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", _
vbYesNo + vbQuestion, "Nouvel Article")

If ouverture = vbYes Then

F_saisie.Show

End If

End Sub

HTH
jps

"Pierre.M" a écrit dans le message de news:
44aad784$0$890$
Voila, j'ai mis ca dans thisworkbook

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo
+ vbQuestion, "Nouvel Article")

If MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo +
vbQuestion, "Nouvel Article") = vbYes Then

F_saisie.Show

End If

End Sub

Y a-t-il une boucle? Je suis super debutant (et j'etais assez content de
moi...) alors soit indulgent, c'est pas si simple au debut... :-(

Pierre.M


On 2006-07-04 21:34:21 +0200, "Youky" said:

Comment cà...!!!..tu sais pas....,?????.
"je ne crois pas etre dans une boucle"
Une autre idee peut-etre?
Oohhh que Oui
Chu curieux de voir ta macro, mais sans elle dur-dur
verifie que ton msgbox ne soit pas entre un For et Next ou autres
boucles
Youky


"Pierre.M" a écrit dans le message de news:
44aaa6be$0$828$
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une
boucle... Une autre idee peut-etre? En tous cas merci de t'y etre
interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET
ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de news:
44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno).
Dans les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour
obtenir l'effet voulu (apres le 1er clic le Msgbox disparait et
reapparait instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a
la fin...

Merci pour vos idees.

Pierre.M




















Avatar
Youky
I'm à Caluire mais plus souvent à Neuvile s/saone
j'adore le Beaujolais mais avant tout le rosé.
Faut que je te fasse une petite visite un jour,
Youky
Bruno Jeune sur Excelabo
"jps" a écrit dans le message de news:

de rien, youky, but where are you coming from then?
jps

"Youky" a écrit dans le message de news:
OtfpJb$
Merci jps et cher voisin, à bientot
Youky
"jps" a écrit dans le message de news:
O4LNg9%
bonjour pierre
youky qui supportait l'allemagne est encore sous le choc et je prends le
relais
écris ta proc comme ceci et tout va rentrer dans l'ordre (clément aurait
dit "dans les ordres")

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", _
vbYesNo + vbQuestion, "Nouvel Article")

If ouverture = vbYes Then

F_saisie.Show

End If

End Sub

HTH
jps

"Pierre.M" a écrit dans le message de news:
44aad784$0$890$
Voila, j'ai mis ca dans thisworkbook

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?",
vbYesNo + vbQuestion, "Nouvel Article")

If MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo +
vbQuestion, "Nouvel Article") = vbYes Then

F_saisie.Show

End If

End Sub

Y a-t-il une boucle? Je suis super debutant (et j'etais assez content
de moi...) alors soit indulgent, c'est pas si simple au debut... :-(

Pierre.M


On 2006-07-04 21:34:21 +0200, "Youky" said:

Comment cà...!!!..tu sais pas....,?????.
"je ne crois pas etre dans une boucle"
Une autre idee peut-etre?
Oohhh que Oui
Chu curieux de voir ta macro, mais sans elle dur-dur
verifie que ton msgbox ne soit pas entre un For et Next ou autres
boucles
Youky


"Pierre.M" a écrit dans le message de news:
44aaa6be$0$828$
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une
boucle... Une autre idee peut-etre? En tous cas merci de t'y etre
interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET
ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de
news: 44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno).
Dans les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour
obtenir l'effet voulu (apres le 1er clic le Msgbox disparait et
reapparait instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a
la fin...

Merci pour vos idees.

Pierre.M























Avatar
jps
quand tu veux, bruno, y a que la saône à traverser!!!
à +
jps

"Youky" a écrit dans le message de news:
%23$
I'm à Caluire mais plus souvent à Neuvile s/saone
j'adore le Beaujolais mais avant tout le rosé.
Faut que je te fasse une petite visite un jour,
Youky
Bruno Jeune sur Excelabo
"jps" a écrit dans le message de news:

de rien, youky, but where are you coming from then?
jps

"Youky" a écrit dans le message de news:
OtfpJb$
Merci jps et cher voisin, à bientot
Youky
"jps" a écrit dans le message de news:
O4LNg9%
bonjour pierre
youky qui supportait l'allemagne est encore sous le choc et je prends
le relais
écris ta proc comme ceci et tout va rentrer dans l'ordre (clément
aurait dit "dans les ordres")

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", _
vbYesNo + vbQuestion, "Nouvel Article")

If ouverture = vbYes Then

F_saisie.Show

End If

End Sub

HTH
jps

"Pierre.M" a écrit dans le message de news:
44aad784$0$890$
Voila, j'ai mis ca dans thisworkbook

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?",
vbYesNo + vbQuestion, "Nouvel Article")

If MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo +
vbQuestion, "Nouvel Article") = vbYes Then

F_saisie.Show

End If

End Sub

Y a-t-il une boucle? Je suis super debutant (et j'etais assez content
de moi...) alors soit indulgent, c'est pas si simple au debut... :-(

Pierre.M


On 2006-07-04 21:34:21 +0200, "Youky" said:

Comment cà...!!!..tu sais pas....,?????.
"je ne crois pas etre dans une boucle"
Une autre idee peut-etre?
Oohhh que Oui
Chu curieux de voir ta macro, mais sans elle dur-dur
verifie que ton msgbox ne soit pas entre un For et Next ou autres
boucles
Youky


"Pierre.M" a écrit dans le message de news:
44aaa6be$0$828$
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une
boucle... Une autre idee peut-etre? En tous cas merci de t'y etre
interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET
ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de
news: 44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno).
Dans les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour
obtenir l'effet voulu (apres le 1er clic le Msgbox disparait et
reapparait instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a
la fin...

Merci pour vos idees.

Pierre.M



























Avatar
Pierre.M
Merci beaucoup a tous les deux. Ca marche bien maintenant. J'aurais pu
y penser tout seul...
Desole Youky pour le foot.

Pierre.M

On 2006-07-05 06:56:10 +0200, "jps" said:

bonjour pierre
youky qui supportait l'allemagne est encore sous le choc et je prends le relais
écris ta proc comme ceci et tout va rentrer dans l'ordre (clément
aurait dit "dans les ordres")

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?", _
vbYesNo + vbQuestion, "Nouvel Article")

If ouverture = vbYes Then

F_saisie.Show

End If

End Sub

HTH
jps

"Pierre.M" a écrit dans le message de news:
44aad784$0$890$
Voila, j'ai mis ca dans thisworkbook

Private Sub Workbook_Open()

Dim ouverture As String

ouverture = MsgBox("Voulez-vous enregistrer un nouvel article?",
vbYesNo + vbQuestion, "Nouvel Article")

If MsgBox("Voulez-vous enregistrer un nouvel article?", vbYesNo +
vbQuestion, "Nouvel Article") = vbYes Then

F_saisie.Show

End If

End Sub

Y a-t-il une boucle? Je suis super debutant (et j'etais assez content
de moi...) alors soit indulgent, c'est pas si simple au debut... :-(

Pierre.M


On 2006-07-04 21:34:21 +0200, "Youky" said:

Comment cà...!!!..tu sais pas....,?????.
"je ne crois pas etre dans une boucle"
Une autre idee peut-etre?
Oohhh que Oui
Chu curieux de voir ta macro, mais sans elle dur-dur
verifie que ton msgbox ne soit pas entre un For et Next ou autres boucles
Youky


"Pierre.M" a écrit dans le message de news:
44aaa6be$0$828$
Salut YoukY,

Ton bout de code ne le fait pas et je ne crois pas etre dans une
boucle... Une autre idee peut-etre? En tous cas merci de t'y etre
interesse.

Pierre.M



On 2006-07-04 18:19:05 +0200, "Youky" said:

rep = MsgBox("Supprimer ce truc ...?", 4 + 32, "SUPPRIMER CET ARTICLE")
If rep = vbNo Then Exit Sub

ce bout de code le fait-il aussi....????
Verifie que ta Msgbox n'est pas dans une boucle
Youky
(avec "y" à la fin de Youky)

"Pierre.M" a écrit dans le message de news:
44aa8741$0$874$
Bonjour à tous,

J'ai une reaction curieuse dans un Msgbox a 2 boutons (vbyesno). Dans
les 2 cas je suis oblige de cliquer 2 fois sur le bouton pour obtenir
l'effet voulu (apres le 1er clic le Msgbox disparait et reapparait
instantanement).

Quelqu'un aurait peut-etre une explication? C'est assez irritant a la fin...

Merci pour vos idees.

Pierre.M