[RESOLU]procédure conditionnelle et rendre focus au controle

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
cathodique

cathodique

XLDnaute Barbatruc
Je trouve quelques difficultés à mettre en place des procédures conditionnelles dans un formulaire.

Celui-ci me permettra d'ajouter des utilisateurs avec des droits d'accès. à l'ouverture du formulaire, le focus est mis sur Textbox1 (où l'on doit saisir l'utilisateur)

dans Textbox2 il y a un pass utilisateur générique ('0000) , dans combobox1 on sélectionne le niveau (1 à 4) suivant lequelle en textbox3 s'affiche un intitulé.

et 2 boutons (Ajouter et quitter).

Je voudrais donc dans la procédure du bouton valider faire ce qui suit:

a/ Si Textbox1=vide et Combobox1=vide, on sort de la procédure (sans fermeture du formulaire) et remettre le focus sur textbox1

b/ si textbox1<>vide et combobox1=vide, on sort de la procédure (sans fermeture du formulaire) et remettre le focus sur Combobox1

c/ si textbox1<>vide et combobox1<>vide, on vérifie en feuille(users) colonne 1 que l'utilisateur n'est pas enregistré, dans ce cas on transfert sur la feuille

Mais s'il est déjà présent, textbox1 et combobox1 sont vidés et message prévient que l'utilisateur existe.

En vous remerciant, J'ai fait quelque chose mais la première des difficultés est de rendre le focus au textbox1
VB: 
Private Sub Btn_Valider_Click()
    Dim LastLg As Long
    'verifier textbox1 et combobox1 vide
     If Me.TextBox1 = "" And Me.ComboBox1 = "" Then
     MsgBox "Aucune Action! Veuillez saisir un nom.", vbCritical, "CHAMPS VIDES"
     Exit Sub
    Me.TextBox1.SetFocus
     ElseIf Me.TextBox1.Text = "" Then
        MsgBox "Veuillez saisir le nom de l'utilisateur!", vbCritical, "UTILISATEUR"
        Exit Sub
        Me.TextBox1.SetFocus
        ElseIf ComboBox1.Text = "" Then
        MsgBox "Veuillez selectionner le niveau d'accès de l'utilisateur!", vbCritical, "NIVEAU ACCES"
        Exit Sub
        ComboBox1.SetFocus
    End If
        'on enregistre

        'Dim LastLg As long
        Dim X As String

        With Sheets("Users")
            'trouver derniere ligne vide
            LastLg = .Columns(1).Find("").Row

            'on verifie que l'utilisateur n'existe pas
            X = Usf_Ajout_Utilisateur.TextBox1    '.Text

            Set C = .Columns(1).Cells.Find(X)
            If Not C Is Nothing Then
                MsgBox "Cet utilisateur existe déjà!", vbCritical
                Unload Usf_Ajout_Utilisateur
                ' Exit Sub

            Else
                'on enregistre sur la feuille
                .Cells(LastLg, 1) = UCase(Usf_Ajout_Utilisateur.TextBox1.Text)
                .Cells(LastLg, 2) = Usf_Ajout_Utilisateur.TextBox2.Text
                .Cells(LastLg, 3) = Usf_Ajout_Utilisateur.ComboBox1.Text
                .Cells(LastLg, 4) = Usf_Ajout_Utilisateur.TextBox3.Text

            End If
        End With

    MsgBox "Enregistrement terminé!", vbExclamation

    Unload Me
End Sub
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : procédure conditionnelle et rendre focus aux controles

Merci, je pense que je me suis sorti d'affaire. Voici le code
VB: 
Private Sub Btn_Valider_Click()
    Dim LastLg As Long, X As String
    'verifier textbox1 et combobox1 vide
suite:
     If Me.TextBox1 = "" And Me.ComboBox1 = "" Then
     MsgBox "Aucune Action! Veuillez saisir un nom.", vbCritical, "CHAMPS VIDES"
     Me.TextBox1.SetFocus
     Exit Sub
    
     ElseIf Me.TextBox1.Text = "" Then
        MsgBox "Veuillez saisir le nom de l'utilisateur!", vbCritical, "UTILISATEUR"
        Me.TextBox1.SetFocus
        Exit Sub
        
        ElseIf ComboBox1.Text = "" Then
        MsgBox "Veuillez selectionner le niveau d'accès de l'utilisateur!", vbCritical, "NIVEAU ACCES"
        Me.ComboBox1.SetFocus
        Exit Sub
        
    End If
        'on enregistre

        With Sheets("Users")
            'trouver derniere ligne vide
            LastLg = .Columns(1).Find("").Row

            'on verifie que l'utilisateur n'existe pas
            X = Me.TextBox1    '.Text

            Set C = .Columns(1).Cells.Find(X)
            If Not C Is Nothing Then
                MsgBox "Cet utilisateur existe déjà!", vbCritical
                Me.TextBox1 = "": ComboBox1 = ""
                Me.TextBox1.SetFocus
                 Exit Sub
GoTo suite
            Else
                'on enregistre sur la feuille
                .Cells(LastLg, 1) = UCase(Me.TextBox1.Text)
                .Cells(LastLg, 2) = Me.TextBox2.Text
                .Cells(LastLg, 3) = Me.ComboBox1.Text
                .Cells(LastLg, 4) = Me.TextBox3.Text

            End If
        End With

    MsgBox "Enregistrement terminé!", vbExclamation

    Unload Me
End Sub
 
Vote positif 0 Vote négatif
Re : [RESOLU]procédure conditionnelle et rendre focus au controle

Bonsoir Papou-net,

C'est très sympa de ta part. Je trouve ton code plus court que le mien et surtout plus concis.

J'ai appris le dropdown de la combobox.

Toute la première partie est bonne, sauf la partie enregistrement, la vérification du nom de l'utilisateur n'est pas efficace.

c'est à dire, on peut enregistrer un utilisateur en doublon dans le cas où la saisie s'effectue en minuscule.

Dans de code d'enregistrement sur la feuille, le nom est en majuscule (Ucase(textbox1)).

un utilisateur ne peut pas avoir 2 niveaux d'accès différents.


Merci beaucoup. Bonne soirée et bon week-end.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : [RESOLU]procédure conditionnelle et rendre focus au controle

Encore merci, j'ai apporté quelques modifications et je pense que c'est bon. voilà, j'édite le code pour avoir ton avis
VB: 
Private Sub Btn_Valider_Click()
    Dim LastLg As Long
    Dim Nom As Range, Lg As Long
    'verifier textbox1 et combobox1 vide
    If Me.TextBox1 = "" Then
      MsgBox "Aucune Action! Veuillez saisir un nom.", vbCritical, "CHAMPS VIDES"
      Me.TextBox1.SetFocus
      Exit Sub
    End If
    If Me.ComboBox1.ListIndex = -1 Then
      MsgBox "Veuillez selectionner le niveau d'accès de l'utilisateur!", vbCritical, "UTILISATEUR"
      Me.ComboBox1.DropDown
      Exit Sub
    End If
    
    With Feuil1
      Set Nom = .Columns(1).Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole)
      If Not Nom Is Nothing Then
        Lg = Nom.Row
        If UCase(TextBox1) = Nom Then 'And ComboBox1 = CStr(Nom.Offset(0, 2)) Then
          MsgBox "Utilisateur déjà enregistré!", vbCritical, "UTILISATEUR"
          TextBox1 = "": ComboBox1.ListIndex = -1: TextBox3 = ""
          TextBox1.SetFocus
          Exit Sub
        End If
      End If
      'trouver derniere ligne vide
      LastLg = .Columns(1).Find("").Row
      .Cells(LastLg, 1) = UCase(Usf_Ajout_Utilisateur.TextBox1.Text)
      .Cells(LastLg, 2) = Usf_Ajout_Utilisateur.TextBox2.Text
      .Cells(LastLg, 3) = Usf_Ajout_Utilisateur.ComboBox1.Text
      .Cells(LastLg, 4) = Usf_Ajout_Utilisateur.TextBox3.Text
    End With

    MsgBox "Enregistrement terminé!", vbExclamation

    Unload Me
End Sub
 
Vote positif 0 Vote négatif
Re : [RESOLU]procédure conditionnelle et rendre focus au controle

RE:

Toute la première partie est bonne, sauf la partie enregistrement, la vérification du nom de l'utilisateur n'est pas efficace./QUOTE]
Il est effectivement possible d'enregistrer le même nom, mais uniquement si le droit utilisateur est différent.

En effet, rien n'empêche d'avoir deux personnes du même nom (membres d'une même famille). J'avais donc ajouté la comparaison avec les droits d'utilisateur mais je m'aperçois que là encore il peut y avoir deux homonymes au même poste. Il faudrait alors vérifier également que le mot de passe soit différent. Je te propose donc de corriger comme ceci:

Code: 
Private Sub Btn_Valider_Click()
    Dim LastLg As Long
    Dim Cel As Range, Nom As Range, Lg As Long
    'verifier textbox1 et combobox1 vide
    If Me.TextBox1 = "" Then
      MsgBox "Aucune Action! Veuillez saisir un nom.", vbCritical, "CHAMPS VIDES"
      Me.TextBox1.SetFocus
      Exit Sub
    End If
    If Me.ComboBox1.ListIndex = -1 Then
      MsgBox "Veuillez selectionner le niveau d'accès de l'utilisateur!", vbCritical, "UTILISATEUR"
      Me.ComboBox1.DropDown
      Exit Sub
    End If
    
    With Feuil1
      Set Nom = .Columns(1).Find(UCase(TextBox1), LookIn:=xlValues, lookat:=xlWhole)
      If Not Nom Is Nothing Then
        For Each Cel In Range("A" & Nom.Row & ":A" & Rows.Count).SpecialCells(xlCellTypeConstants)
          Lg = Cel.Row
          If UCase(TextBox1) = Cel And ComboBox1 = CStr(Cel.Offset(0, 2)) And TextBox2 = Cel.Offset(0, 1) Then
            MsgBox "Utilisateur déjà enregistré!", vbCritical, "UTILISATEUR"
            TextBox1 = "": ComboBox1.ListIndex = -1
            TextBox1.SetFocus
            Exit Sub
          End If
        Next
      End If
      'trouver derniere ligne vide
      LastLg = .Columns(1).Find("").Row
      .Cells(LastLg, 1) = UCase(TextBox1.Text)
      .Cells(LastLg, 2) = CStr(TextBox2.Text)
      .Cells(LastLg, 3) = ComboBox1.Text
      .Cells(LastLg, 4) = TextBox3.Text
    End With
    MsgBox "Enregistrement terminé!", vbExclamation
    Unload Me
End Sub
Il devient dès lors possible d'avoir deux noms identiques (époux, frères-soeurs...) au même poste mais à condition d'avoir des mots de passe distincts.

Par contre, ton idée de rajouter Ucase est judicieuse.

Bonne soirée et bon WE.

Cordialement.
Cliquez pour agrandir...
 

Pièces jointes

Vote positif 0 Vote négatif
Re : [RESOLU]procédure conditionnelle et rendre focus au controle

Bonjour Papou-net,

Je te remercie beaucoup pour ta dernière proposition. En fait, je ne suis pas arrivé au partage et au travail à plusieurs sur le même fichier.

Pour les utilisateurs, je me suis mal exprimé c'est plutôt PSEUDO que NOM.

J'ai testé ton dernier fichier joint, on peut toujours enregistrer utilisateur avec même pseudo et même password.

Encore merci et bon week-end.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : [RESOLU]procédure conditionnelle et rendre focus au controle

Bonjour cathodique,

Alors effectivement, s'il s'agit de pseudo, il ne peut y en avoir deux identiques. Dans ce cas, ta solution #5 convient parfaitement, d'autant qu'elle est plus simple.

Bon WE.

Cordialement.
 
Vote positif 0 Vote négatif
Re : [RESOLU]procédure conditionnelle et rendre focus au controle

Merci beaucoup pour ton retour. OK, c'est ce que je vais prendre comme solution.

Je dois réaliser l'UserForm d'accès, dans lequel je dois donner la possibilité à l'utilisateur de modifier son mot de passe.

Bon week-end. A la prochaine.

Cordialement,
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
Microsoft 365 contrôler un EXIT
Réponses
2
Affichages
210
Bill73
B
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
957
tnion
T
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
833
AtTheOne
AtTheOne
Lu76Fer
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
649
Lu76Fer
Lu76Fer
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
1 K
ThierryP
T
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
862
Mody200
M
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
668
arnoldbrice19
A
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
cathodique
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
916
cathodique
cathodique
T
  • Question Question
XL 2019 Redonner le focus à un TextBox
2
Réponses
16
Affichages
1 K
ThierryP
T
Messan
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
Messan
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
691
loreak
L
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
573
ZiM
Z
A
  • Résolu(e)
XL 2010 ajout de textbox
Réponses
2
Affichages
867
Appo1985
A
AugusteP
  • Question Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
569
AugusteP
AugusteP
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
GADENSEB
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
860
GADENSEB
GADENSEB
AugusteP
  • Question Question
XL 2021 Comment créer un code VBA afin de création un chemin d'accès universel
Réponses
8
Affichages
1 K
AugusteP
AugusteP
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
vgendron
I
  • Résolu(e)
XL 2019 Supprimer une ligne d'une base de données une fois qu'elle est transférée sur une autre feuille
Réponses
8
Affichages
705
Isabellisa
I
Retour