boucle

V

Vériland

Guest

• 15 Octobre 2003

• #2

Bonjour Naim lahcen et toi le Forum,

je passe par là car je n'ai pas tout capté concernant le problème de boucle sur les boutons...en fait je n'arrive pas à saisir ta question...

comment utiliser une boucle pour parcourir les boutons de commandes avec les instructions suivantes...

bon pour définir le critère du bouton il faudrait davantage lui donner une valeur à ce bouton et non l'objet lui même...ce qui donnerait cette procédure d'appel

Private Sub CommandButton35_Click()
Dim Valeur As String
Valeur = "Armenia"
Selection.AutoFilter Field:=1, Criteria1:=Valeur
End Sub

Dans le même ordre, j'entrevoie mieux ce principe depuis la valeur d'une cellule...par exemple la procédure suivante effectera le critère du filtre automatique selon la valeur de la cellule C2...

Private Sub CommandButton35_Click()
Selection.AutoFilter Field:=1, Criteria1:=[c2].Value
End Sub

c'est déjà plus simple puisque la valeur de cette cellule peut changer...

mais ai-je bien compris ???

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

Vote positif 0 Vote négatif

N

Naim lahcen

Guest

• 15 Octobre 2003

• #3

J'ai dans mon programme 52 boutons de commandes.

Est ce que je dois reproduire la meme macro pour tout les boutons 52 fois

ActiveSheet.Shapes("CommandButton1").Select
Sheets("AgentData").Select
Selection.AutoFilter Field:=1, Criteria1:="egypt"

ou bien il serait interessant de faire une boucle qui fait le meme boulot
à chaque fois et seul le critere pays change.

Merci.

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 15 Octobre 2003

• #4

re,

ben moi je ne sais pas comment se présente ton fichier mais pour moi une seule procédure devrait être suffisante...

Donc, à la place d'avoir des boutons un peu partout sur la feuille, on peut très bien imaginer avoir un ComboBox qui liste les 52 pays (

) et que depuis ce combo box selon la selection faite, le critère du filtre automatique soit défini...

Ce qui donnerait ceci...

Private Sub ComboBox1_Change()
Dim Valeur As String
Valeur = ComboBox1.Value
Selection.AutoFilter Field:=1, Criteria1:=Valeur
End Sub

Donc le principe est simple...on sélectionne un nom dans la liste du comboBox (tu peux définir une plage dans les propriétés de celui-ci avec ListFillRange par ex : A1:A52) et le critère se réfère selon la valeur de la sélection du ComboBox...ce qui à mon avis serait mieux que des boutons...

 

Vote positif 0 Vote négatif

N

Naim lahcen

Guest

• 15 Octobre 2003

• #5

Pourriez vous Svp ds la mesure du possible me donner un petit
exemple pratique.
Je pense que le combobox sera leger que de gerer les boutons.

Merci

 

Vote positif 0 Vote négatif

N

Naim lahcen

Guest

• 15 Octobre 2003

• #6

Pourriez vous Svp ds la mesure du possible me donner un petit
exemple pratique.
Je pense que le combobox sera leger que de gerer les boutons.

Merci

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 15 Octobre 2003

• #7

bon ben le temps de mettre çà en place et je reviens avec un exemple concret...

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 15 Octobre 2003

• #8

Bon ben me revoiloù...

Voici donc un exemple concret depuis un ComboBox que j'espère assez explicite...Alors je l'ai établi d'après ce que j'ai pu comprendre depuis le début avec ta question de boucle...
Mais ??!!??...il n'y a pas de boucle la dedans...lol...Enfin bref...à tester...

Euh tant que j'y pense...si tu es connecté, tu peux même visiter du pays avec ce fichier...par contre si cela ne correspnd pas précisément à ce que tu souhaites, je t'aurais au moins fait sortir du bureau (si tu y est)...hi hi hi

 

Pièces jointes

• PAYS_COMBO_VL.zip

  24.8 KB · Affichages: 19

Vote positif 0 Vote négatif