Modification Macro [EXCEL]

Bas Sujet précédent Sujet suivant S'enregistrer pour participer

Modification Macro

Invité

Bonsoir a tous
ce soir je viens par ce présent mail , sollicite si possible votre aide concernant mon fichier
excel qui me pose un souci que je n'arrive pas a trouver la solution a la modification de ma macro excel
J'aimerai ceci:
j’aimerai un message texte qui apparait après 3 mois tout en tenant compte de la date d’ouverture , donc je m’explique
Lorsque j’inscris les informations concernant le client tout en tenant compte de la date d’ouverture qui est considéré comme la date de décompte de l’écriture inscrite dans le tableau Excel après 3 mois un message texte apparait on disant
Le client nomme X N° Regist X atteint ces 3 mois dans quelque jour (Nbre de jours inscrite)
Le client Nomme X N° Regist X a déjà atteint 3 mois et plus
C’est ce que j’aimerai mettre dans mon message texte qui ne fonctionne pas selon
Mon tableau Excel
si vraiment vous pouvez m'aidez je serai tres ravi
merci de votre aide d'avance

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 25/11/2013 18:55

BrunoM45

Re : Modification Macro

Invité

Bonjour Ntx et bienvenue sur ce forum

Tu peux essayer ce code


Private Sub Workbook_Open()

  Dim DLig As Long, Lig As Long

  Dim sTmp As String, sDate As String, vDate As Date

  Dim EcartJ As Long, EcartM As Long

  Dim Msg As String

  With Worksheets("Model 1")

    DLig = .Range("B" & Rows.Count).End(xlUp).Row

    For Lig = 13 To DLig  ' Pour chaque ligne

      sTmp = .Range("B" & Lig).Value

      ' Vérifier s'il s'agit d'une ligne d'ouverture

      ' Sinon, passer à la ligne suivante

      If InStr(1, sTmp, "Date ouv") = 0 Then GoTo SuiteLig

      ' Récupérer le texte de la date

      sDate = Mid(sTmp, InStr(1, sTmp, "/") - 2, 10)

      ' Convertir en valeur de date

      vDate = DateValue(sDate)

      ' Calculer l'écart en mois

      EcartM = DateDiff("m", vDate, Now)

      ' Selon l'écart

      If EcartM >= 2 And EcartM < 3 Then

        EcartJ = DateDiff("d", vDate, Now)

        Msg = Msg & "Le client  " & .Cells(Lig - 2, 2) & " pour " _

            & ", N°Reg " & .Cells(Lig - 3, 4) & "  atteint  ces 3 mois, dans " & EcartJ & " jours." & Chr(10)

      ElseIf EcartM > 3 Then

        Msg = Msg & "Le client " & .Cells(Lig - 2, 2) & " pour " _

            & ", mat " & .Cells(Lig, 1) & " a dejà atteint  3 mois et  plus  " & Chr(10)

      End If

SuiteLig:

    Next Lig

    MsgBox Msg

  End With

End Sub

A+

Date de publication : 25/11/2013 23:02

Information

Bienvenue sur le forum VeriTi,

Une équipe de bénévoles se tient à votre disposition pour vous venir en aide. N'hésitez pas à poser votre question en rapport avec Excel sur le forum Excel, et une question générale en rapport avec le site sur le forum VeriTi

Bonne programmation

Equipe VeriTi ;-)

ntx

Re : Modification Macro

Invité

Merci beaucoup je vais l'essayer et je te ferais signe
merci de votre aide d'avance

Date de publication : 29/11/2013 18:43

ntx

Re : Modification Macro

Invité

bonjour Bruno j'ai essayer ton code mais il ne marche pas il m'affiche une boite de dialogue vide je ne comprends rien
peu tu m'expliquer s'il te plait
merci

Date de publication : 30/11/2013 19:33

Dan

Re : Modification Macro

Invité

Bonjour

En regardant ton fichier il y a un truc qui est pas "propre" et qui n'aide pas dans le code.
Pourquoi mets-tu le mot "Date ouv" et une date une seule et même cellule. C'est compliqué ce truc là et ce, d'autant que tu laisses en plus des espaces entre les caractères. C'est un peu ingérable en matière de code ou alors cela fonctionnera une fois sur deux.
Modifie plutôt ton fichier en prévoyant la colonne C pour y mettre la date ou alors ne mets que la date en B13, B17 etc, ce sera nettement plus simple de construire un code.

Amicalement

Date de publication : 03/12/2013 13:25

____________________
@+ Dan

Brigitte

Re : Modification Macro

Modérateur

Bonsoir le fil,

Juste une incursion pour remercier Dan d'être en visite ici et pour lui faire un gros bisou...
J'espère que tu feel good.

Bye...

Date de publication : 03/12/2013 19:52

____________________
Brigitte

http://carottecuisine.over-blog.com/

ntx

Re : Modification Macro

Invité

Merci dan d'avoir repondu a mon sujet
es ce que tu me faire un exemple de code pourque je comprenne tres bien

merci de votre aide

Date de publication : 04/12/2013 18:58

Dan

Re : Modification Macro

Invité

Re,

Le fichier semble ne pas être passé

Vois le fichier joint que j'ai modifié pour que tu comprennes.
L'idéal étant tout de même d'avoir une colonne séparée pour les dates. De base je les ai laissées en colonne B.
Il faut aussi ne laisser que 4 lignes entre les "Date ouv :" mentionnées en colonne B.
Pour simplifier j'ai supprimé une partie de la feuille "Model 1".

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 06/12/2013 13:36

____________________
@+ Dan

Accueil » Rubrique EXCEL » EXCEL » Modification Macro

Haut Sujet précédent Sujet suivant

S'enregistrer pour participer

Vous pouvez consulter les sujets.

Vous ne pouvez pas débuter un nouveau sujet.

Vous ne pouvez pas répondre aux messages.

Vous ne pouvez pas modifier vos messages.

Vous ne pouvez pas supprimer vos messages.

Vous ne pouvez pas créer des sondages.

Vous ne pouvez pas participer aux sondages.

Vous ne pouvez pas joindre des fichiers à vos messages.

Vous ne pouvez pas publier vos messages sans approbation.

Vous ne pouvez pas utiliser ce type de sujet.

Vous ne pouvez pas utiliser le HTML.

Vous ne pouvez pas utiliser une signature dans vos messages.

veriti site des amis d'excel

EXCEL ANNEE 2017

Bienvenue

Musee

Hommage

Historique

veriti site des amis d'excel

EXCEL ANNEE 2017

Bienvenue

Musee

Hommage

Historique

Membre