liste déroulante exl 97

[phil69]

bonjour


en sapant sur le forum,j'ai trouvé une macro pour liste déroulante avec recherche en entrant la ou les permiere lettres.mais je n'arrive pas à la faire fonctionner .je ne connais rien en VBA et je me suis contanté de recopier la macro .si quequ'un peut m'aider et me dire pouqu'oi ça cloche,car je voudrais
l'intégrer dans un tableau bien compliqué.

merci pour votre aide

phil69

 

[phil69]

Re : liste déroulante exl 97

j'ai oublié de vous passer un exemple

 

[pierrejean]

Re : liste déroulante exl 97

bonjour phil69

La macro est Ok
par contre la propriété de la combobox Listfillrange n'etait pas definie (A1:A13 dans ton exemple)

 

[phil69]

Re : liste déroulante exl 97

Merci ,ça marche,et comment faire pour que le nom selectionné alimente la
cellule c2



phil69

 

[JCGL]

Re : liste déroulante exl 97

Bonjour à tous,

Rajoute le texte en bleu dans le code

Private Sub ComboBox1_Change()
If Len(ComboBox1) = 1 Then
Dim a()
lettre = Left(Me.ComboBox1, 1)
For i = 1 To[Liste].Count
If UCase(Left(Range("liste")(i), 1)) = UCase(lettre) Then
n = n + 1
ReDim Preserve a(0, 1 To n)
a(0, n) = Range("liste")(i)
End If
Next
If n >= 1 Then
Me.ComboBox1.List = Application.Transpose(a)
SendKeys "{F4}"
témoin = True
End If
End If
Range("C2") = ComboBox1
End Sub

A+

 

[phil69]

Re : liste déroulante exl 97

Merci à tous vous etes trop simpats


Phil69

 

[phil69]

Re : liste déroulante exl 97

OK vous etes super simpat,et je me permets encors une question,si c'est possible??????????,
quelle modif au code si la liste est sur une autre feuille

merci

Phil69

 

[pierrejean]

Re : liste déroulante exl 97

Re

La macro n'est pas dans le coup concernant la liste

Il faut
1) nommer ta liste (ici Liste)
2) Mettre ce Nom dans la propriété ListFillRange de la combobox

 

[phil69]

Re : liste déroulante exl 97

re

le fichier rataché fonctionne mais pour mon fichier je ne sais pas comment faire ,mettre le nom sans la proriété liftfillrange de la combobox ?????????
pour moi c'est du marsien,alors plus de detail sur la manipe me serai d'un grand secour,

merci
phil69

 

[JCGL]

Re : liste déroulante exl 97

Re,

Passe en Création en cliquant sur l'équerre de la Barre d'outils : Boite à Outils Contrôle (accessible par Affichage / Barre Outils)

Clique droit sur la ComboBox
Propriétés
Vers le bas, tu trouveras ListFillRange
Tu mets Liste dans la colonne de droite

Il faut nommer par Nom / Définir la plage Liste




A+

 

[pierrejean]

Re : liste déroulante exl 97

Re

Pour nommer une plage
Selectionner la plage
Dans l'emplacement ou apparait habituellement l'adresse de la cellule (juste au dessus du A) tape le nom que tu choisis et termine par Enter

Pour avoir les propriétés de la COMBOBOX
Cliquer sur
Affichage > Barres d'outils > Boite a outils Controle
Cliquer sur l'equerre
selectionner la combobox
cliquer sur l'icone a droite de l'Equerre et chercher ListFillRange dans les propriétés et mettre le nom choisi pour ta liste

Edit : Salut JC 🙂

 

[phil69]

Re : liste déroulante exl 97

re

Y a pas a dire ,il va vraiment faloir que je me met àVBA


bravau et merci encoreeeeeeeeeeeeeee


phil69

 

[phil69]

Re : liste déroulante exl 97

bonjour le forum

je joue encore avec ma macro qui grace a vous fonctionne super,mais j'ai 2

questions ,quel code à rajouter pour que la liste deroulante soit en ordre alphabetique et suprimer,voir remplacer le message d'erreurs de compilation qaund je rentre un nom qui n'existe pas dans la liste( j'ai peur que quand le message d'erreur apparait l'utilisateur clic sur debloquage et fasse n'inporte quoi dans la macro


merci
phil69