liste déroulante exl 97

P

phil69

XLDnaute Occasionnel

• 4 Juillet 2008

• #2

Re : liste déroulante exl 97

j'ai oublié de vous passer un exemple

 

Pièces jointes

• Classeur2.xls

  25.5 KB · Affichages: 43
• Classeur2.xls

  25.5 KB · Affichages: 43
• Classeur2.xls

  25.5 KB · Affichages: 44

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Juillet 2008

• #3

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)

 

Pièces jointes

• philClasseur2.zip

  9.7 KB · Affichages: 28
• philClasseur2.zip

  9.7 KB · Affichages: 29
• philClasseur2.zip

  9.7 KB · Affichages: 29

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 4 Juillet 2008

• #4

Re : liste déroulante exl 97

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



phil69

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Juillet 2008

• #5

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

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 4 Juillet 2008

• #6

Re : liste déroulante exl 97

Merci à tous vous etes trop simpats


Phil69

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 4 Juillet 2008

• #7

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Juillet 2008

• #8

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

 

Pièces jointes

• philClasseur2.zip

  9.7 KB · Affichages: 24
• philClasseur2.zip

  9.7 KB · Affichages: 24
• philClasseur2.zip

  9.7 KB · Affichages: 23

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 4 Juillet 2008

• #9

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Juillet 2008

• #10

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+

 

Dernière édition: 4 Juillet 2008

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Juillet 2008

• #11

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 🙂

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 4 Juillet 2008

• #12

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

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 7 Juillet 2008

• #13

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

 

Vote positif 0 Vote négatif