[RESOLU] Ecrire dans une macro automatiquement

[Le double cheese]

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]

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]

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]

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,