XL 2013 Ascenseur

[aziz]

Bonjour à tous et au forum,

Sans mon userform nouveau client

Je souhaiterai que ma "TextBoxsuiviclient" possède un ascenseur sur la droite lorsque j'ai beaucoup de saisie, est ce possible ?

pour pouvoir monter et descendre facilement.

Merci pour votre aide à tous

 

[mapomme]

Re : Ascenseur

Bonsoir Aziz,

Voyez du côté de la propriété ScrollBars du textbox.

 

[Roland_M]

Re : Ascenseur

bonsoir,

voir ci-joint

Salut mapomme !

 

[aziz]

Re : Ascenseur

Bonjour et grand merci à vous deux

 

[aziz]

Re : Ascenseur

Autre Question,
Est ce possible de classer par ordre Alphabétique
lorsque je fais appel dans ma "codeboxparNom" ? pour la modification

Merci

 

[salhi_haithem]

Re : Ascenseur

Voici le Code Ci-joint le Fichier

Private Sub UserForm_Initialize()

' Mettre en pleine écran
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With

'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
'i = Sheets("Base client").Range("B65536").End(xlUp).Row
For x = 3 To i
    With ComboBoxParNom
        .AddItem Sheets("Base client").Range("B" & x)
    End With
Next x

Dim F

Set F = Sheets("Base client")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = F.Range("B3:B" & F.[B65000].End(xlUp).Row)   ' tableau a(n,1) pour rapidité
  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
  Next i
         '-------------avec tri---------------
  temp = mondico.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBoxParNom.List = temp

End Sub

Sub Tri(a, gauc, droi) ' Quick sort
   ref = a((gauc + droi) \ 2)
   g = gauc: d = droi
   Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
       temp = a(g): a(g) = a(d): a(d) = temp
       g = g + 1: d = d - 1
     End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi)
   If gauc < d Then Call Tri(a, gauc, d)
End Sub

 

[aziz]

Re : Ascenseur

Merci beaucoup salhi heithem
est ce possible d'avoir tes commentaires dans le code, je souhaiterai comprendre
merci

 

[aziz]

Re : Ascenseur

Par contre j'ai une anomalie,
quand je selectionne le client "Anita" cela me renvoie des données de "Fred marco"

😕

 

[aziz]

Re : Ascenseur

Pourquoi ce décalage, lorsque je selectionne Anita j'ai les données de Fred marco ?
Merci pour votre aide