Génerer un Message box sous condition

Bonjour,

J'ai un tableau avec une multitude de lignes et colonnes. En colonne A j'ai les dates des jours ouvrés sur 5 ans (ou plus). En colonne D je saisi un montant quotidiennement et en colonne R il y a une formule qui m'indique "ok" ou "ko". Il est important de savoir que toutes les cellules du tableau contiennent des données : chiffres, formules, texte, sauf la colonne D, dans laquelle la dernière cellule non vide est celle correspondant à la date du jour.

Pour mon projet, j'aurai besoin grâce à une macro sans bouton de :

- trouver et sélectionner (pas obligatoirement) la ligne avec la date du jour en colonne A
- sur cette ligne, aller vérifier en colonne R si le mot "ko" est affiché
- si oui : Message box avec "attention ko"
- si non : enregistrer le fichier et fermer

Actuellement, j'ai réussi à bidouiller quelque chose qui m'indique en Message box la dernière cellule contenant "ko", mais ce n'est pas exactement ce que je veux, et je n'arrive pas à savoir par ou commencer, j'aurai donc besoin de votre aide, svp!

Code:

---

1 2 3 4 5 6 7 8 9

Sub arrosage() Range("R1").End(xlDown).Select 'Pour déterminer la dernière cellule non vide de la colonne (mais comme le reste des cellules contiennent des N/A, cela ne fonctionne pas)   If Range("R65000").End(xlUp) = "ko" Then   MsgBox "Attention ko!"   End If End Sub

---

Merci beaucoup par avance!

Salut,

Si j'ai bien compris ce que tu veux :" sans bouton".
C'est qu'a la fermeture du fichier la macro s’exécute toute seule.

Pour cela, il faut utiliser une macro événementielle. Pour tout savoir sur le sujet, je te propose un peu de lecture. Utile pour savoir où mettre le code ci dessous.
http://silkyroad.developpez.com/VBA/EvenementsClasseur/

Et pour faire ce que tu veux, une proposition de code.
'ceci est une macro évènementielle qui s'exécute à la fermeture du fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'on détermine la dernière ligne de ton tableau grace à la colonne A dligne = Range("A4").End(xlDown).Row 'on vérifie ce qui est ecrit dans la colonne R (la N° 18) If Cells(dligne, 18).Value = "ko" Then 'Afficage du message MsgBox "Attention KO" 'on annule la fermeture du fichier Cancel = True Else 'Enregistrement du fichier avec fermeture ActiveWorkbook.Save End If End Sub

---

Bonjour Jérôme,

Merci beaucoup pour votre aide.
Le lien sur les macro événementielles m'a beaucoup aidé. Je ne connaissais pas le principe.

J'ai réussi à faire un code simple, mais qui répond à mon besoin.

Bonne journée à vous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer i = Application.WorksheetFunction.Match(CLng(Date - 1), Range("A:A"), 0) Range("A" & i).Activate   If ActiveCell.Offset(0, 17).Value = "KO" Then MsgBox ("Attention KO") Cancel = True Else ActiveWorkbook.Save   End If   End Sub

---

Bonjour,

J'ai une autre question.

Comment est-ce que je peut prendre en compte les jours fériés dans mon code?

C'est à dire que j'ai une liste des jours fériés et sur la ligne

Code:

---

i = Application.WorksheetFunction.Match(CLng(Date - 1), Range("A:A"), 0)

---

j'ai besoin qu'il prenne en compte cette liste et les jours non-ouvrés (samedi, dimanche). Par exemple, si on est lundi, le J-1 que le code prenne en compte soit vendredi (à condition que vendredi ne soit pas férié).

Merci par avance pour votre réponse.