Création label dynamique
Résolu/Fermé
A voir également:
- Création label dynamique
- Tableau croisé dynamique - Guide
- Creation compte gmail - Guide
- Création compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création site web - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
20 mai 2009 à 09:43
20 mai 2009 à 09:43
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)
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
20 mai 2009 à 10:43
20 mai 2009 à 10:43
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