Bonjour à tous,
Je cherche à écrire une condition sous VBA avant de fermer mon fichier. Je voudrai que ma macro me calcule automatique la somme des cellule Y à AJ de la ligne sélectionnée et que si la somme est égale à 0 il me met un message d'erreur. Seulement je n'arrive pas bien à m'y prendre... Pouvez-vous m'aider svp ? Merci
Ci-dessous le code :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each cell In Workbooks("Classeur 1").Sheets(1).Column(C)
If cell.Value = "PERM" Then
If Column(I) = 0 Then MsgBox ("Honoraire à 0 pour le candidat")
If Colomn(X) = "" Then MsgBox ("Mentionner Facturé/Potentiel pour le candidat")
If SUM("Y:AJ)=0 then msgbox ("Pas de donnée sur le détail par mois pour le candidat")
Next cell
End Sub
Merci
Nono
Je cherche à écrire une condition sous VBA avant de fermer mon fichier. Je voudrai que ma macro me calcule automatique la somme des cellule Y à AJ de la ligne sélectionnée et que si la somme est égale à 0 il me met un message d'erreur. Seulement je n'arrive pas bien à m'y prendre... Pouvez-vous m'aider svp ? Merci
Ci-dessous le code :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each cell In Workbooks("Classeur 1").Sheets(1).Column(C)
If cell.Value = "PERM" Then
If Column(I) = 0 Then MsgBox ("Honoraire à 0 pour le candidat")
If Colomn(X) = "" Then MsgBox ("Mentionner Facturé/Potentiel pour le candidat")
If SUM("Y:AJ)=0 then msgbox ("Pas de donnée sur le détail par mois pour le candidat")
Next cell
End Sub
Merci
Nono