[RESOLU] Ecrire dans une macro automatiquement

Le double cheese · 24 Juillet 2013

Bonjour,

J'ai un tableau excel avec un planning pour un chauffeur, et j'ai créé un bouton macro qui me permet d'afficher les portes (ou quai) sur le site de Strasbourg.

J'aimerais pouvoir ajouter une porte/quai dans ma liste et que la porte/quai ajouté s'ajoute automatiquement à ma macro.

Voici ma macro:

Sub Strasbourg()
'
' Strasbourg Macro
'
Sheets("Planning").Select
ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=3, Criteria1:="=Porte A1" _
, Operator:=xlOr, Criteria2:="=Porte A2"
End Sub

Les explications sont dans le fichier
Merci,

Le double cheese · 24 Juillet 2013

Re : Ecrire dans une macro automatiquement

Re,

Je vous ait envoyé un fichier ou la macro ne fonctionnait pas. Erreur corrigé, j'ai re-édité mon premier message. La pièce jointe fontionne maintenant.

GIBI · 24 Juillet 2013

Re : Ecrire dans une macro automatiquement

Bonjour,

en Excel 2007 et supérieur tu peux passer une liste de valeur en tant que critère

si tu nomme la plage correspondant au critère la macro prend toutes les valeurs pour le filtre

Sheets("Planning").Select
ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=3, Criteria1:=WorksheetFunction.Transpose(Range("Critere")), Operator:=xlFilterValues

Transpose permet de transformer le tableua vertical en Tableau horizontal (une liste)

GIBI

Le double cheese · 26 Juillet 2013

Re : Ecrire dans une macro automatiquement

Bonjour GIBI,

Excelent ! Exactement ce que je recherchais.
Je vais essayer de l'adapter à mon document.

Mais pourquoi est-il nécessaire d'utiliser TRANSPOSE (les listes ne sont-elles pas en générale verticale?)

Salutations,

[RESOLU] Ecrire dans une macro automatiquement

Le double cheese

XLDnaute Occasionnel

Pièces jointes

Le double cheese

XLDnaute Occasionnel

GIBI

XLDnaute Impliqué

Pièces jointes

Le double cheese

XLDnaute Occasionnel

Discussions similaires