XL 2019 Afficher dans une ListBox VBA

[frederio]

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

Merci

 

[ChTi160]

Bonsoir
Bonsoir le Fil ,le Forum
pas évident Lol
Ce que j'ai mis a minima et qui répond a la demande !

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]

C’est problème petite

merci jean marie

 

[ChTi160]

Super ???????

 

[frederio]

oui super mais c est problème petite

 

[ChTi160]

problème de largeur de colonnes a adapter

 

[frederio]

je pense mieux enlever adresse

comment faire ?

 

[jcf6464]

Bonsoir frederio chti60 et le forum,
comme cela tu recopie la ligne ci-dessous dans la propriété de la listebox devant ColumnWidths

73 pt;73 pt;130 pt;0 pt;73 pt

bonne continuation jcf

 

[frederio]

bonsoir jcf6464

je sais pas ou

tu faire envoyer mon fichier

merci

 

[Nicolas JACQUIN]

Bonjour à tous,
Je m'incruste, voici le fichier,@+

 

[frederio]

bonsoir nico_j et jcf6464

jcf6464​

merci beaucoup

 

[frederio]

je vais déjà faire mot de passe vba

Il n'a pas marche

J’ai n'a pas trouve

merci

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

 

[jcf6464]

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