IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Insertion de MsgBox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Juin 2016
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 29
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2016
    Messages : 16
    Par défaut 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).Suivi des créances clients (modèle).xlsx

  2. #2
    Membre chevronné Avatar de Kiouane
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2016
    Messages
    198
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2016
    Messages : 198
    Par défaut
    Je te conseille de lire les événements Workbook http://silkyroad.developpez.com/VBA/EvenementsClasseur/
    Workbook_Open dans ton cas

  3. #3
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    Juillet 2014
    Messages
    2 681
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Santé

    Informations forums :
    Inscription : Juillet 2014
    Messages : 2 681
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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/

  4. #4
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    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".

  5. #5
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Juin 2016
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 29
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2016
    Messages : 16
    Par défaut
    Oui pourquoi pas, merci pour vos idées.
    J'aimerais tout de même savoir à quoi le code VBA aurait pu ressembler...

  6. #6
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    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.

  7. #7
    Membre chevronné
    Homme Profil pro
    Alternant
    Inscrit en
    Décembre 2015
    Messages
    413
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 30
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Alternant

    Informations forums :
    Inscription : Décembre 2015
    Messages : 413
    Par défaut
    Tu en as un de code pour exemple :

    Citation Envoyé par halaster08 Voir le message
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  8. #8
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Juin 2016
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 29
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2016
    Messages : 16
    Par défaut 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.
    Fichiers attachés Fichiers attachés

  9. #9
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    Juillet 2014
    Messages
    2 681
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Santé

    Informations forums :
    Inscription : Juillet 2014
    Messages : 2 681
    Par défaut
    Citation Envoyé par Florine26 Voir le message

    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 Voir le message
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Insertion image en tant qu'icone dans une msgbox
    Par Luis Vieira da Silva dans le forum Interfaces Graphiques
    Réponses: 5
    Dernier message: 01/02/2012, 02h27
  2. [Toutes versions] msgbox si insertion de ligne
    Par leptitdave dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 28/08/2009, 08h55
  3. [XL-2003] créer msgbox pour insertion données dans cellule
    Par gaihdriah dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 06/05/2009, 16h53
  4. [Postgresql] pb lors d'insertion de données
    Par bob20000 dans le forum Requêtes
    Réponses: 8
    Dernier message: 04/11/2002, 15h33
  5. Réponses: 4
    Dernier message: 28/09/2002, 00h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo