Combox.change

[bernardrustrel]

Bonsoir à tous
Sur le fichier joint je cherche tout simplement lorsque je tape la première ou quelques lettre(s) d'un nom que toutes les données de celui ci s'affichent correctement adns l'ordre Numero, Nom, Prenom et sexe.
Je dois me planter quelque part mais où?
J'avoue avoir du mal à trouver.
Alors si l'un de vous me venait en aide je luis en serais reconnaissant.
Merci par avance.
Cordialement, Bernard

 

[BOISGONTIER]

Re : Combox.change

bonsoir,

Dans cet exemple, la saisie de la ville dans le combobox est intuitive

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormSaisieVillesIntuitif.zip



jb

 

[néné06]

Re : Combox.change

Bonsoir Bernard,

une solution peut-être ?

A+

René

EDIT: Bonsoir Jacques !

 

[BOISGONTIER]

Re : Combox.change

Voir PJ

Dim f, Liste()
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Liste = f.Range("a2:d" & f.[A65000].End(xlUp).Row).Value
  Me.ComboBox1.List = Liste
End Sub

Private Sub Combobox1_Change()
If Me.ComboBox1.ListIndex = -1 And _
     IsError(Application.Match(Me.ComboBox1, Application.Index(Liste, , 2), 0)) Then
     ncol = UBound(Liste, 2)
     Dim b()
     clé = UCase(Me.ComboBox1) & "*"
     n = 0
     For i = LBound(Liste) To UBound(Liste)
       If UCase(Liste(i, 2)) Like clé Then
         n = n + 1: ReDim Preserve b(1 To ncol, 1 To n)
         For k = 1 To ncol:  b(k, n) = Liste(i, k): Next k
       End If
      Next i
      If n > 0 Then
        ReDim Preserve b(1 To ncol, 1 To n + 1)
        Me.ComboBox1.List = Application.Transpose(b)
        Me.ComboBox1.RemoveItem n
      End If
      Me.ComboBox1.DropDown
  Else
     Me.TextBox1 = Me.ComboBox1.Column(1)
     Me.TextBox2 = Me.ComboBox1.Column(2)
  End If
End Sub

JB

 

[bernardrustrel]

Re : Combox.change

Voir PJ

Dim f, Liste()
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Liste = f.Range("a2:d" & f.[A65000].End(xlUp).Row).Value
  Me.ComboBox1.List = Liste
End Sub

Private Sub Combobox1_Change()
If Me.ComboBox1.ListIndex = -1 And _
     IsError(Application.Match(Me.ComboBox1, Application.Index(Liste, , 2), 0)) Then
     ncol = UBound(Liste, 2)
     Dim b()
     clé = UCase(Me.ComboBox1) & "*"
     n = 0
     For i = LBound(Liste) To UBound(Liste)
       If UCase(Liste(i, 2)) Like clé Then
         n = n + 1: ReDim Preserve b(1 To ncol, 1 To n)
         For k = 1 To ncol:  b(k, n) = Liste(i, k): Next k
       End If
      Next i
      If n > 0 Then
        ReDim Preserve b(1 To ncol, 1 To n + 1)
        Me.ComboBox1.List = Application.Transpose(b)
        Me.ComboBox1.RemoveItem n
      End If
      Me.ComboBox1.DropDown
  Else
     Me.TextBox1 = Me.ComboBox1.Column(1)
     Me.TextBox2 = Me.ComboBox1.Column(2)
  End If
End Sub

JB

Merci beaucoup pour ces réponses grace à vous je peux avancer
Encore Un grand merci
Cordialement
Bernard

 

[bernardrustrel]

Re : Combox.change

Bonsoir
Et merci pour cette solution, ce n'est aps tout à fair ce que je recherchais mais je vais essayé d'adapter à mon besoin
Encore merci
Cordialement
Bernard

 

[BOISGONTIER]

Re : Combox.change

>Sur le fichier joint je cherche tout simplement lorsque je tape la première ou quelques lettre(s) d'un nom que toutes les données de celui ci s'affichent correctement adns l'ordre Numero, Nom, Prenom et sexe.

>ce n'est aps tout à fair ce que je recherchais mais je vais essayé d'adapter à mon besoin


??????????????????????????



jb