IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Message avertissant d'un oubli


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Août 2010
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 15
    Par défaut Message avertissant d'un oubli
    Bonjour à Tous
    j'ai besoin de faire apparaître un message si on saisait dans une cellule alors qu'une autre dans la colonne précédente est vide.
    Ainsi, si on touche aux cellules de la colonne B sans avoir renseigné la colonne A, le message : "xxxx" apparaîtra.

    Comment faire?
    Merci d'avance

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour,
    dans l'evènement "Change" de ta feuille, ce code :
    exemple : ta plage en colonne A est "A2:A50" qui doit etre pleine
    Pour la colonne B :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Option Explicit
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim V As Long
    If Target.Column = 2 And Target.Row <= 50 Then
      V = Range("A2:A50").SpecialCells(xlCellTypeBlanks).Count
      If V > 0 Then
        MsgBox V & " colonnes vides"
      End If
    End If
     
    End Sub
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

Discussions similaires

  1. Message avertissement lors de l'envoi
    Par edsaar dans le forum VBA Outlook
    Réponses: 9
    Dernier message: 13/12/2008, 09h44
  2. message avertissement Source OLE DB
    Par stephyugh dans le forum MS SQL Server
    Réponses: 0
    Dernier message: 15/04/2008, 09h04
  3. Réponses: 12
    Dernier message: 19/09/2007, 09h40
  4. Message Avertissement Outlook C# WinForm
    Par bensra dans le forum Windows Forms
    Réponses: 2
    Dernier message: 04/07/2007, 14h41
  5. Supprimer message avertissement Outlook Express
    Par soso78 dans le forum Outlook Express / Windows Mail
    Réponses: 1
    Dernier message: 20/06/2006, 15h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo