XL 2019 Afficher dans une ListBox VBA

frederio

XLDnaute Impliqué
Bonsoir à tous,
Tu es connais comment faire
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel

Merci
 

Pièces jointes

  • Formulaire de saisie (4) (1).xlsm
    133.7 KB · Affichages: 11

ChTi160

XLDnaute Barbatruc
Bonsoir
Bonsoir le Fil ,le Forum
pas évident Lol
Ce que j'ai mis a minima et qui répond a la demande !
VB:
Private Sub UserForm_Initialize()
  Dim DerLig As Long
  Dim f
  Set f = Sheets("Adresses")
  DerLig = f.Range("B" & Rows.Count).End(xlUp).Row
  Me.Cbx_NumClt.RowSource = "'Adresses'!B3:B" & DerLig
  DerLig = f.Range("C" & Rows.Count).End(xlUp).Row
  Me.ListBox1.List = f.Range("B2:I" & DerLig).Value
  AffDonnées (DerLig + 1)
End Sub
jean marie
 

frederio

XLDnaute Impliqué
je vais déjà faire mot de passe vba

Il n'a pas marche

J’ai n'a pas trouve

merci


VB:
Private Sub CommandButton1_Click()
    If TextBox1.Value = "" Then
        If TextBox2.Value = "" Then
            MsgBox "Please Input the User Name and the Password"
        Else
            MsgBox "Please Input the User Name"
        End If
    ElseIf TextBox1.Value = "admin" Then
        If TextBox2.Value = "" Then
            MsgBox "Please Input the Password"
        ElseIf TextBox2.Value = "1234" Then
            Me.Hide: Application.Visible = True
        Else
            MsgBox "Please Input the right User Name and the right Password"
        End If
    Else
        If TextBox2.Value = "" Then
            MsgBox "Please Input the Password"
        Else
            MsgBox "Please Input the right User Name and the right Password"
        End If
    End If
End Sub

Private Sub CommandButton2_Click()
    ThisWorkbook.Application.Quit
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Application.Quit
End Sub
 

Pièces jointes

  • Formulaire de saisie.xlsm
    91.6 KB · Affichages: 6

jcf6464

XLDnaute Occasionnel
Bonsoir frederio, chti60, Nico_J et le forum,

Avant de t’aventurer dans le mot de passe avance sur ton userform de saisie qui ne fonctionne pas bien
De plus ton bouton modifier et nouveau contact ne servent à rien puisque il faut ce servir du bouton enregistrer pour les modifications et nouveau contact

bonne continuation jcf
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO