Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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

  • Ajout_User.xls
    52 KB · Affichages: 29
Dernière édition:
Trier par date Trier par votes

cathodique

XLDnaute Barbatruc
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

Papou-net

XLDnaute Barbatruc
Re : [RESOLU]procédure conditionnelle et rendre focus au controle

Bonjour cathodique,

Je l'ai fait alors je te le transmets. Tu pourras ainsi comparer.

A +

Cordialement.
 

Pièces jointes

  • Copie de Ajout_User.xls
    45 KB · Affichages: 20
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
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

cathodique

XLDnaute Barbatruc
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

Papou-net

XLDnaute Barbatruc
Re : [RESOLU]procédure conditionnelle et rendre focus au controle

RE:

 

Pièces jointes

  • Copie 01 de Ajout_User.xls
    43 KB · Affichages: 15
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
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

  • Copie 01 de Ajout_User_testée.xls
    51 KB · Affichages: 19
Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc
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

cathodique

XLDnaute Barbatruc
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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
531
ThierryP
T
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
465
arnoldbrice19
A
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
691
Messan
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
411
loreak
L
  • Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
414
AugusteP
A
  • Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
925
vgendron
J
  • Question
XL 2019 VBA problème Then
Réponses
5
Affichages
812
Fred0o
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
1 K
Fabrice16ct
F
Z
  • Résolu(e)
XL 2016 Macro
Réponses
5
Affichages
1 K
patricktoulon
K
  • Question
Microsoft 365 Activation d'onglet en rapport avec l'encodage dans une ligne
Réponses
1
Affichages
491
eCHO
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…