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 :

Macro affichant un message en fonction de valeur d'une cellule. [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2011
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2011
    Messages : 58
    Par défaut Macro affichant un message en fonction de valeur d'une cellule.
    Bonjour,

    Je souhaiterai créer une macro réalisant la fonction suivante:

    Pour chaque ligne,

    lorsque la valeur dans la colonne AD est =""

    Il ne faut pas que je puisse toucher aux colonnes "AG:AL" et que le message suivant apparaisse: "d'abord remplir la colonne AG"

    Je ne px pas utiliser la validation de donnèe dans mon probleme :-(

    Dans les colonnes "AG:AL" j'ai des valeurs par défaut donc je ne peux pas utiliser de .Clearcontent

    Merci d'avance de votre aide

    Bruno

  2. #2
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut
    bonjour


    Citation Envoyé par brunounours Voir le message
    Bonjour,


    lorsque la valeur dans la colonne AD est =""

    Il ne faut pas que je puisse toucher aux colonnes "AG:AL" et que le message suivant apparaisse: "d'abord remplir la colonne AG"

    Bruno
    dans ta question il y a une contradiction

    revoit ta question si tu veux que l'on te comprenne
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2011
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2011
    Messages : 58
    Par défaut
    Bonjour,

    Effectivement, je me suis trompé. Voila une correction de mon message,

    Je souhaiterai créer une macro réalisant la fonction suivante:

    Pour chaque ligne,

    lorsque la valeur dans la colonne AD est =""
    Il ne faut pas que je puisse toucher aux colonnes "AG:AL" et que le message suivant apparaisse: "d'abord remplir la colonne AD"
    Je ne px pas utiliser la validation de donnèe dans mon problème :-(

    Dans les colonnes "AG:AL" j'ai des valeurs par défaut donc je ne peux pas utiliser de .Clearcontent

    Merci d'avance de votre aide

    Bruno

  4. #4
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    bonjour
    ok
    alors
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      '1 ere condition 
    'si l'index de la colonne est plus grand que 32 et plus petit que 39 
     If Target.Column > 32 And Target.Column < 39 Then
    '2eme condition       
    'si la cellule en colonne ad et meme ligne que la selection actuelle est vide alors 
     If Cells(Target.Row, "ad") = "" Then
                MsgBox "d'abord remplir la colonne AD!!!"
            End If 'fin de 2 eme condition
        End If ' fin de 1 ere condition 
    End Sub
    au plaisir
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  5. #5
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2011
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2011
    Messages : 58
    Par défaut
    Merci c'est tout bon voila ce que j'ai mis:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    'Blocage celulles moteur
     
     '1 ere condition
    'si l'index de la colonne est plus grand que 32 et plus petit que 39
     If Target.Column > 32 And Target.Column < 39 Then
    '2eme condition
    'si la cellule en colonne ad et meme ligne que la selection actuelle est vide alors
     If Cells(Target.Row, "ad") = "" Then
     
                MsgBox "Rellenar presencia motor antes", vbCritical
                Range("AG" & Target.Row & ":AL" & Target.Row).ClearContents
            End If 'fin de 2 eme condition
        End If ' fin de 1 ere condition
    Bonne soirèe :-)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 10/04/2014, 07h22
  2. Réponses: 1
    Dernier message: 10/04/2014, 07h17
  3. [AC-2007] Afficher dans un champs Access la valeur d'une cellule Excel
    Par wolboitijo dans le forum Access
    Réponses: 1
    Dernier message: 12/02/2010, 10h27
  4. Lancement macro si il y a changement de valeur d'une cellule
    Par fabiencal dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 11/07/2008, 13h20
  5. afficher 1 message en fonction d'1 valeur
    Par lilou86 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 22/04/2008, 12h11

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