Insertion de MsgBox

Version imprimable

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).
28/02/2017, 15h39
Marc-L

Salut !

Jacques je te comprends tout à fait, à tel point car je n'interviens plus depuis un temps
dans de nombreuses discussions même si je dispose déjà d'une solution sous le coude ! …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
28/02/2017, 15h50
Florine26

Je me suis peut-être mal exprimée, mais à la base je suis venue ici pour chercher de l'aide et non (pardonnez moi l'expression) qu'on se foute de moi... J'essaye juste d'apprendre avec l'aide qu'on voudra bien me donner mais apparemment je me suis trompée de forum veuillez m'en excuser.
28/02/2017, 16h19
halaster08

NON
Personne ici ne se fout de toi, la seule chose qu'as dit unparia c'est que ton titre et ton explication ne sont absolument pas en adequation avec ton problème, puisque le code plante bien avant d'arrivé au msgbox.

Quand a apporter de l'aide, on essaye mais ce n'est pas facile quand on que des informations partielles, d'ailleurs j'attend toujours les réponses à mes dernière questions.
28/02/2017, 17h00
Menhir

Citation:

Envoyé par Florine26

à la base je suis venue ici pour chercher de l'aide et non (pardonnez moi l'expression) qu'on se foute de moi... J'essaye juste d'apprendre avec l'aide qu'on voudra bien me donner mais apparemment je me suis trompée de forum veuillez m'en excuser.

D'un autre côté, quand on donne du temps et des efforts pour régler les problèmes des autres en total bénévolat et que, en retour, les personnes font le moins possible d'effort pour participer à la résolution de leur propre problème, qu'il faut leur tirer les vers du nez plusieurs fois pour obtenir des bribes d'informations au compte-goutes et qu'elles laissent faire en espérant que d'autres vont se charger de faire leur travail, il faut bien avouer que c'est très... démotivant... :calim2:

Ca ne donne vraiment pas envie de continuer.
28/02/2017, 17h07
Florine26

Bref je ne continuerais pas sur ce sujet. Si vous ne voulez pas comprendre que je suis novice et que j'y comprend VRAIMENT RIEN ma foi, il existe des personnes qui mettent du temps à comprendre et j'en fait partie mais qui malgré tout veulent apprendre mais bon... Je ne vous ennuierais plus soyez en sûr, bonne continuation. Et merci aux personnes qui m'ont donné quelques idées, je continue mes recherches.
28/02/2017, 17h19
Menhir

Citation:

Envoyé par Florine26

il existe des personnes qui mettent du temps à comprendre et j'en fait partie mais qui malgré tout veulent apprendre

Tu veux apprendre ? 8O
Je n'ai pas l'impression que tu ais une seule fois consulté l'aide ou lu un didacticiel pour "apprendre".
http://bidou.developpez.com/article/VBA/
Des questions te sont posées, tu réponds à une sur deux.
Des propositions te sont faites, tu n'en tiens même pas compte.

Tu te contentes de dire "ça bloque" et ensuite il faut te tirer les verres du nez pour avoir plus d'info.

Mais si tu veux jouer les offusquées et laisser tomber, c'est toi qui sera la plus ennuyée.
28/02/2017, 17h23
Florine26

Et moi je n'ai pas l'impression que tu saches ce que j'ai fait ou pas ! Détrompe toi j'ai consulté bien plus de choses que tu ne le crois.
Je ne baisse pas les bras, je continue des chercher mais ailleurs :)
28/02/2017, 17h31
Menhir

Citation:

Envoyé par Florine26

Détrompe toi j'ai consulté bien plus de choses que tu ne le crois.

Dans ce cas, tu l'as bien caché parce que ça ne transparait pas dans tes interventions.
J'ai l'impression que ton action se limite à essayer de trouver une macro qui ressemble un peu à ce que tu veux faire et ensuite de trouver des personnes pour l'adapter à ton cas (je suppose que ce sera le but de ta "continuation ailleurs"). Difficile de qualifier ça d'apprentissage.
28/02/2017, 17h41
unparia

Qu'elle commence à s'intéresser un peu à ce que dit son aide VBA à propos de la notation des objets qui figurent dans un bloc With .
Elle a déjà une erreur à ce ... niveau ...
Elle en a peut-être une autre à un autre niveau. On le lui a dit. :pleure:
28/02/2017, 17h42
Florine26

Tu as sûrement raison.

Fuseau horaire GMT +2. Il est actuellement 01h49.