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 encore les dates

encore les dates

7 réponses
Avatar
thiery
bonjour à tous et toutes
voilà sur A j'ai une date et lorsque je rentre une date sur B cela me fasse
la différence entre les deux et m'affiche une msgbox
avec l'écart des deux et si possible un son

merci d'avance

--
Amicalement
thiery
Signaler un problème avec ce contenu

7 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
Jacky
Bonjour,

Date de début en A1
Date de fin en B1
En C1:
ÚTEDIF(A1;B1;"d") '* différence en jours
ou pour
ÚTEDIF(A1;B1;"m") '* différence en mois
ou pour
ÚTEDIF(A1;B1;"y") '* différence en années
'---
MFC de C1
Condition 1
La valeur de la cellule est supérieure à 48 (si c'est en mois)
Format etc...
Dans le module de la feuille ceci:
'-----
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$B$1" Then Exit Sub
If [c1] > 48 Then Beep: MsgBox "La période est dépassée de " & [c1] - 48 & "
mois"
End Sub
'---------
Salutations
JJ
"thiery" a écrit dans le message de
news:43e05962$0$20179$
bonjour à tous et toutes
voilà sur A j'ai une date et lorsque je rentre une date sur B cela me
fasse

la différence entre les deux et m'affiche une msgbox
avec l'écart des deux et si possible un son

merci d'avance

--
Amicalement
thiery




Avatar
thiery
Jacky wrote:
Bonjour,

Date de début en A1
Date de fin en B1
En C1:
ÚTEDIF(A1;B1;"d") '* différence en jours
ou pour
ÚTEDIF(A1;B1;"m") '* différence en mois
ou pour
ÚTEDIF(A1;B1;"y") '* différence en années
'---
MFC de C1
Condition 1
La valeur de la cellule est supérieure à 48 (si c'est en mois)
Format etc...
Dans le module de la feuille ceci:
'-----
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$B$1" Then Exit Sub
If [c1] > 48 Then Beep: MsgBox "La période est dépassée de " & [c1] -
48 & " mois"
End Sub
'---------
Salutations
JJ



merci Jacky je teste ça ce soir
bonne journée


--
Amicalement
thiery

Avatar
Alain CROS
Bonjour,

A la place du beep :

Application.ExecuteExcel4Macro ("SOUND.PLAY(,""C:WINDOWSMEDIAThe Microsoft Sound.wav"")")

Alain CROS

"thiery" a écrit dans le message de news: 43e09f9f$0$29180$
| Jacky wrote:
| > Bonjour,
| >
| > Date de début en A1
| > Date de fin en B1
| > En C1:
| > ÚTEDIF(A1;B1;"d") '* différence en jours
| > ou pour
| > ÚTEDIF(A1;B1;"m") '* différence en mois
| > ou pour
| > ÚTEDIF(A1;B1;"y") '* différence en années
| > '---
| > MFC de C1
| > Condition 1
| > La valeur de la cellule est supérieure à 48 (si c'est en mois)
| > Format etc...
| > Dans le module de la feuille ceci:
| > '-----
| > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
| > If Target.Address <> "$B$1" Then Exit Sub
| > If [c1] > 48 Then Beep: MsgBox "La période est dépassée de " & [c1] -
| > 48 & " mois"
| > End Sub
| > '---------
| > Salutations
| > JJ
|
|
| merci Jacky je teste ça ce soir
| bonne journée
|
|
| --
| Amicalement
| thiery
|
|
Avatar
thiery
Alain CROS wrote:
Bonjour,

A la place du beep :

Application.ExecuteExcel4Macro ("SOUND.PLAY(,""C:WINDOWSMEDIAThe
Microsoft Sound.wav"")")

Alain CROS

"thiery" a écrit dans le message de news:
43e09f9f$0$29180$
Jacky wrote:
Bonjour,

Date de début en A1
Date de fin en B1
En C1:
ÚTEDIF(A1;B1;"d") '* différence en jours
ou pour
ÚTEDIF(A1;B1;"m") '* différence en mois
ou pour
ÚTEDIF(A1;B1;"y") '* différence en années
'---
MFC de C1
Condition 1
La valeur de la cellule est supérieure à 48 (si c'est en mois)
Format etc...
Dans le module de la feuille ceci:
'-----
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$B$1" Then Exit Sub
If [c1] > 48 Then Beep: MsgBox "La période est dépassée de " & [c1]
- 48 & " mois"
End Sub
'---------
Salutations
JJ




je commence juste excel je crée le module etc mais ça foire
je dois être manchot j'y arrive pas , peux tu m'expedier un fichier exemple
stp
un gd merci d'avance
ote le 3 pour me répondre

--
Amicalement
thiery



Avatar
michdenis
Bonjour Thierry,

Tu dois remplacer : C:WINDOWSMEDIAThe Microsoft Sound.wav
par un chemin et un nom de fichier .wav valide.

Le chemin indiqué dans la ligne de commande est celui de Windows Xp.
Le nom du fichier... à toi de le déterminer... mais il doit exister dans le
chemin que tu détermineras.


Salutations!

"thiery" a écrit dans le message de news: 43e0fbe6$0$29189$
Alain CROS wrote:
Bonjour,

A la place du beep :

Application.ExecuteExcel4Macro ("SOUND.PLAY(,""C:WINDOWSMEDIAThe
Microsoft Sound.wav"")")

Alain CROS

"thiery" a écrit dans le message de news:
43e09f9f$0$29180$
Jacky wrote:
Bonjour,

Date de début en A1
Date de fin en B1
En C1:
ÚTEDIF(A1;B1;"d") '* différence en jours
ou pour
ÚTEDIF(A1;B1;"m") '* différence en mois
ou pour
ÚTEDIF(A1;B1;"y") '* différence en années
'---
MFC de C1
Condition 1
La valeur de la cellule est supérieure à 48 (si c'est en mois)
Format etc...
Dans le module de la feuille ceci:
'-----
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$B$1" Then Exit Sub
If [c1] > 48 Then Beep: MsgBox "La période est dépassée de " & [c1]
- 48 & " mois"
End Sub
'---------
Salutations
JJ




je commence juste excel je crée le module etc mais ça foire
je dois être manchot j'y arrive pas , peux tu m'expedier un fichier exemple
stp
un gd merci d'avance
ote le 3 pour me répondre

--
Amicalement
thiery



Avatar
Jacky
RE...
je dois être manchot j'y arrive pas , peux tu m'expedier un fichier
exemple


Regarde ici:
http://cjoint.com/?cbuJUKvquK
Salutations
JJ

"thiery" a écrit dans le message de news:
43e0fbe6$0$29189$
Alain CROS wrote:
Bonjour,

A la place du beep :

Application.ExecuteExcel4Macro ("SOUND.PLAY(,""C:WINDOWSMEDIAThe
Microsoft Sound.wav"")")

Alain CROS

"thiery" a écrit dans le message de news:
43e09f9f$0$29180$
Jacky wrote:
Bonjour,

Date de début en A1
Date de fin en B1
En C1:
ÚTEDIF(A1;B1;"d") '* différence en jours
ou pour
ÚTEDIF(A1;B1;"m") '* différence en mois
ou pour
ÚTEDIF(A1;B1;"y") '* différence en années
'---
MFC de C1
Condition 1
La valeur de la cellule est supérieure à 48 (si c'est en mois)
Format etc...
Dans le module de la feuille ceci:
'-----
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$B$1" Then Exit Sub
If [c1] > 48 Then Beep: MsgBox "La période est dépassée de " & [c1]
- 48 & " mois"
End Sub
'---------
Salutations
JJ




je commence juste excel je crée le module etc mais ça foire
je dois être manchot j'y arrive pas , peux tu m'expedier un fichier
exemple stp
un gd merci d'avance
ote le 3 pour me répondre

--
Amicalement
thiery






Avatar
thiery
merci beaucoup , c'est nickel

--
Amicalement
thiery