mettre X si une condition est respectéeRésolu

Question

Bonjour à tous,

j'ai besoin d'aide car je suis novice en VBA. 
j'ai une macro qui analyse des dates, pour les dates de la colonne B qui se situent dans les 7 jours après aujourd'hui, alors un mail est envoyé à l'adresse correspondante en colonne E. 

Le but est d'envoyer un mail de rappel à la bonne personne. 
Le problème c'est que si je lance la macro tous les jours cette macro va se envoyer des mails au même personne sans cesse. 
Je voudrais donc que lors de la première analyse, si les dates sont respectées alors un mail est envoyé dans ce car mettre en X en colonne G sur la ligne correspondante. Ensuite lors de la prochaine analyse, s'il y a un X alors ne pas envoyer de mail. 

Voici mon code actuel d'analyse des dates

Sub TesteDate()'envoie un mail si la date est dans 7 jours ou moinsDim sSujet, sBody, sAdresseMail As String 'chaines pour le sujet, corps, adresse d'envoiDim duree As Date 'nbre de jours entre aujourd'hui et la date à testerDim Lig_Deb, Lig_Fin As Integer 'ligne de début, de finDim sDates_Col, sMails_Col As String 'colonnes qui contiennent les dates à tester et les adresses mailDim I As Integer'initialisation des constantes de la macro :Lig_Deb = 2 'dans ma feuille Excel, les dates à tester commencent en ligne 2sDates_Col = "B" ' et elles sont en colonne B ( 2 ième colonne)et les adresses mail sont en colonne E à côté'initialisation des données du mail envoyé :sSujet = "Visite médical"sBody = "Votre agent doit passer sa visite médicale dans sept jours ou moins."'Ligne de fin =1ère cellule vide dans la colonne des datesLig_Fin = Val(Range(sDates_Col & CStr(Lig_Deb)).End(xlDown).Row)' boucle de test dans la plage des dates (=> )For I = Lig_Deb To Lig_FinRange(sDates_Col & CStr(I)).Select 'activer la cellule testéeduree = ActiveCell.Value - Now  ' la date est dans la cellule activeIf duree <= 7 And duree > 0 Then 'la date est dans 7 jours ou moins par rapport à aujourd'huisAdresseMail = ActiveCell.Offset(0, 3).Value 'l'adresse mail est dans trois colonne après offset (0,3)' envoyer le mail :CDO_SendMail sSujet, sBody, sAdresseMailElseEnd IfNext IEnd Sub


Merci d'avance pour votre aide.

ucfoutu · Answer

Bonjour, Sous VBA :
1) dim X, Y as type_machin
ne type en type_machin que Y.
Il faut typer explicitement chaque variable
===>> à corriger :
Dim Lig_Deb, Lig_Fin As Integer Dim sDates_Col, sMails_Col As String
2) on ne sélectionne pas une cellule pour y travailler (lourd). On manipule l'objet Range qu'elle est :
exemple :
Range("A3").selecttoto = activecell.value
s'écrit
toto = range("A3").value
3) l'utilisation de l'argument xldown ne retourne pas la dernière ligne remplie, mais la première non remplie. Risque à ne jamais courir.
La dernière ligne remplie de la colonne B est assurément :
Range("B" & rows.count).end(xlup).row 
4) typer lig_fin en integer est maladroit. Le nombre de lignes remplies peut dépasser la limite d'un integer. Typer en long

Je m'arrête personnellement là car continuer serait tout te faire (et c'est vraiment simple) de A à Z.

EDIT : tu voudras bien comprendre les raisons de ma réaction.
- tu ne connais apparemment pas grand-chose de VBA/Excel, mais :
--- tu ne montres ni un véritable intérêt d'apprentissage des bases
--- tu ne sembles même pas tenir compte des réponses que tu as reçues dans ta toute première discussion.
J'en veux pour preuve cette ligne de code :
Lig_Fin = Val(Range(sDates_Col & CStr(Lig_Deb)).End(xlDown).Row)
à comparer avec ce que je t'ai dit du type de Row

Il est sans doute utile que tu te familiarise avec les rudiments avant de continuer à tenter d'écrire ton projet (d'autant que j'observe que tu cherches finalement à en faire écrire toutes les parties, une par une, à en juger par toutes les discussions ouvertes et concernant des points très simples).
Bonne chance.
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Discussion par ailleurs déplacée du forum général "Visual Basic" vers le sous-forum où elle aurait dû être ouverte (VBA).

Mettre X si une condition est respectée

2 réponses

Votre réponse

Discussions similaires