Es ce réalisable dans useform excel?

Bonjour,

Es ce réalisable dans useform , si oui comment ( quelle commande) ?

Ma problématique:

Dans mon formulaire de saisie j'ai ajouté un menu déroulant. Mais je souhaiterais pouvoir taper les premières lettres du nom de mon client pour voir apparaitre les noms afin d'en sélectionner un . ( cf feuille PARAMETRES de ma PJ). Mais tout en gardant mes codes commandes de ma zone de texte "NOMS".

Merci pour votre aide

MacFly


Voici le fichier que j'ai oublié de joindre

Bonjour MacFly, bonjour le forum,

En pièce jointe ton fichier modifié. J'ai supprimé la TextBox2, pense à adapter le reste du code...

Le code :

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim P As Object 'déclare la variable P (onglet Parametres)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim I As Integer 'déclare la variable I (Incrément)
Dim D As Object 'déclare la variable D (Dictionnaire)

'*****************************************************************************************
'la propriété de la ComboBox1 a été modifiée : '[MatchEntry] = 1- fmMatchEntryComplete
'cela signifie que la ComboBox1 affiche le nom correspondant aux premières lettres éditées
'*****************************************************************************************

Set P = Sheets("PARAMETRES") 'définit l'onglet P
DL = P.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 2 (=B) de l'onglet P
TC = P.Range("B1:B" & DL) 'définit le tableau de cellules TC
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To UBound(TC, 1) 'boucle sur toutes les lignes tu tableau de cellules TC
    'si la valeur de la ligne du tableau TC n'est pas vide, alimente le diciotnnaire D
    If TC(I, 1) <> "" Then D(TC(I, 1)) = ""
Next I 'prochaine ligne de la boucle
Me.ComboBox1.List = D.keys 'alimente la ComboBox1 avec les éléments de du sictionnaire D sans doublon
End Sub

Le fichier :

26macfly-v01.zip (299.35 Ko)

Merci beaucoup Thau,

Mais comment faire pour créer de nouveaux noms à cette liste?.

L'idée étant

de faire une sélection par Numéro client ( le nom s'affichant automatiquement)

de faire une sélection par nom ( là tout est ok avec le menu déroulant)

Mais aussi dans le NOM pouvoir ajouter des clients.( là cela ne fonctionne plus )

Merci

Bonsoir MacFly, bonsoir le forum,

Désolé j'ai oublié de remettre la propriété [MatchRequired] à False... Après tu pourras ajouter un nom.

Bonsoir,

Comment remettre la propriété [MatchRequired] ? , j'ai essayé ç’a ne marche pas

Merci pour votre aide

MacFly

Rechercher des sujets similaires à "realisable useform"