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
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