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

[Fermé]
Signaler
Messages postés
20
Date d'inscription
samedi 16 mars 2013
Statut
Membre
Dernière intervention
30 novembre 2017
-
 Utilisateur anonyme -
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

Messages postés
7567
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 octobre 2021
663
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

Messages postés
20
Date d'inscription
samedi 16 mars 2013
Statut
Membre
Dernière intervention
30 novembre 2017
2
bonjour
merci infiniement pour le code mais quand je le met et je lance l'excel j'ai le message "colonne non vide"
Messages postés
10146
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
13 octobre 2021
2 227
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
Messages postés
20
Date d'inscription
samedi 16 mars 2013
Statut
Membre
Dernière intervention
30 novembre 2017
2
bonjour
j'ai eu aucun message
Utilisateur anonyme >
Messages postés
20
Date d'inscription
samedi 16 mars 2013
Statut
Membre
Dernière intervention
30 novembre 2017

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.  😊