Création label dynamique

Résolu
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
Configuration: Windows XP Internet Explorer 7.0

3 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0
  2. juliet
     
    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)
    0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0
    1. juliet
       
      Merci bien
      0