Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

JNP

XLDnaute Barbatruc

• 3 Novembre 2011

• #16

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Re 🙂,
Non, simplement que tu aurait pu y penser 😛 !... 😉
Bon courage 😎

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 3 Novembre 2011

• #17

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Oui.. enfin je suis un débutant en VBA ! Mais oui j'aurais pu/dû y penser 🙂

Ta solution semble meilleure, au moins en termes de lisibilité / propreté.. après je sais pas

Merci

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Novembre 2011

• #18

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Bonsoir,

Voir pj

JB

 

Pièces jointes

• Copie de Création de boutons.xls

  42 KB · Affichages: 52

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 3 Novembre 2011

• #19

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Bonsoir JB,

Très intéressant ! Je ne sais plus quoi choisir... ComboBox ou Boutons.. telle est la question !

Je vais méditer là-dessus, vous êtes au top les gars !

Bonne soirée 🙂

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 4 Novembre 2011

• #20

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Bonjour à tous,

j'aimerais modifier le code suivant (celui de JB proposé par JNP) :

Code:

Private Sub UserForm_Initialize()
'Dico par JB
Set f = Sheets("AIFN")
Set MonDico = CreateObject("Scripting.Dictionary")
With CreateObject("vbscript.regexp")
For Each c In f.Range("H42:H" & f.[H65000].End(xlUp).Row)
    .Global = False
    .Pattern = "[A-Za-zéèëê]+[- ]?[A-Za-zéèëê]+"
    If .Test(c.Value) Then MonDico(c.Value) = ""
Next c
End With
temp = MonDico.keys
Call tri(temp, LBound(temp), UBound(temp))
Me.ComboBox1.List = temp
ComboBox1.AddItem "Autre"
End Sub

pour qu'il crée la liste non pas de toutes les valeurs uniques de la colonne H mais uniquement les valeurs uniques visibles dans la colonne H (un filtre a été appliqué et seules les valeurs restantes doivent apparaitre dans la liste).

Par avance, merci !

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 4 Novembre 2011

• #21

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Re 🙂,
Tu as de la chance, tu as eu JB himself 😛...

Code:

If .Test(c.Value) And c.EntireRow.Hidden = False Then MonDico(c.Value) = ""

devrait fonctionner 🙄 !
Bonne suite 😎

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 4 Novembre 2011

• #22

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Tip Top as usual 🙂

Pour info je pense que je vais garder la solution des Userform non modaux c'est + pratique et ça prendra moins de place !

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 9 Novembre 2011

• #23

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Bonjour à tous 🙂,

ce message est adressé à tous et en particulier à JNP ou toute autre personne qui pourra m'aider !

J'utilise le Pattern suivant : .Pattern = "[A-Za-z1-9éèëê]+"
mais j'aimerais qu'il autorise aussi les "vides" : quand il n'y a pas de caractère du tout.. je ne vois pas du tout comment faire :| pourtant j'ai bien lu ton tuto JNP ^^

Peut-être un Pattern "par exclusion" qui autorise tout sauf les "0" (j'ai bien mis 1-9 dans le Pattern 🙂)

Merci d'avance !

Edit: Solution trouvée: J'ai viré le Pattern et j'ai modifié la ligne suivante:

If .Test(c.Value) And c.EntireRow.Hidden = False And c.Value <> 0 Then MonDico(c.Value) = ""

 

Dernière édition: 9 Novembre 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 10 Novembre 2011

• #24

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Re 🙂,

djodjodjo à dit:

Peut-être un Pattern "par exclusion" qui autorise tout sauf les "0" (j'ai bien mis 1-9 dans le Pattern 🙂)

Cliquez pour agrandir...

Le pattern par exclusion, c'est [^0], mais techniquement, il ne faut pas oublier qu'un Pattern est un motif de texte, pas une valeur numérique, et je ne vois pas trop ce que tu veux faire des cellules vides 😕...
M'enfin, si ça marche 😀

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 10 Novembre 2011

• #25

Re : Macros création de boutons selon valeurs filtrables... l'espoir fait vivre !

Les cellules vides correspondent à des projets sans statut (certains sont "en cours", d'autres "terminés" etc.. et certains n'ont pas d'info donc ca génère des cellules vides...). Mes graphiques doivent prendre en compte tous les projets par statut, y compris les projets sans statut 🙂

 

Vote positif 0 Vote négatif