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 Amélioration de mon msgbox

Amélioration de mon msgbox

4 réponses
Avatar
Alpha
Bonjour, je souhaite que si la date arrive à expiration, un autre msgbox, me
prévienne, et compte les jours en retard.
Merci
Alpha

Sub Date_limite()
Dim limite As Date
limite = "10/10/2003"
If limite - Date < 15 Then
MsgBox "Attention ! Pensez à transférer les dossiers avant le 10/10/2003 !"
_
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le classement
!", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
End If

End Sub
Signaler un problème avec ce contenu

4 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
Jean-François Aubert
Salut Alpha,

'**************************************************************
Sub Date_limite()
Dim limite As Date
limite = "5/1/2004"
If Date = limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If

If Date > limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !" _
& vbCrLf & "La limite est dépassée de " & Date - limite & " jours !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If

MsgBox "Attention ! Pensez à transférer les dossiers avant le 10/10/2003 !" _
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le classement !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
End Sub
'******************************************************************
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Alpha" a écrit dans le message de
news:
Bonjour, je souhaite que si la date arrive à expiration, un autre msgbox, me
prévienne, et compte les jours en retard.
Merci
Alpha

Sub Date_limite()
Dim limite As Date
limite = "10/10/2003"
If limite - Date < 15 Then
MsgBox "Attention ! Pensez à transférer les dossiers avant le 10/10/2003 !"
_
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le classement
!", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
End If

End Sub




Avatar
Alpha
Merci beaucoup Jean-François, c'est parfait, c'est ce que j'essaye de faire
depuis un moment. Juste une question, Est-ce que le placement des "end if"
ici comme tu les a placé est préférable.
Alpha

"Jean-François Aubert" <à a écrit dans le message de
news:3ff7f7e5$
Salut Alpha,

'**************************************************************
Sub Date_limite()
Dim limite As Date
limite = "5/1/2004"
If Date = limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If

If Date > limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !" _
& vbCrLf & "La limite est dépassée de " & Date - limite & " jours !",
_

vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If

MsgBox "Attention ! Pensez à transférer les dossiers avant le 10/10/2003
!" _

& vbCrLf & "Il vous reste " & limite - Date & " jours avant le
classement !", _

vbOKOnly + vbExclamation, "Transfert des dossiers"
End Sub
'******************************************************************
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Alpha" a écrit dans le message de
news:
Bonjour, je souhaite que si la date arrive à expiration, un autre
msgbox, me


prévienne, et compte les jours en retard.
Merci
Alpha

Sub Date_limite()
Dim limite As Date
limite = "10/10/2003"
If limite - Date < 15 Then
MsgBox "Attention ! Pensez à transférer les dossiers avant le 10/10/2003
!"


_
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le
classement


!", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
End If

End Sub








Avatar
Jean-François Aubert
Salut Alpha,

Juste une question, Est-ce que le placement des "end if"
ici comme tu les a placé est préférable.


Question piège !!!

Un "End If" se place à la fin du traitement d'une condition.
Dans ton cas tu as 3 possibilités: Úte, >Date ou <Date.
Un "If.....End If" traite une condition.
Cette condition est:
- réalisée et on fait quelque chose
- n'est pas réalisée et on fait autre chose.

Ma macro est une façon de faire parmis d'autres.

2 autres possibilités (avec ou sans "If....End If"):

'*****************************************
Sub Date_limite_bis()
Dim limite As Date
limite = "5/1/2004"
Select Case Date - limite
Case Is < 0
MsgBox "Attention ! Pensez à transférer les dossiers avant le 5/1/2004 !" _
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le classement !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Case Is > 0
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !" _
& vbCrLf & "La limite est dépassée de " & Date - limite & " jours !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Case Else
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
End Select
End Sub
'--------------------------------------------------------------
Sub Date_limite_ter()
Dim limite As Date
limite = "5/1/2004"
If Date = limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If
If Date > limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !" _
& vbCrLf & "La limite est dépassée de " & Date - limite & " jours !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Else
MsgBox "Attention ! Pensez à transférer les dossiers avant le 5/1/2004 !" _
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le classement !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
End Sub
'**************************************************
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Alpha" a écrit dans le message de
news:
Merci beaucoup Jean-François, c'est parfait, c'est ce que j'essaye de faire
depuis un moment. Juste une question, Est-ce que le placement des "end if"
ici comme tu les a placé est préférable.
Alpha

"Jean-François Aubert" <à a écrit dans le message de
news:3ff7f7e5$
Salut Alpha,

'**************************************************************
Sub Date_limite()
Dim limite As Date
limite = "5/1/2004"
If Date = limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If

If Date > limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !" _
& vbCrLf & "La limite est dépassée de " & Date - limite & " jours !",
_

vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If

MsgBox "Attention ! Pensez à transférer les dossiers avant le 10/10/2003
!" _

& vbCrLf & "Il vous reste " & limite - Date & " jours avant le
classement !", _

vbOKOnly + vbExclamation, "Transfert des dossiers"
End Sub
'******************************************************************
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Alpha" a écrit dans le message de
news:
Bonjour, je souhaite que si la date arrive à expiration, un autre
msgbox, me


prévienne, et compte les jours en retard.
Merci
Alpha

Sub Date_limite()
Dim limite As Date
limite = "10/10/2003"
If limite - Date < 15 Then
MsgBox "Attention ! Pensez à transférer les dossiers avant le 10/10/2003
!"


_
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le
classement


!", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
End If

End Sub












Avatar
Alpha
Merci beaucoup Jean-François
Alpha

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Alpha,

Juste une question, Est-ce que le placement des "end if"
ici comme tu les a placé est préférable.


Question piège !!!

Un "End If" se place à la fin du traitement d'une condition.
Dans ton cas tu as 3 possibilités: Úte, >Date ou <Date.
Un "If.....End If" traite une condition.
Cette condition est:
- réalisée et on fait quelque chose
- n'est pas réalisée et on fait autre chose.

Ma macro est une façon de faire parmis d'autres.

2 autres possibilités (avec ou sans "If....End If"):

'*****************************************
Sub Date_limite_bis()
Dim limite As Date
limite = "5/1/2004"
Select Case Date - limite
Case Is < 0
MsgBox "Attention ! Pensez à transférer les dossiers avant le 5/1/2004
!" _

& vbCrLf & "Il vous reste " & limite - Date & " jours avant le
classement !", _

vbOKOnly + vbExclamation, "Transfert des dossiers"
Case Is > 0
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !" _
& vbCrLf & "La limite est dépassée de " & Date - limite & " jours !",
_

vbOKOnly + vbExclamation, "Transfert des dossiers"
Case Else
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !",
_

vbOKOnly + vbExclamation, "Transfert des dossiers"
End Select
End Sub
'--------------------------------------------------------------
Sub Date_limite_ter()
Dim limite As Date
limite = "5/1/2004"
If Date = limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If
If Date > limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui !" _
& vbCrLf & "La limite est dépassée de " & Date - limite & " jours
!", _

vbOKOnly + vbExclamation, "Transfert des dossiers"
Else
MsgBox "Attention ! Pensez à transférer les dossiers avant le 5/1/2004
!" _

& vbCrLf & "Il vous reste " & limite - Date & " jours avant le
classement !", _

vbOKOnly + vbExclamation, "Transfert des dossiers"
End Sub
'**************************************************
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Alpha" a écrit dans le message de
news:
Merci beaucoup Jean-François, c'est parfait, c'est ce que j'essaye de
faire


depuis un moment. Juste une question, Est-ce que le placement des "end
if"


ici comme tu les a placé est préférable.
Alpha

"Jean-François Aubert" <à a écrit dans le
message de


news:3ff7f7e5$
Salut Alpha,

'**************************************************************
Sub Date_limite()
Dim limite As Date
limite = "5/1/2004"
If Date = limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui
!", _



vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If

If Date > limite Then
MsgBox "Attention ! Pensez à transférer les dossiers aujourd'hui
!" _



& vbCrLf & "La limite est dépassée de " & Date - limite & " jours
!",



_
vbOKOnly + vbExclamation, "Transfert des dossiers"
Exit Sub
End If

MsgBox "Attention ! Pensez à transférer les dossiers avant le
10/10/2003



!" _
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le
classement !", _

vbOKOnly + vbExclamation, "Transfert des dossiers"
End Sub
'******************************************************************
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Alpha" a écrit dans le message de
news:
Bonjour, je souhaite que si la date arrive à expiration, un autre
msgbox, me


prévienne, et compte les jours en retard.
Merci
Alpha

Sub Date_limite()
Dim limite As Date
limite = "10/10/2003"
If limite - Date < 15 Then
MsgBox "Attention ! Pensez à transférer les dossiers avant le
10/10/2003




!"
_
& vbCrLf & "Il vous reste " & limite - Date & " jours avant le
classement


!", _
vbOKOnly + vbExclamation, "Transfert des dossiers"
End If

End Sub