Création label dynamique
Résolu
juliet
-
juliet -
juliet -
Bonjour,
Je débute pour écrire des codes sous vb...
Je voudrais bien que à l'ouverture du fichier un message d'alerte s'affiche quand certaines cellules d'une feuille sont vides
Si cellule E12 de la feuil1 vide alors un message du type "il faut saisir les données" s'affiche.
J'espère que j'ai été assez précise
Merci d'avance
Je débute pour écrire des codes sous vb...
Je voudrais bien que à l'ouverture du fichier un message d'alerte s'affiche quand certaines cellules d'une feuille sont vides
Si cellule E12 de la feuil1 vide alors un message du type "il faut saisir les données" s'affiche.
J'espère que j'ai été assez précise
Merci d'avance
A voir également:
- Création label dynamique
- Creation compte gmail - Guide
- Tableau croisé dynamique - Guide
- Création site web - Guide
- Création compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
3 réponses
Bonjour,
à installer dans le module "thisworkbook"
Private Sub Workbook_Open()
If IsEmpty(Range("E2")) Then
MsgBox "il faut saisir des données"
End If
End Sub
à installer dans le module "thisworkbook"
Private Sub Workbook_Open()
If IsEmpty(Range("E2")) Then
MsgBox "il faut saisir des données"
End If
End Sub
Merci de la réponse,
Mais comment on voit que c'est la feuil 1 (j'ai au moins 14 feuilles et je le voudrais le faire pour pas mal d'entre elles)
Mais comment on voit que c'est la feuil 1 (j'ai au moins 14 feuilles et je le voudrais le faire pour pas mal d'entre elles)
oui, excuses moi
remplace par toujours dans le module "thisworkbook"
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If IsEmpty(Range("E2")) Then
MsgBox "il faut saisir des données"
End If
End Sub
tu peux peut-être rajouter avant le msgbox cette instruction
Range("E2").select
pour aller sur la cellule vide
remplace par toujours dans le module "thisworkbook"
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If IsEmpty(Range("E2")) Then
MsgBox "il faut saisir des données"
End If
End Sub
tu peux peut-être rajouter avant le msgbox cette instruction
Range("E2").select
pour aller sur la cellule vide
