Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA msg box

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion obyone
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

obyone

XLDnaute Occasionnel
bonjour,
j'ai la macro suivante

Private Sub Workbook_Open()

If a <> b Then
If a < b Then
MsgBox "Il manque " & Abs(a - b) & " fichier(s) dans SID Stoneridge"
Else
MsgBox "Il manque " & Abs(a - b) & " ligne(s) dans le tableau SID Stoneridge"
End If
Else
MsgBox "controle stoneridge OK"
End If

If c <> d Then
If c < d Then
MsgBox "Il manque " & Abs(c - d) & " fichier(s) dans SI VDO"
Else
MsgBox "Il manque " & Abs(c - d) & " ligne(s) dans le tableau SI VDO"
End If
Else
MsgBox "controle SI VDO OK"
End If

If e <> f Then
If e < f Then
MsgBox "Il manque " & Abs(e - f) & " fichier(s) dans Documents Normatifs"
Else
MsgBox "Il manque " & Abs(e - f) & " ligne(s) dans le tableau Normatifs"
End If
Else
MsgBox "controle Document Normatifs OK"
End If

End Sub

qui me genere plusieurs msgbox, mais j'aimerais compiler les resultats dans une seule est ce que quelqu'un à une solution

merci
 
Trier par date Trier par votes
Re : VBA msg box

Bonjour obyone
Avec un petit fichier exemple anonyme il est toujours plus simple de tester les propositions émises....


VB: 
Sub Test()
Dim Msg As String

If a <> b Then
    If a < b Then
        Msg = "Il manque " & Abs(a - b) & " fichier(s) dans SID Stoneridge" & vbNewLine
    Else
        Msg = "Il manque " & Abs(a - b) & " ligne(s) dans le tableau SID Stoneridge" & vbNewLine
    End If
Else
    Msg = "controle stoneridge OK" & vbNewLine
End If



If c <> d Then
    If c < d Then
        Msg = Msg & "Il manque " & Abs(c - d) & " fichier(s) dans SI VDO" & vbNewLine
    Else
        Msg = Msg & "Il manque " & Abs(c - d) & " ligne(s) dans le tableau SI VDO" & vbNewLine
    End If
Else
    Msg = Msg & "controle SI VDO OK" & vbNewLine
End If



If e <> f Then
    If e < f Then
        Msg = Msg & "Il manque " & Abs(e - f) & " fichier(s) dans Documents Normatifs" & vbNewLine
    Else
        Msg = Msg & "Il manque " & Abs(e - f) & " ligne(s) dans le tableau Normatifs" & vbNewLine
    End If
Else
    Msg = Msg & "controle Document Normatifs OK" & vbNewLine
End If



MsgBox Msg, 64, "Résultat"
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : VBA msg box

bonjour,
merci de ta reponse,
j'ai une erreur d'execution 1004, erreur definie par l'application ou par l'objet...

à quoi correspond ta ligne
MsgBox Msg, 64,"Résultat" ou plutot comment est elle construit...
merci
 
Vote positif 0 Vote négatif
Re : VBA msg box

Bonjour obyone
La plage nommée "Normatifs" est en erreur donc la ligne
VB: 
    c = Range("Normatifs").Rows.Count 'compte lignes tableau normatifs
est en erreur.
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
272
sousou
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
179
treza88
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
636
lynyrd
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
385
dysorthographie
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
513
TooFatBoy
Y
  • Résolu(e)
XL 2019 Vérification si dossier existe et création s'il n'existe pas
Réponses
3
Affichages
82
youguybass
Y
  • Question Question
XL 2021 Erreur "l'indice n'appartient à la selection"
Réponses
10
Affichages
658
treza88
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
189
treza88
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
420
sylvanu
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
679
un internaute
U
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
1 K
isandre
I
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
372
job75
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
331
AtTheOne
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
408
nabilexcel2007
N
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
405
patricktoulon
N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
482
nabilexcel2007
N
  • Résolu(e)
XL 2021 Erreur l'indice n'appartient pas à la sélection
Réponses
2
Affichages
148
treza88
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
4 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…