Discussion :

[maria_ivv]

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 :

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

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!

[jerome.vaussenat]

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 :

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

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

[maria_ivv]

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 :

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

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

[maria_ivv]

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 :

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

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.