A voir également:
- Message alerte excel
- Liste déroulante excel - Guide
- Recuperer message whatsapp supprimé - Guide
- Word et excel gratuit - Guide
- Message supprimé whatsapp - Guide
- Message absence thunderbird - Guide
2 réponses
Bonjour,
en vba, Faire Alt F11 pour accéder à l'éditeur et mettre dans ThisWorkbook, ceci:
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
Bonjour
à mettre dans le module Workbook
http://www.cjoint.com/c/FGDoPKJPChe
Cdlmnt
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
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. 😊
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. 😊
merci infiniement pour le code mais quand je le met et je lance l'excel j'ai le message "colonne non vide"