Barre de déroulement pour filtrer des données spécifiques

Le
PhatLuks
Bonjour. Voici mon problème. J'ai une liste d'au delà de 200 cases avec des
noms de produits à l'intérieur. Pour une série de produits j'ai un gros
titre. Exemple:

Vin Italie

Tegole
Nipozzano
Amarone
..

Vin France

Château Masserand
Petit Mas


Je tente de faire dans ma première case du classeur une barre de déroulement
qui m'amènerais directement au gros titre voulu. J'ai essayer le filtrage
mais je ne suis pas sur que c'est le bon outil.

Merci de me donner votre avis

Luks
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5227351
Bonjour,

Sub auto_open()
For Each c In Range("A3:A" & [A65000].End(xlUp).Row)
If c.Font.Bold Then Sheets(1).ComboBox1.AddItem c
Next c
End Sub

Private Sub ComboBox1_Change()
[A:A].Find(what:=ComboBox1).Select
End Sub

http://cjoint.com/?drhdEqckZL

JB
http://boisgontierjacques.free.fr/


On 17 mar, 00:44, PhatLuks
Bonjour. Voici mon problème. J'ai une liste d'au delà de 200 cases ave c des
noms de produits à l'intérieur. Pour une série de produits j'ai un g ros
titre. Exemple:

Vin Italie

Tegole
Nipozzano
Amarone
.....

Vin France

Château Masserand
Petit Mas
......

Je tente de faire dans ma première case du classeur une barre de dérou lement
qui m'amènerais directement au gros titre voulu.  J'ai essayer le filt rage
mais je ne suis pas sur que c'est le bon outil.

Merci de me donner votre avis

Luks


PhatLuks
Le #5226861
Bonjour, merci de votre réponse. Je suis par contre un peu débutant et les
formules que vous m'avez donné, je ne suis pas sur du où et comment je dois
l'inscrire. Est-ce qu'ils rentrent tous dans la case A1? Exemple: où est-ce
que j'écris Sub auto_open?

Merci énormément de me répondre

Luks


Bonjour,

Sub auto_open()
For Each c In Range("A3:A" & [A65000].End(xlUp).Row)
If c.Font.Bold Then Sheets(1).ComboBox1.AddItem c
Next c
End Sub

Private Sub ComboBox1_Change()
[A:A].Find(what:=ComboBox1).Select
End Sub

http://cjoint.com/?drhdEqckZL

JB
http://boisgontierjacques.free.fr/


On 17 mar, 00:44, PhatLuks
Bonjour. Voici mon problème. J'ai une liste d'au delà de 200 cases avec des
noms de produits à l'intérieur. Pour une série de produits j'ai un gros
titre. Exemple:

Vin Italie

Tegole
Nipozzano
Amarone
.....

Vin France

Château Masserand
Petit Mas
......

Je tente de faire dans ma première case du classeur une barre de déroulement
qui m'amènerais directement au gros titre voulu. J'ai essayer le filtrage
mais je ne suis pas sur que c'est le bon outil.

Merci de me donner votre avis

Luks






JB
Le #5226841
Pour auto_open

-AlT+F11
-Insertion/Module

Pour le menu:

Affiche/Boite outils controle:

-Combo
-Double clic

Private Sub ComboBox1_Change()
[A:A].Find(what:=ComboBox1).Select
End Sub

JB
On 17 mar, 07:03, JB
Bonjour,

Sub auto_open()
  For Each c In Range("A3:A" & [A65000].End(xlUp).Row)
    If c.Font.Bold Then Sheets(1).ComboBox1.AddItem c
  Next c
End Sub

Private Sub ComboBox1_Change()
  [A:A].Find(what:=ComboBox1).Select
End Sub

http://cjoint.com/?drhdEqckZL

JBhttp://boisgontierjacques.free.fr/

On 17 mar, 00:44, PhatLuks


Bonjour. Voici mon problème. J'ai une liste d'au delà de 200 cases a vec des
noms de produits à l'intérieur. Pour une série de produits j'ai un gros
titre. Exemple:

Vin Italie

Tegole
Nipozzano
Amarone
.....

Vin France

Château Masserand
Petit Mas
......

Je tente de faire dans ma première case du classeur une barre de dér oulement
qui m'amènerais directement au gros titre voulu.  J'ai essayer le fi ltrage
mais je ne suis pas sur que c'est le bon outil.

Merci de me donner votre avis

Luks- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme