Aide sur une macro

Signaler
-
f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
-
Bonjour,
J'ai suivi un tuto sur la gestion des absences mais un macro qu'il a utilisé ne marche pas chez moi.


Public Sub marecherche()

Sheets("BD").Range("Tableau4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Sheets("recherche").Range("b2:g2"), copytorange:=Sheets("recherche").Range("k2:y2"), Unique:=False

End Sub


Aide svp...



Configuration: Windows / Chrome 79.0.3945.88

4 réponses

Messages postés
16036
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 janvier 2020
2851
Bonjour,

Tu as un problème, tu le poses clairement et quelqu'un va essayer de t'aider.

Ce genre de morceau de violon comme "pro excel", "défi aux experts", "challenge à relever", " pour les champions d'excel"... est inutile voire ridicule…


Merci pour l'intérêt! Aucunement je me joue au "pro"...
Il s'agit d'un tuto sur la gestion des absences que j'ai suivi. Dans l'une des vidéos, le formateur a utilisé cette macro et a obtenu le résultat qu'il voulais. cependant, lorsque je suis les mêmes étapes, ça m'ouvre une fenêtre "exécuter macro". Alors, je demande une aide sur le code en question.
Merci!
Messages postés
1583
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
19 janvier 2020
217
Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement

Voici le lien du fichier: https://www.cjoint.com/c/ILAqfJRjNgX

La difficulté se trouve sur la feuille recherche. lancer visual basic pour voir le code.

Voici le lien de l'extrait du tuto: https://www.cjoint.com/c/ILAqrQCM3uX
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1207
Bonjour,

Code modifie:

Ai redefini le tableau avec les titres, vire currentregion et vu que vous avez defini un tableau pour les critères autant l'utiliser

A voir

Public Sub maRecherche()
    '
    Worksheets("BD").Range("Tableau_4").AdvancedFilter Action:=xlFilterCopy, _
            criteriarange:=Worksheets("Recherche").Range("Criteres"), _
            copytorange:=Worksheets("Recherche").Range("I2:k2"), _
            Unique:=False

End Sub
Bonjour,
Merci! j'ai essayer mais ça m'a fait retiré tous les (_) et ça m'affiche "erreur d'exécution".
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1207
Re,
J'ai fait des tests avec le fichier que vous avez mis à dispo et ça marche!!
Vous, quel fichier utilisez-vous??
Avez-vous redéfini le tableau de recherche??
f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1207 > Ange
Bonjour,

fichier GESTION DU PERSONNEL_ABSENCE_ET_TEMPS_DE_TRAVAIL 001:
_Tableau4, pas les titres dans le tableau et le code que j'ai ecrit utilise le nom de tableau: Tableau_4 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Image fichier Ange……: comment lancez-vous la procedure maRecherche?????????????????????????????????????
Car marche tres bien lancement manuel!!!!!

Suite:
Tableau_4: plage de cellules nommees (eratum), Tableau4 reste car peux pas le supprimer(!!)

Fichier GESTION DU PERSONNEL_ABSENCE_ET_TEMPS_DE_TRAVAIL...….. modifie:

https://mon-partage.fr/f/twsrUuZJ/

Je vais faire un autre fichier pour verifier si dans le tuto ce sont bien des tableaux et pas de plages de cellules. Puisque dans le fichier Ange et Gestion, j'ai cree une plage nommee de cellule Tableau_4 pas un autre tableau
> f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020

Bonjour!
J'ai bien compris l'explication, merci pour le temps consacré. ça marche effectivement avec votre fichier mais bugg avec des éléments que j'ai rajouté.
Merci bien!
f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1207 > Ange
Bonjour,
Pouvez preciser ces ajouts et voir a mettre le fichier a dispo?
> f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020

Bonjour!
J'ai ajouter certains noms pour les tableaux. voyez sur le fichier.
Cependant, je rencontre une autre difficulté dans l'onglet "Individuelle"
https://www.cjoint.com/c/JArjymNgCFy
f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1207 > Ange
Bonjour,

Votre lien est la video du debut…………………………………..
C'est votre fichier qui interesse!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!