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 :

Empêcher une action


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2015
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Décembre 2015
    Messages : 35
    Par défaut Empêcher une action
    Bonjour à tous,
    Voilà mon problème,
    J'ai une useform où j'y es mis des combobox, un bouton ok qui va copier mes résultats sur une feuille appeler "EVENEMENTS".

    J'ai fait en sorte que lors d'un appui sur mon bouton OK et que si mes combobox ne sont pas renseignées, un message d'erreur s'affiche comme quoi la combobox n'a pas été renseignée. Le problème est que même si mes combobox ne sont pas renseignées et que j'appui sur OK il va copier les résultats dans ma feuille "EVENEMENTS" avec des renseignements manquant pour le coup.

    Alors ce que je demande c'est comment empêcher la copie dans la feuille "EVENEMENTS" si mes combobox ne sont pas renseignées ou quand il y a un message d'erreur.

    Si cela peut vous aider, voici mon code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    Private Sub CommandButton_OK_Click()
    Dim DerLig As Integer
     
    With Worksheets("EVENEMENTS")
        DerLig = .Range("B" & Rows.Count).End(xlUp).Row + 1
        .Range("B" & DerLig).Value = nomComboBox.Value
        .Range("C" & DerLig).Value = fenginComboBox.Value
        .Range("D" & DerLig).Value = enginComboBox.Value
        .Range("E" & DerLig).Value = typeoperationComboBox.Value
        .Range("F" & DerLig).Value = tempsComboBox.Value
        .Range("G" & DerLig).Value = DTPicker1.Value
    End With
    'Garder en historique, visible par l'utilisateur, que les 10 dernières saisies
    Dim DerniereLigneSaisie As Integer, PremiereLigne As Integer
    DerniereLigneSaisie = Sheets("EVENEMENTS").Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
    If DerniereLigneSaisie - 8 < 2 Then
        PremiereLigne = 2
    Else
        PremiereLigne = DerniereLigneSaisie - 8
    End If
     
    'Obligation de mettre un critère dans nom
    If nomComboBox = "" Then
        MsgBox "Veuillez saisir votre nom"
    End If
     
    'Obligation de mettre un critère dans Famille Engin
    If fenginComboBox = "" Then
        MsgBox "Veuillez saisir une famille d'engin"
    End If
     
    'Obligation de mettre un critère dans Engin
    If enginComboBox = "" Then
        MsgBox "Veuillez saisir un engin"
    End If
     
    'Obligation de mettre un critère dans Type d'Opération
    If typeoperationComboBox = "" Then
        MsgBox "Veuillez saisir un type d'opération"
    End If
     
    'Obligation de mettre un critère dans Temps passée
    If tempsComboBox = "" Then
        MsgBox "Veuillez saisir le temps passée"
    End If
     
    'Obligation de mettre un critère dans Date
    If DTPicker1 = "" Then
        MsgBox "Veuillez saisir la date de votre opération"
    End If
     
    ListBox1.RowSource = "EVENEMENTS!A" & PremiereLigne & ":G" & DerniereLigneSaisie
    End Sub
    Merci d'avance de votre aide !

    Cordialement.

  2. #2
    Membre actif Avatar de DonkeyPuncher
    Homme Profil pro
    Inscrit en
    Avril 2013
    Messages
    56
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : Canada

    Informations forums :
    Inscription : Avril 2013
    Messages : 56
    Par défaut
    Bonjour,

    Il faut simplement tester le contenu des combobox

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    if fenginComboBox.value = "" AND enginComboBox.value = "" AND pour les autres combobox then 
     
       Msgbox "Erreur"!
     
    Else
       Process normal
    End if

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2015
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Décembre 2015
    Messages : 35
    Par défaut
    Super ça marche très bien! Merci beaucoup pour le coup de main !

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

Discussions similaires

  1. Empêcher l'accès à une action par l'URL
    Par wokky dans le forum MVC
    Réponses: 2
    Dernier message: 06/04/2009, 19h28
  2. Empêcher une action sur un select
    Par licorne dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 05/09/2006, 12h50
  3. Réponses: 4
    Dernier message: 27/04/2004, 14h45
  4. [STRUTS][DOWNLOAD] download d'un fichier via une action
    Par FreshVic dans le forum Struts 1
    Réponses: 3
    Dernier message: 16/04/2004, 16h38
  5. [débutant]Faire appel à une action d'une ActionList
    Par petitours dans le forum C++Builder
    Réponses: 6
    Dernier message: 12/03/2004, 22h53

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