Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel lister les contenus des msgbox

lister les contenus des msgbox

5 réponses
Avatar
e.lecrenier
Bonjour
après maintes déboires, j'ai réalisé, non sans la complicité de AV et celle
du Beau Marseillais, un fichier de rôles de gardes, avec cinq noms et six
pauses horaires journalières.
Une macro teste différentes conditions, telle que "pas deux nuits
consécutives pour la même personne". Si c'est le cas, un msgbox m'informe
"Attention, Dupont (d) fait deux nuits le 01/10/2003 et le 02/10/2003" ...et
ainsi de suite
Question: Est-il possible de créer une feuille supplémentaire (oui!) sur
laquelle viendraient s'imprimer tous les contenus des messages issus des
msgbox, autrement dit la liste des erreurs constatées lors de l'élaboration
de la grille de services.?
Un grand merci

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net
Signaler un problème avec ce contenu

5 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
Joël
Bonjour,

Une idée ...

Après avoir créé la feuille "Messages", incrire "Les messages" en A1,
ajouter dans le code, lorsque le msgbox est demandé :

MsgBox "Mon Message"
Worksheets("Messages").range("A65536").End(xlUp).Offset(1,0).Value="Mon
Message"

Non testé, mais cela devrait fonctionner...
--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"e.lecrenier" a écrit dans le message de news:
3f9905c4$0$3667$
Bonjour
après maintes déboires, j'ai réalisé, non sans la complicité de AV et
celle

du Beau Marseillais, un fichier de rôles de gardes, avec cinq noms et six
pauses horaires journalières.
Une macro teste différentes conditions, telle que "pas deux nuits
consécutives pour la même personne". Si c'est le cas, un msgbox m'informe
"Attention, Dupont (d) fait deux nuits le 01/10/2003 et le 02/10/2003"
...et

ainsi de suite
Question: Est-il possible de créer une feuille supplémentaire (oui!) sur
laquelle viendraient s'imprimer tous les contenus des messages issus des
msgbox, autrement dit la liste des erreurs constatées lors de
l'élaboration

de la grille de services.?
Un grand merci

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net




Avatar
ru-th
Salut Jacquouille

i suppose que tu dois avoir des lignes de controles du type
if machin then msgbox(truc & "bidule")

tu pourrais faire
if machin then
rep=truc&"bidule"
sheets("controle").range("a" &range("a65536").end(xlup).row+1).value=rep
msgbox rep
endif

a+
rural thierry

"e.lecrenier" a écrit dans le message de news:
3f9905c4$0$3667$
Bonjour
après maintes déboires, j'ai réalisé, non sans la complicité de AV et
celle

du Beau Marseillais, un fichier de rôles de gardes, avec cinq noms et six
pauses horaires journalières.
Une macro teste différentes conditions, telle que "pas deux nuits
consécutives pour la même personne". Si c'est le cas, un msgbox m'informe
"Attention, Dupont (d) fait deux nuits le 01/10/2003 et le 02/10/2003"
...et

ainsi de suite
Question: Est-il possible de créer une feuille supplémentaire (oui!) sur
laquelle viendraient s'imprimer tous les contenus des messages issus des
msgbox, autrement dit la liste des erreurs constatées lors de
l'élaboration

de la grille de services.?
Un grand merci

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net




Avatar
e.lecrenier
Un grand merci à Joël et à Thierry qui a su très bien lire dans mes pensées.
mais, n'est-ce pas un peu (para) normal, mon Père?
Je teste et je reviens vous eng si cela ne va pas . -)))
Encore merci.

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net

"ru-th" a écrit dans le message de
news:
Salut Jacquouille

i suppose que tu dois avoir des lignes de controles du type
if machin then msgbox(truc & "bidule")

tu pourrais faire
if machin then
rep=truc&"bidule"
sheets("controle").range("a" &range("a65536").end(xlup).row+1).value=rep
msgbox rep
endif

a+
rural thierry

"e.lecrenier" a écrit dans le message de news:
3f9905c4$0$3667$
Bonjour
après maintes déboires, j'ai réalisé, non sans la complicité de AV et
celle

du Beau Marseillais, un fichier de rôles de gardes, avec cinq noms et
six


pauses horaires journalières.
Une macro teste différentes conditions, telle que "pas deux nuits
consécutives pour la même personne". Si c'est le cas, un msgbox
m'informe


"Attention, Dupont (d) fait deux nuits le 01/10/2003 et le 02/10/2003"
...et

ainsi de suite
Question: Est-il possible de créer une feuille supplémentaire (oui!) sur
laquelle viendraient s'imprimer tous les contenus des messages issus des
msgbox, autrement dit la liste des erreurs constatées lors de
l'élaboration

de la grille de services.?
Un grand merci

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net








Avatar
e.lecrenier
Re
Comme promis, je reviens pour vous dire.....
rien ne va. J'ai créé la nouvelle feuille et l'ai baptisée, puis j'ai
appliqué les deux solutions (pratiquement identiques, mais bernique ...Ci-
joint, copie du brol:
A moinsse que dans Rep, il ne faille reformuler l'appartenance de la feuille
pour les cel ? >>> range ("feuil1!iv1") ???? vu qu'on change de feuille
????
---------------------------
For x = 2 To 31
Range("iv1").FormulaLocal = "=NB.SI(B" & x & ":J" & x & ";""=AY"")"
If Range("iv1") > 1 Then
Rep = Range("iv1") & " fois AY le " & Range("A" & x)
'Sheets("Controle").Range("A" & Range("A65536").End(xlUp).Row +
1).Value = Rep
Worksheets("Controle").Range("A65536").End(xlUp).Offset(1, 0).Value
= Rep
MsgBox Rep

End If
Next
End Sub

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net

"ru-th" a écrit dans le message de
news:
Salut Jacquouille

i suppose que tu dois avoir des lignes de controles du type
if machin then msgbox(truc & "bidule")

tu pourrais faire
if machin then
rep=truc&"bidule"
sheets("controle").range("a" &range("a65536").end(xlup).row+1).value=rep
msgbox rep
endif

a+
rural thierry

"e.lecrenier" a écrit dans le message de news:
3f9905c4$0$3667$
Bonjour
après maintes déboires, j'ai réalisé, non sans la complicité de AV et
celle

du Beau Marseillais, un fichier de rôles de gardes, avec cinq noms et
six


pauses horaires journalières.
Une macro teste différentes conditions, telle que "pas deux nuits
consécutives pour la même personne". Si c'est le cas, un msgbox
m'informe


"Attention, Dupont (d) fait deux nuits le 01/10/2003 et le 02/10/2003"
...et

ainsi de suite
Question: Est-il possible de créer une feuille supplémentaire (oui!) sur
laquelle viendraient s'imprimer tous les contenus des messages issus des
msgbox, autrement dit la liste des erreurs constatées lors de
l'élaboration

de la grille de services.?
Un grand merci

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net








Avatar
Joël
Bien alors voilà, remplace tout ton code par celui-ci

Pourquoi passer par une formule en colonne IV ?

Sub Historique()
Dim x As Integer
Dim y As Integer
Dim rep As String
rep = ""
For x = 1 To 8
y = Application.WorksheetFunction.CountIf(Worksheets("Source").Range("B" &
x & ":J" & x), "AY")
If y > 1 Then
rep = y & " fois AY le" & Range("A" & x)
Worksheets("Controle").Range("A65536").End(xlUp).Offset(1, 0).Value rep
MsgBox rep
End If
Next
End Sub

;-)
--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"e.lecrenier" a écrit dans le message de news:
3f9917cc$0$273$
Re
Comme promis, je reviens pour vous dire.....
rien ne va. J'ai créé la nouvelle feuille et l'ai baptisée, puis j'ai
appliqué les deux solutions (pratiquement identiques, mais bernique ...Ci-
joint, copie du brol:
A moinsse que dans Rep, il ne faille reformuler l'appartenance de la
feuille

pour les cel ? >>> range ("feuil1!iv1") ???? vu qu'on change de feuille
????
---------------------------
For x = 2 To 31
Range("iv1").FormulaLocal = "=NB.SI(B" & x & ":J" & x &
";""=AY"")"

If Range("iv1") > 1 Then
Rep = Range("iv1") & " fois AY le " & Range("A" & x)
'Sheets("Controle").Range("A" & Range("A65536").End(xlUp).Row +
1).Value = Rep
Worksheets("Controle").Range("A65536").End(xlUp).Offset(1,
0).Value

= Rep
MsgBox Rep

End If
Next
End Sub

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net

"ru-th" a écrit dans le message de
news:
Salut Jacquouille

i suppose que tu dois avoir des lignes de controles du type
if machin then msgbox(truc & "bidule")

tu pourrais faire
if machin then
rep=truc&"bidule"
sheets("controle").range("a" &range("a65536").end(xlup).row+1).value=rep
msgbox rep
endif

a+
rural thierry

"e.lecrenier" a écrit dans le message de news:
3f9905c4$0$3667$
Bonjour
après maintes déboires, j'ai réalisé, non sans la complicité de AV et
celle

du Beau Marseillais, un fichier de rôles de gardes, avec cinq noms et
six


pauses horaires journalières.
Une macro teste différentes conditions, telle que "pas deux nuits
consécutives pour la même personne". Si c'est le cas, un msgbox
m'informe


"Attention, Dupont (d) fait deux nuits le 01/10/2003 et le 02/10/2003"
...et

ainsi de suite
Question: Est-il possible de créer une feuille supplémentaire (oui!)
sur



laquelle viendraient s'imprimer tous les contenus des messages issus
des



msgbox, autrement dit la liste des erreurs constatées lors de
l'élaboration

de la grille de services.?
Un grand merci

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net