annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement



Modification Macro
#1
Invité


Informations sur l'utilisateur
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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Modification Macro
#2
Invité


Informations sur l'utilisateur
Bonjour Ntx et bienvenue sur ce forum

Tu peux essayer ce code
Private Sub Workbook_Open()
  
Dim DLig As LongLig As Long
  Dim sTmp 
As StringsDate As StringvDate As Date
  Dim EcartJ 
As LongEcartM 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(sTmpInStr(1sTmp"/") - 210)
      
' 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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


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 ;-)


Haut


Re : Modification Macro
#3
Invité


Informations sur l'utilisateur
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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Modification Macro
#4
Invité


Informations sur l'utilisateur
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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Modification Macro
#5
Invité


Informations sur l'utilisateur
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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Modification Macro
#6
Modérateur


Informations sur l'utilisateur
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/
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Modification Macro
#7
Invité


Informations sur l'utilisateur
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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : Modification Macro
#8
Invité


Informations sur l'utilisateur
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
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut







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.

[Recherche avancée]


Copyright 2013 Powered by XOOPS © 2001-2013