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

XL 2016 saisir un login deux foix dans deux userform differents

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 !

nada bahri

XLDnaute Nouveau
salut , dans mon projet VBA j'ai deux UserForme Differents et l'une l'une aprés l'autre , je veux saisir un login en 2 eme fois dans (UserFormModif) identique a celui du depart (UserFormLOGIN)
ici dans mon code le teste se fait pour tous les login qui se trouve , est ce que existe ou pas , or que je besoin de tester sur le login saisi au debut uniquement ,
voila mon code
Private Sub CommandButton5_Click()
Dim O As Worksheet
Dim TV As Variant
Dim I As Integer
Dim TEST As Boolean
Dim no_ligne As Integer

Set O = Worksheets("SHEET1")
TV = O.Range("A1").CurrentRegion
For I = 2 To UBound(TV, 1)
If TV(I, 1) = Me.TextBox14.Value Then
no_ligne = I
TEST = True
Exit For
End If
Next I
If TEST = True Then
MsgBox "ok"
TextBox1.Value = Cells(no_ligne, 2).Value
TextBox2.Value = Cells(no_ligne, 3).Value
ComboBox2.Value = Cells(no_ligne, 4).Value
ComboBox3.Value = Cells(no_ligne, 5).Value
TextBox5.Value = Cells(no_ligne, 6).Value
ComboBox4.Value = Cells(no_ligne, 7).Value
TextBox7.Value = Cells(no_ligne, 8).Value
TextBox8.Value = Cells(no_ligne, 9).Value
TextBox9.Value = Cells(no_ligne, 10).Value
TextBox10.Value = Cells(no_ligne, 11).Value
TextBox12.Value = Cells(no_ligne, 12).Value
TextBox11.Value = Cells(no_ligne, 13).Value
TextBox13.Value = Cells(no_ligne, 14).Value

Me.TextBox1.Enabled = False
Me.TextBox2.Enabled = False
Me.ComboBox2.Enabled = False
Me.ComboBox3.Enabled = False
Me.TextBox5.Enabled = False
Me.ComboBox4.Enabled = False
Me.TextBox7.Enabled = False
Me.TextBox8.Enabled = False
Me.TextBox9.Enabled = False
Me.TextBox10.Enabled = False
Me.TextBox12.Enabled = False
Me.TextBox11.Enabled = False
Me.TextBox13.Enabled = False
Else
MsgBox "login incorrect"
End If



End Sub


et voici mon application pour mieux comprendre
Ps: j'ai tester aussi :
if UserFormLOGIN.TextBox1.value = UserFormMODIF.TextBox14.value THEN
Msgbox"ok"
else
Msgbox " login incorrect"
End if
 

Pièces jointes

- 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

Réponses
5
Affichages
236
Réponses
4
Affichages
177
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
2
Affichages
511
Réponses
9
Affichages
580
Réponses
3
Affichages
582
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…