Sujet Précédent Sujet Suivant

Céer un message d'alerte à l'ouverture du fichier excel

Fermé
pocahontas83 Messages postés 20 Date d'inscription samedi 16 mars 2013 Statut Membre Dernière intervention 30 novembre 2017 - 29 juil. 2016 à 15:58
 Utilisateur anonyme - 1 août 2016 à 15:00
Bonjour,

j'ai une feuille d'excel (2013) que je remplis à chaque fois une ligne avec des informations allant jusqu’à la colonne S;
je cherche un code pour avoir un message d'alerte "le dossier (informations sur colonne E) n'est pas encore traité " si la colonne L est vide
merci d'avance

A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
29 juil. 2016 à 16:36
Bonjour,

en vba, Faire Alt F11 pour accéder à l'éditeur et mettre dans ThisWorkbook, ceci: 

Option Explicit
Private Sub Workbook_Open()
Dim colonne As Integer
 colonne = Application.WorksheetFunction.CountA(Columns(12))
 If colonne = 0 Then
 MsgBox "le dossier (informations sur colonne E) n'est pas encore traité "
 Else
 MsgBox "colonne non vide"
 End If
End Sub

0
pocahontas83 Messages postés 20 Date d'inscription samedi 16 mars 2013 Statut Membre Dernière intervention 30 novembre 2017 2
1 août 2016 à 13:42
bonjour
merci infiniement pour le code mais quand je le met et je lance l'excel j'ai le message "colonne non vide"
0
Réponse 2 / 2
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
29 juil. 2016 à 16:42
Bonjour 

Option Explicit

' constantes à modifier selon ta configuration
Const NF = "Feuil1"
Const lititre = 1
Const cotest = "L"

Private Sub Workbook_Open()
Dim lifin As Long
lifin = Sheets(NF).Cells(Rows.Count, cotest).End(xlUp).Row
If lifin = lititre Then
  MsgBox "le dossier (informations sur colonne E) n'est pas encore traité "
End If
End Sub

à mettre dans le module Workbook
http://www.cjoint.com/c/FGDoPKJPChe

Cdlmnt
0
pocahontas83 Messages postés 20 Date d'inscription samedi 16 mars 2013 Statut Membre Dernière intervention 30 novembre 2017 2
1 août 2016 à 13:52
bonjour
j'ai eu aucun message
0
Utilisateur anonyme > pocahontas83 Messages postés 20 Date d'inscription samedi 16 mars 2013 Statut Membre Dernière intervention 30 novembre 2017
Modifié par albkan le 1/08/2016 à 15:28
Bonjour pocahontas83 et ccm81,

Dans son message #2, ccm81 a écrit : « à mettre dans le module Workbook » ;
en fait, c'est dans « ThisWorkbook ».

Attention : il ne fait pas partie des Modules ! Côté gauche, sous « VBAProject »
et sous « Microsoft Excel Objets », après la dernière feuille de calcul.

Si tu mets le code de ccm81 sur la feuille ThisWorkbook, ça devrait marcher.

Cordialement.  😊
0