Filtrer

Fermé
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013 - 9 avril 2013 à 20:36
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013 - 11 avril 2013 à 11:43
Bonjour,

J'aimerais créer une macro qui me permettrais d'effectuer le tri d'une colonne en fonction d'une condition.

Pour être plus clair je voudrais trier la colonne A de la feuille 1 en fonction d'une condition saisie dans la cellule D3 de la feuille 2.

Pourriez vous m'aider car j'y est passé une bonne partie de ma journée de travail et je n'arrive à rien du tout.

Merci d'avance à ceux qui prendrons le temps de m'aider

21 réponses

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
10 avril 2013 à 10:11
Bonjour,

Sub Filtre()

'nom de feuilles et plage de cellules a adapter

Application.ScreenUpdating = False
'enleve les filtres
Worksheets("feuil1").Range("$A$1:$D$13").AutoFilter Field:=1
Worksheets("feuil1").Range("$A$1:$D$13").AutoFilter Field:=1, Criteria1:=Worksheets("feuil2").Range("D3")
Application.ScreenUpdating = True
End Sub

Bonne suite
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
10 avril 2013 à 11:11
Tout d'abord merci.

Par contre lorsque jexecute la macro il me met erreur d'execution '1004': erreur définie par l'application ou l'objet.
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
10 avril 2013 à 11:16
Re,

avez -vous modifie la plage de cellules??????
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
10 avril 2013 à 11:21
Euh non il faut que je le fasse.
Je suis débutante en vba et ces pas évident a maitriser
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 10/04/2013 à 11:41
Re,

Je vous fais cela


Sub Filtre()

    Application.ScreenUpdating = False
    'derniere ligne de la colonne A
    derlig = Range("A" & Rows.Count).End(xlUp).Row
    'enleve les filtres
    Worksheets("feuil1").Range("$A$1:$A" & derlig).AutoFilter Field:=1
    Worksheets("feuil1").Range("$A$1:$A" & derlig).AutoFilter Field:=1, Criteria1:=Worksheets("feuil2").Range("D3")
    Application.ScreenUpdating = True
End Sub



A+
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
10 avril 2013 à 14:41
Merci encore une fois d'avoir la patience de me répondre.

J'ai recopier votre deuxième macro et il me mets toujours la même erreur.
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
10 avril 2013 à 14:59
Re,

Pouvez-vous mettre votre fichier a disposition s'il ne contient pas de donnees confidentielles ou modife pour qu'elles ne le soient plus en cliquant sur le lien suivant:
https://www.cjoint.com/

n'oubliez pas de copier/coller le lien cree dans votre prochain message

A+
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
10 avril 2013 à 21:32
Désolé d'avoir mis autant de temps mais je ne pouvais pas le faire depuis le travail.

Voila le lien du document:
https://www.cjoint.com/?3DkvE43ZykS
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
10 avril 2013 à 21:41
Bonjour,

Pas de probleme, je recupere le fichier et vous tiens au courant.

A+
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
10 avril 2013 à 22:11
Re,

Vous pourriez expliquer pourquoi vous voulez filtrer la colonne A de "tableau recap" avec un matricule saisie en D3 de "Fiche de pénibilité" ????
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
10 avril 2013 à 22:40
En faite le but c'est que les RH puissent remplir le premier tableau et qu'ensuite en saisissant le n° de matricule en D3 , la fiche de pénibilité se remplisse automatiquement.

Et avec la macro que j'ai écrit avec mes connaissances assez basiques en VBA il faut que la colonne A du tableau recap soit filtrer pour que le reste se remplisse.
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 avril 2013 à 07:37
Bonjour,

Je regarde la chose.

A+
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
11 avril 2013 à 07:41
Merci beaucoup
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 avril 2013 à 07:45
Re,

Enlever les lignes vides, je comprends, mais je repete ma question:

Vous pourriez expliquer pourquoi vous voulez filtrer la colonne A de "tableau recap" avec un matricule saisie en D3 de "Fiche de pénibilité" ????
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
11 avril 2013 à 07:49
On me demande que la fiche de pénibilité se remplisse automatiquement en fonction du numéro de matricule.

Avec la macro que j'ai écrit pour l'instant il faut que les données soit filtrer en fonction de se matricule pour tout copier et coller du tableau récap vers la fiche de pénibilité. Je préfèrerais pas la modifier car on va me demande d'expliquer ce que j'ai fait et ces plus simple si je comprend.

Ces plus clair ??
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 avril 2013 à 08:07
Re,

Si vous voulez que cette fiche se remplisse avec les donnees du matricule saisie ( a voir si une liste de validation de donnees serait plus adaptee), le flitre ne sert a rien et vous faites des copies de plages de cellules inutiles puisque vous avez des informations en ligne et vous copiez des colonnes sans choisir les infos qui vous sont necessaires!!!!! Le resultat va etre rock & roll
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
11 avril 2013 à 08:44
Jusqu'à maintenant cela marche à tous les coup
Et une liste de validation ne servirai à rien cela prendrais trop de temps pour compléter la fiche ce n'est pas le but
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 avril 2013 à 09:23
Re,

Jusqu'à maintenant cela marche à tous les coup Ah Bon.

J'ai execute votre macro remplissage pour le N°: 36353938-Melle Vert (en double dans tableau recap, donc le n° ne suffi pas pour choisir ) et il y a une taboulee d'infos qui n'ont rien a voir avec ce n°


Et une liste de validation ne servirai à rien cela prendrais trop de temps pour compléter la fiche ce n'est pas le but cela peut se faire automatiquement, de meme que toutes les autres ou vous avez ecrit la liste a la main.

Maintenant c'est votre projet, a vous de voir
0
cline56100 Messages postés 12 Date d'inscription mardi 9 avril 2013 Statut Membre Dernière intervention 11 avril 2013
11 avril 2013 à 09:46
Oui c'est justement pour sa que je veux trier la colonne À de tableau récap en fonction de D3 comme sa il ne reste plus que les infos concernant le numéro saisie en D3 et donc cela remplis correctement la fiche de penibilite
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 avril 2013 à 10:31
Re,

Oui, mais il y des numeros en double, par la suite en fonction des mouvements de personnel le meme numero sera x fois dans la liste et pour moi la fiche est a creer pour le poste occupe pas pour tous les postes.
0