Insertion de MsgBox

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/06/2016, 10h45
Florine26

1 pièce(s) jointe(s)

Insertion de MsgBox

Bonjour,

Je souhaite réaliser un document Excel qui servira au suivi des créances clients.

Mon tableau contient la date d'aujourd'hui, une colonne de la date de la facture, 5 colonnes de relance qui sont en mise en forme conditionnelle (remplissage rouge avec texte "retard" lorsque le délai maximum est atteint.

Je viens chercher de l'aide sur ce forum car je souhaiterais insérer une "alerte/rappel" par MsgBox qui se déclencherait à l'ouverture du fichier, un peu avant la date de chaque relance a effectué (5 jours avant).

Merci de bien vouloir m'aider.

(Ci-joint un exemple de mon fichier).Pièce jointe 211676
03/06/2016, 10h49
Kiouane

Je te conseille de lire les événements Workbook http://silkyroad.developpez.com/VBA/EvenementsClasseur/
Workbook_Open dans ton cas

Bonjour,

Un exemple de ce que j'utilise pour comparer à l'ouverture du fichier, un date incrite en dur dans le fichier et la date d'aujourd'hui.
A adapter pour tes besoins:
Code:

1 2 3 4 5 Private Sub Workbook_Open() With Sheets("Interface") If Not (Year(Date) = Year(.Cells(45, 4)) And Month(Date) = Month(.Cells(45, 4))) Then MsgBox "ATTENTION: les données ne sont pas à jour" End With End Sub
PS: La plupart des gens n'ouvrent pas les pièces jointes surtout au premier post: http://www.developpez.net/forums/d84...s-discussions/

06/06/2016, 18h07
Menhir

A mon avis, c'est une mauvaise idée de passer par un MsgBox pour au moins trois raisons : c'est volatile, on ne peut pas l'utiliser pour un traitement (imprimer, cocher, etc.), on ne maitrise rien question format.

Je te conseille donc plutôt de créer un onglet "Relances" dans lequel seront inscrits ces renseignements.
Eventuellement, tu peux utiliser le MsgBox pour envoyer un message simple du style "Attention, il reste 5 relance à faire et il y en aura 4 autre à faire dans les jours à venir, voir l'onglet Relance".
07/06/2016, 09h41
Florine26

Oui pourquoi pas, merci pour vos idées.
J'aimerais tout de même savoir à quoi le code VBA aurait pu ressembler...
07/06/2016, 10h18
Menhir

Tu commences par vider ton onglet journal avec un ClearContents.
Puis tu scrutes l'ensemble de tes lignes de facture avec une boucle For.
Quand tu en rencontres une dont les conditions corresponde à ce que tu cherches, tu copies le contenu qui t'intéresse à la suite du fichier journal.

Tu en as un de code pour exemple :mrgreen: :
Citation:
Envoyé par halaster08
Bonjour,

Un exemple de ce que j'utilise pour comparer à l'ouverture du fichier, un date incrite en dur dans le fichier et la date d'aujourd'hui.
A adapter pour tes besoins:
Code:

1 2 3 4 5 Private Sub Workbook_Open() With Sheets("Interface") If Not (Year(Date) = Year(.Cells(45, 4)) And Month(Date) = Month(.Cells(45, 4))) Then MsgBox "ATTENTION: les données ne sont pas à jour" End With End Sub

28/02/2017, 10h21
Florine26

1 pièce(s) jointe(s)

Problème toujours pas résolu...

Bonjour tout le monde,

Je fais remonter mon post car je n'ai toujours pas trouvé solution à mon problème, malgré toutes les recherches je reste coincée...

Voila, j'ai simplifié mon tableau et je souhaiterais toujours qu'un message s'affiche lorsque la facture est arrivée à échéance ou bien lorsqu'elle s'en approche (disons 5 jours avant).
J'ai pour idée que les messages ressembleraient à ceci "La facture n° "..." du client "..." est arrivée à échéance" ; "La facture n° "..." du client "..." arrive bientôt à échéance".

J'ai tenté de faire un code VBA en m'aidant d'un exemple mais le résultat n'est toujours pas là...

Si quelqu'un pourrait me venir en aide ce serait génial ! Merci d'avance.
28/02/2017, 10h40
halaster08

Citation:

Envoyé par Florine26

J'ai tenté de faire un code VBA en m'aidant d'un exemple mais le résultat n'est toujours pas là...

Si quelqu'un pourrait me venir en aide ce serait génial !

Citation:

Envoyé par halaster08

La plupart des gens n'ouvrent pas les pièces jointes surtout au premier post: http://www.developpez.net/forums/d84...s-discussions/

Montre nous ton code et explique ce qui ne marche pas.
28/02/2017, 10h46
Florine26

1 pièce(s) jointe(s)

Voici le code est l'erreur qui s'affiche.
28/02/2017, 10h54
halaster08

Arrive-tu a lire ton code sur l'image? Moi non.
Copie ton code avec la balise code (bouton #), ce sera beaucoup plus lisible.
Peux tu aussi préciser a quelle ligne cette erreur apparait? (si besoin lancer le code en pas à pas via F8)

Une petite remarque je ne sais pas combien de message tu t'attends a avoir a chaque fois mais admettons que tu en ai 10, tu vas devoir dire ok aux 10 messages. Il me semblerait plus judicieux de concatener les textes des messages (avec un saut de ligne) dans la boucle, et ne faire qu'un seul msgbox a la fin.
edit: en fait c'est déjà ce que tu avais fait j'avais vraiment du mal à lire ...
28/02/2017, 10h58
unparia

Bonjour
Le message d'erreur reçu est clair : l'objet utilisé d'une collection n'existe pas.
Il est vraisemblable que la collection Worksheets n'abrite pas un objet WorkSheet (une feuille, donc) nommé exactement "N°"
Attention : un simple caractère espace en plus ou en moins fait qu'une chaîne de caractère est différente.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
Private Sub Workbook_Open()
Dim Cel As Range
Dim Ecart As Long
Dim Msg As String
    With Worksheets("N°")
        For Each Cel In .Range("J6:J" & .Range("A" & Rows.Count).End(xlUp).Row)
            If DateDiff("d", Now, Cel.Value) < 0 Then
                Ecart = 0
            Else
                Ecart = DateDiff("d", Now, Cel.Value)
            End If
            Select Case Ecart
            Case 1 To 38
                Msg = Msg & "La facture " & Cel.Offset(0, -4) & " pour " & Cel.Offset(0, -6) _
                & ", N° " & Cel.Offset(0, -7) & " arrive à échéance dans " & Cel.Offset(0, 1) & " jours." & Chr(10)
            Case 0
                Msg = Msg & "La facture " & Cel.Offset(0, -4) & " pour " & Cel.Offset(0, -6) _
                & ", N° " & Cel.Offset(0, -7) & " a atteint ou dépassé l'échéance." & Chr(10)
            End Select
        Next Cel
        MsgBox Msg
    End With
End Sub

L'erreur se produit dès le début à "With Worksheets("N°")"

28/02/2017, 11h15
unparia

Citation:

L'erreur se produit dès le début à "With Worksheets("N°")"

Ce qui ne fait que confirmer ce que j'ai écrit dans mon message précédent.
28/02/2017, 11h18
Florine26

Oui j'ai réussi à corriger cette erreur mais me voilà encore coincée à la ligne suivante...je suis novice en VBA

Non pardon, je me retrouve coincée à la ligne "If" la première
28/02/2017, 11h26
unparia

Quand comptes-tu commencer à dire quel est le message d'erreur reçu ?
Nonobstant, je peux deviner qu'il s'agit de l'erreur 13 (incompatibilité de type) et qu'elle est due au fait que la cellule cel en cause lorsque tu reçois ce message n'est pas une date (ni même un numérique).
Tu ne penses tout de même pas (sait-on jamais) que ce forum à vocation de corriger, l'une après l'autre, toutes les lignes de code que tu écris ? Rassure-moi.
28/02/2017, 11h31
Menhir

Quand tu as un bug, le minimum est de donner :
- le dernier code
- la ligne sur laquelle se produit cette erreur
- le message de cette erreur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Workbook_Open()
Dim Cel As Range
Dim Ecart As Long
Dim Msg As String
    With Worksheets("Facture")
        For Each Cel In .Range("J6:J" & .Range("A" & Rows.Count).End(xlUp).Row)
            If DateDiff("j", Now, Cel.Value) < 0 Then
                Ecart = 0
            Else
                Ecart = DateDiff("j", Now, Cel.Value)
            End If
            Select Case Ecart
            Case 1 To 38
                Msg = Msg & "La facture " & Cel.Offset(0, -4) & " pour " & Cel.Offset(0, -6) _
                & ", Facture " & Cel.Offset(0, -7) & " arrive à échéance dans " & Cel.Offset(0, 1) & " jours." & Chr(10)
            Case 0
                Msg = Msg & "La facture " & Cel.Offset(0, -4) & " pour " & Cel.Offset(0, -6) _
                & ", N° " & Cel.Offset(0, -7) & " a atteint ou dépassé l'échéance." & Chr(10)
            End Select
        Next Cel
        MsgBox Msg
    End With
End Sub

Erreur 13 : incompatibilité de type, j'ai mis la ligne sur laquelle se produit l'erreur en gras.

28/02/2017, 11h42
halaster08

L'aide sur datediff:
https://msdn.microsoft.com/fr-fr/lib...(v=vs.90).aspx
Je pense qu'il ne reconnait pas ton "j", c'est plutôt "d", non?

edit: d'ailleurs c'était "d" dans le code précédent, pourquoi ce changement?

edit2: si tu utilise la fonction excel datedif(date1,date2, periode) (attention: différente de celle vba 1 seul f dans le nom et la periode a la fin)
Tu obtiens un nombre ou une erreur?
28/02/2017, 12h45
unparia

Ce qui me "chiffonne" personnellement le plus dans cette affaire, c'est (à la fois) :
- le titre donné à cette discussion, à savoir :

Citation:

Insertion de MsgBox

et cette confirmation, à savoir :

Citation:

Je viens chercher de l'aide sur ce forum car je souhaiterais insérer une "alerte/rappel" par MsgBox qui se déclencherait à l'ouverture du fichier, un peu avant la date de chaque relance a effectué (5 jours avant).

qui montre bien la difficulté à distinguer cause et effet.
Et on arrive finalement à quoi ? -->> à corriger des imperfections (l'une après l'autre) du code en amont même de la justification de l'affichage d'une msgbox. :cry:
Il m'arrive parfois de m'interroger sur le réel bénéfice (pour le demandeur) de ce genre d'aide et de corrections en amont alors qu'il ne voit, lui, qu'un problème en aval.
Il m'arrive de commencer à être un peu ... (comment le dire ?) ... assez "fatigué".
Je pense que je vais attendre quelques jours, que les choses et les attentes redeviennent plus "normales".

EDIT : à tous ceux qui ne comprendraient pas ma lassitude :
Que penseriez-vous de l'automobiliste qui vous déclarerait que son compteur de vitesse (ou de tours) reste immobile alors qu'il vous tairait (vous l'apprendriez plus tard) qu'il n'a même pas démarré ?
A bientôt (peut-être).

Voir 40 message(s) de cette discussion en une page