liste déroulante avec la première lettre tapé

[gae]

Bonsoir à tous je reviens vert vous suite à vos réponse rapide, simple,pro et efficace.
Je désire savoir s’il est possible en tapant dans mon menu déroulant (G7)
La première lettre d’un nom, qui est en (Feuil2).
et que là, il me propose en Feuil1 cellule G7 les noms commençant par la même lettre.
Je vous remercie si vous pouviez encore m’aider sur se problème.
J’espère que mon explication est compréhensible.
Bonne soirée
Gae

Regarde la pièce jointe devis en finition.xlsx

 

[job75]

Re : liste déroulante avec la première lettre tapé

Re,

J'avais mal testé, dans ComboBox1_Change il faut remplacer ActiveCell par ComboBox1 :

Private Sub ComboBox1_Change()
Dim P As Range, deb As Variant, h&
Set P = Range("E2:E" & Rows.Count)
deb = Application.Match(ComboBox1 & "*", P, 0)
ComboBox1.List = Array() 'liste vide
If IsNumeric(deb) Then
  h = Application.CountIf(P, ComboBox1 & "*")
  ComboBox1.List = P(deb).Resize(h, 2).Value 'au moins 2 éléments
  ThisWorkbook.Names.Add "ListeBase", ComboBox1.List 'mémorise
End If
If Not deroulepas Then ComboBox1.DropDown
End Sub

Fichier (5).

A+

 

[job75]

Re : liste déroulante avec la première lettre tapé

Re,

A la réflexion mémoriser les listes (post #28) me paraît inutile et même gênant.

Car cela alourdira le fichier si les listes sont grandes.

Avec cette macro dans chaque feuille la liste est recréée quand la ComboBox est activée :

Private Sub Combobox1_GotFocus()
ComboBox1_Change
End Sub

Fichier (6), je pense en avoir fini.

A+

 

[Si...]

Re : liste déroulante avec la première lettre tapé

salut

Job, je ne suis pas intervenu sur tes propositions car, je ne sais pas de ce qu'il en est pour les autres, mais mon 2010 ne les digère pas*.
exemples


... jusqu'au blocage pur et simple.

*Depuis quelques temps beaucoup se plaignent de leurs ActiveX. Je n'en ai aucun avec Mes fichiers mais beaucoup avec certains que je télécharge ici.

 

[job75]

Re : liste déroulante avec la première lettre tapé

Re,

Merci Si... de m'avoir prévenu.

Effectivement il y a un bug sur Excel 2007/2010 qui ne se produit pas sur Excel 20003 😕

C'est dû au tri dans la SelectionChange de la feuille "Base" qui entraine un bouclage sans fin.

Je modifie donc le fichier (6) du post #32 avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("C3:C" & Rows.Count)) Is Nothing Then Exit Sub
deroulepas = True
ComboBox1.Top = ActiveCell.Top
ComboBox1.Left = ActiveCell.Left
ComboBox1.LinkedCell = ActiveCell.Address
'ne pas trier à partir d'Excel 2007...
'Columns(5).Sort [E1], xlAscending, Header:=xlYes 'tri
ComboBox1.Activate 'donne le focus à la ComboBox
deroulepas = False
End Sub

Bonne fin de soirée.

A+

 

[gae]

Re : liste déroulante avec la première lettre tapé

Bonjour SI il et très bien le devis merci beaucoup
et il possible que sur la Feuil devis que la cellule qui et de G7 en I7 fasse G7 en J7
pour la UserFrom2 j'ai testé plus taille de police (jusqu’à 28) mais l'ascenseur en FeuilVille colonne Ville cache toujours le dernier chiffre
je viens de trouvé pour que l'asceseur ne cache plus les chiffres dans Textalign jais mis 1-fntextalign left super
merci d'avance
je vous souhaite un bon Week enk à tous

gae

Regarde la pièce jointe G7 - J7(1).xls

 

[Si...]

Re : liste déroulante avec la première lettre tapé

salut

bon fichier corrigé et avec le Left que tu as trouvé (bien !)

 

[gae]

Re : liste déroulante avec la première lettre tapé

Bonjour SI
un grand merci j'avais cherché pour agrandir la cellule en I j'avais était vba Feuil devis Worksheetet et général,
j'avais changé tous les I en J entre les $ mais ça n’a rien fait (( gruuu

Voilà voilà un grand merci à toi et Job75 et toutes les personnes du site pour votre aide et votre patience maintenant que le devis et fini je vais plus tard essayer de refaire le même ce qui me permettras d'apprendre donc je pense que l'on se rêvera.
Encore merci à toussssss
Je vous souhaite un très très bon dimanche à vous
Gaëtan

 

[gae]

Re : liste déroulante avec la première lettre tapé

Bonjour SI
un grand merci j'avais cherché pour agrandir la cellule en I j'avais était vba Feuil devis Worksheetet et général,
j'avais changé tous les I en J entre les $ mais ça n’a rien fait (( gruuu

Voilà voilà un grand merci à toi et Job75 et toutes les personnes du site pour votre aide et votre patience maintenant que le devis et fini je vais plus tard essayer de refaire le même ce qui me permettras d'apprendre donc je pense que l'on se rêvera.
Encore merci à toussssss
Je vous souhaite un très très bon dimanche à vous
Gaëtan

 

[job75]

Re : liste déroulante avec la première lettre tapé

Bonjour à tous,

Je reviens sur mon post #34.

On peut quand même trier la colonne E de la feuille "Base" sur toute version Excel.

Pour éviter le bouclage il suffit de remplacer ActiveCell par Target(1) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target(1), Range("C3:C" & Rows.Count)) Is Nothing Then Exit Sub
deroulepas = True
ComboBox1.Top = Target(1).Top
ComboBox1.Left = Target(1).Left
ComboBox1.LinkedCell = Target(1).Address
Columns(5).Sort [E1], xlAscending, Header:=xlYes 'tri
ComboBox1.Activate 'donne le focus à la ComboBox
deroulepas = False
End Sub

Fichier (7).

Edit : tiens c'est curieux, les 2 fichiers (créés sur Excel 2010) ne fonctionnent pas sur Excel 2003.

Bah vous avez compris, modifiez le fichier (6).

A+

 

[gae]

Re : liste déroulante avec la première lettre tapé

Bonjour SI
je revient déjà j'ai encore besoin d'aide.
Comment fait tu l'info bulle Feui1 (la ou il et marqué clic) se qui à de bien quand t'on imprime elle et invisible je suis sur Excel 2013 j'ai dans inséré formes je trouve pas pour la mettre invisible sa c'est génial.j'ai voulu faire un copier coller sa marche pas.

En feuilVille je désire inséré une colonne entre B et C pour pouvoir mettre les adresse Email j'ai fait inséré mais ensuite sur la FeuilDevis
le numéro nom de rue n'apparais plus comment je peut faire s'il te plait.

Merci d'avance
Bonne journée

Regarde la pièce jointe ListesSi.xlsm
gae