Discussion :

[fullmetalknet]

bonjour,
Débutant dans la matière j'ai un petit problème avec VBA!
pour améliorer la maintenance préventive de mon boulot je voudrais créer des alertes pour prendre des RDV chez mes clients!

je dois 2 visites par ans (de préférence espacé de 6 mois)

dans mon fichier excel j'ai 2 dates prévisionnel pour la 1ere visite (cellule "R7") et a 2éme visite (cellule "U7").
dans les cellules "S7" et "V7" j'indique la date de la maintenance.
et par le biais d'une formule je calcule le nombre de jours restant dans les cellule "T7" et "W7".

étant donnée que j'ai a peu près 80 clients je voulais un msgbox qui s'affiche a l'ouverture du fichier.

j'ai donc créer cette macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'1ere visite
If Range("S7") = 0 Then If Range("T7") < 16 Then If Range("T7") > 0 Then MsgBox "Attention !!! Prendre RDV (client N°1) 1ere visite", 64, "Information"
If Range("S7") = 0 Then If Range("T7") < 0 Then MsgBox "TRES URGENT !!! MAINTENANCE EN RETARD Prendre RDV (client N°1) 1ere visite", 48, "ALERTE!!!"

ceci fonctionne a peu près le soucis c'est comme j'ai 80 clients je me vois mal taper 320 lignes de macro

si quelqu'un connais une formule qui pourrai s'appliquer au autres lignes...

désolé du roman que je viens d'écrire
merci d'avance

[Krovax]

Bonjour,
Sans connaitre ton fichier difficile de taider
Essaye de faire une boucle de la première a la dernière ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim i as long, DerniereLigne  as long
DerniereLigne = Range("S65536").End(xlUp).Row'récupère la dernière ligne de la colonne S
for i=2 to DerniereLigne 'de la 2ème a la dernière ligne
'1ere visite
If Range("S" & i) = 0 and  Range("T" & i) < 16 and Range("T" & i) > 0 Then MsgBox "Attention !!! Prendre RDV (client N°1) 1ere visite", 64, "Information"
If Range("S" & i) = 0 and Range("T" & i) < 0 Then MsgBox "TRES URGENT !!! MAINTENANCE EN RETARD Prendre RDV (client N°1) 1ere visite", 48, "ALERTE!!!"
next i

Tu le place dansl'évènement workbook_open
voir ce tuto
http://silkyroad.developpez.com/VBA/EvenementsClasseur/

[fullmetalknet]

merci ca marche super