OVH Cloud OVH Cloud

Filtrer et supprimer en VBA

5 réponses
Avatar
Boby71C
Bonjour à tous
Je cherche à automatiser la réalisation de mes graphiques de charges dans
Excel en partant de MS Project 2003.

J'ai plusieurs types de produits qui sont plannifiés et je désir extraire
dans Excel par produit.

J'ai éssayé avec l'enregistreur de macros ça n'enregistre pas la fonction
filtre.

Pourriez vous m'indiquer comment procéder ?
Dans ma colonne (Texte 7)qui est en colonne 16, j'ai l'identification des
différents produits et je désir par exemple filtrer les "M" et ensuite
supprimer toutes les lignes qui restent à l'écran.

Excel me propose ceci!
Selection.AutoFilter Field:=4, Criteria1:="M"
et ça fonctionne dans Excel, mais pas dans MSP

Merci pour votre aide
@+ Robert

5 réponses

Avatar
Gérard Ducouret
Boby,

Créez un filtre personnalisé qui teste sur le champ Texte7 : Projet /
Filtrer pour... / Plus de filtres / Créer...
Si ce filtre s'appelle "T7", écrire la ligne VBA:

FilterApply Name:="T7", Value1:="M"

Gérard Ducouret

"Boby71C" a écrit dans le message de
news:
Bonjour à tous
Je cherche à automatiser la réalisation de mes graphiques de charges dans
Excel en partant de MS Project 2003.

J'ai plusieurs types de produits qui sont plannifiés et je désir extraire
dans Excel par produit.

J'ai éssayé avec l'enregistreur de macros ça n'enregistre pas la fonction
filtre.

Pourriez vous m'indiquer comment procéder ?
Dans ma colonne (Texte 7)qui est en colonne 16, j'ai l'identification des
différents produits et je désir par exemple filtrer les "M" et ensuite
supprimer toutes les lignes qui restent à l'écran.

Excel me propose ceci!
Selection.AutoFilter Field:=4, Criteria1:="M"
et ça fonctionne dans Excel, mais pas dans MSP

Merci pour votre aide
@+ Robert



Avatar
Boby71C
Bonjour Gérard et le forum
Merci pour votre réponse rapide. Je viens de faire un essai et ça ne
fonctionne pas.
Message d'erreur:
Erreur d'exécution 11101
Filtre "T7" introuvable

J'ai essayé avec "Texte7"
et ça ne va pas mieux.
Je regarderais de plus prés lundi
Merci beaucoup pour votre aide
Bon Week End
@+ Robert


Boby,

Créez un filtre personnalisé qui teste sur le champ Texte7 : Projet /
Filtrer pour... / Plus de filtres / Créer...
Si ce filtre s'appelle "T7", écrire la ligne VBA:

FilterApply Name:="T7", Value1:="M"

Gérard Ducouret

"Boby71C" a écrit dans le message de
news:
Bonjour à tous
Je cherche à automatiser la réalisation de mes graphiques de charges dans
Excel en partant de MS Project 2003.

J'ai plusieurs types de produits qui sont plannifiés et je désir extraire
dans Excel par produit.

J'ai éssayé avec l'enregistreur de macros ça n'enregistre pas la fonction
filtre.

Pourriez vous m'indiquer comment procéder ?
Dans ma colonne (Texte 7)qui est en colonne 16, j'ai l'identification des
différents produits et je désir par exemple filtrer les "M" et ensuite
supprimer toutes les lignes qui restent à l'écran.

Excel me propose ceci!
Selection.AutoFilter Field:=4, Criteria1:="M"
et ça fonctionne dans Excel, mais pas dans MSP

Merci pour votre aide
@+ Robert








Avatar
Gérard Ducouret
Boby,

Il faut bien sûr avoir commencé par créer le filtre "T7" (ou un autre
nom...)
Si ce filtre doit tester sur le champ Texte7:
Filtrer pour... / Plus de filtres / Créer...
Nom : T7
Nom du champ : Texte7
Condition : Egal à
Valeur : M

Gérard Ducouret

"Boby71C" a écrit dans le message de
news:
Bonjour Gérard et le forum
Merci pour votre réponse rapide. Je viens de faire un essai et ça ne
fonctionne pas.
Message d'erreur:
Erreur d'exécution 11101
Filtre "T7" introuvable

J'ai essayé avec "Texte7"
et ça ne va pas mieux.
Je regarderais de plus prés lundi
Merci beaucoup pour votre aide
Bon Week End
@+ Robert


Boby,

Créez un filtre personnalisé qui teste sur le champ Texte7 : Projet /
Filtrer pour... / Plus de filtres / Créer...
Si ce filtre s'appelle "T7", écrire la ligne VBA:

FilterApply Name:="T7", Value1:="M"

Gérard Ducouret

"Boby71C" a écrit dans le message de
news:
Bonjour à tous
Je cherche à automatiser la réalisation de mes graphiques de charges
dans



Excel en partant de MS Project 2003.

J'ai plusieurs types de produits qui sont plannifiés et je désir
extraire



dans Excel par produit.

J'ai éssayé avec l'enregistreur de macros ça n'enregistre pas la
fonction



filtre.

Pourriez vous m'indiquer comment procéder ?
Dans ma colonne (Texte 7)qui est en colonne 16, j'ai l'identification
des



différents produits et je désir par exemple filtrer les "M" et ensuite
supprimer toutes les lignes qui restent à l'écran.

Excel me propose ceci!
Selection.AutoFilter Field:=4, Criteria1:="M"
et ça fonctionne dans Excel, mais pas dans MSP

Merci pour votre aide
@+ Robert










Avatar
Boby71C
aBonjour Gérard et le forum
Je n'avis pas tout saisi, je suis débutant en VBA. J'ai fait un éssai
concluant chez moi ce Week End et je vais m'atteler à développer mon édition
graphique. Je pense que se sera long car j'ai 3 produits et dans ces
produits, je différencie 3 sous groupes. Je vous tiendrais au courant du
résultat.
Il serait étonnant que je n'ai pas encore besoin de votre précieuse aide.

Merci beaucoup pour votre aide
@+ Robert


Boby,

Il faut bien sûr avoir commencé par créer le filtre "T7" (ou un autre
nom...)
Si ce filtre doit tester sur le champ Texte7:
Filtrer pour... / Plus de filtres / Créer...
Nom : T7
Nom du champ : Texte7
Condition : Egal à
Valeur : M

Gérard Ducouret

"Boby71C" a écrit dans le message de
news:
Bonjour Gérard et le forum
Merci pour votre réponse rapide. Je viens de faire un essai et ça ne
fonctionne pas.
Message d'erreur:
Erreur d'exécution 11101
Filtre "T7" introuvable

J'ai essayé avec "Texte7"
et ça ne va pas mieux.
Je regarderais de plus prés lundi
Merci beaucoup pour votre aide
Bon Week End
@+ Robert


Boby,

Créez un filtre personnalisé qui teste sur le champ Texte7 : Projet /
Filtrer pour... / Plus de filtres / Créer...
Si ce filtre s'appelle "T7", écrire la ligne VBA:

FilterApply Name:="T7", Value1:="M"

Gérard Ducouret

"Boby71C" a écrit dans le message de
news:
Bonjour à tous
Je cherche à automatiser la réalisation de mes graphiques de charges
dans



Excel en partant de MS Project 2003.

J'ai plusieurs types de produits qui sont plannifiés et je désir
extraire



dans Excel par produit.

J'ai éssayé avec l'enregistreur de macros ça n'enregistre pas la
fonction



filtre.

Pourriez vous m'indiquer comment procéder ?
Dans ma colonne (Texte 7)qui est en colonne 16, j'ai l'identification
des



différents produits et je désir par exemple filtrer les "M" et ensuite
supprimer toutes les lignes qui restent à l'écran.

Excel me propose ceci!
Selection.AutoFilter Field:=4, Criteria1:="M"
et ça fonctionne dans Excel, mais pas dans MSP

Merci pour votre aide
@+ Robert















Avatar
Boby71C
Bonjour à tous
Il me semblais bien que je serais bloqué rapidement !!

Je n'arrive pas à selectionner la totalité de mes projets conservés à
l'écran pour les supprimer.
Voici le code utilisé:

' Filtrer les modèles et les supprimer.

FilterEdit Name:="FiltreModèles", TaskFilter:=True, Create:=True,
OverwriteExisting:=True, FieldName:="Texte7", Test:="Égal à", Value:="M",
ShowInMenu:úlse, ShowSummaryTasks:úlse
FilterApply Name:="FiltreModèles"
EditGoTo ID:%000
SelectRange Row:=-17730, Column:=2

Avec les lignes du dessus, tout va bien mais arrivé aux 2 lignes ci-dessous,
je ne réussis pas à selectionner toutes les lignes pour les supprimer !!

SelectRange Row:=0, Column:=2, Height:, Extend:=True
SelectRange Row:=0, Column:=2, Extend:=True
EditDelete

Merci pour votre aide
@+ Robert

Bonjour à tous
Je cherche à automatiser la réalisation de mes graphiques de charges dans
Excel en partant de MS Project 2003.

J'ai plusieurs types de produits qui sont plannifiés et je désir extraire
dans Excel par produit.

J'ai éssayé avec l'enregistreur de macros ça n'enregistre pas la fonction
filtre.

Pourriez vous m'indiquer comment procéder ?
Dans ma colonne (Texte 7)qui est en colonne 16, j'ai l'identification des
différents produits et je désir par exemple filtrer les "M" et ensuite
supprimer toutes les lignes qui restent à l'écran.

Excel me propose ceci!
Selection.AutoFilter Field:=4, Criteria1:="M"
et ça fonctionne dans Excel, mais pas dans MSP

Merci pour votre aide
@+ Robert