Résultats de la recherche

Re : [VBA] TCD et automatisation de filtres Re, Lorsque je parlais du classeur factice, je me mettais dans le cas où on rajoutait un filtre sur un TCD par exemple. En adaptant le code de la même manière qu'au #7, sur le fichier exemple, ça ne fonctionne malheureusement pas Voir ci-joint

Re : [VBA] TCD et automatisation de filtres Re, je confirme que le code est bien dans le modèle classeur. Et avec les tableaux exemples, il semblerait qu'on obtienne la même erreur

Re : [VBA] TCD et automatisation de filtres Re, Après lancement de la procédure et test du point d'arrêt, toujours rien... En fait ce classeur est vide de base, les TCD sont importés après. C'est ensuite que je pensais qu'avec le code inséré dans le classeur ça me modifierait mes TCD. Je ne...

Re : [VBA] TCD et automatisation de filtres Re, alors effectivement je m'étais trompé et j'utilisais le nom de la feuille, et pas de l'objet, malheureusement cela n'a pas réglé mon problème. Pour ce qui est du point d'arrêt, en le mettant sur n'importe quelle ligne, lorsque je modifie un...

Re : [VBA] TCD et automatisation de filtres Bonjour le forum, Chris. J'ai essayé d'adapter le code suivant Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable) If Sh.CodeName <> "Détails Découverts PRO Agence" Then Exit Sub ' A adapter selon le...

Re : [VBA] TCD et automatisation de filtres Re, Après vérification c'est tout à fait ce qu'il me faut. Je fais le test de l'adapter sur mon classeur demain matin et je fais un retour :D Ce n'est pas le cas ici mais si par exemple sur le second tableau j'ai la raison sociale en plus du CSD...

Re : [VBA] TCD et automatisation de filtres Bonjour Chris et merci pour ta réponse. J'avais envisagé d'utiliser cette méthode mais n'étant pas sûr de la syntaxe, j'ai procédé autrement. Hier dans la soirée, une idée m'est venu et il semblerait que cela fonctionne. En fait les CSD sont...

Bonjour le forum, tout le monde. Je reviens une fois de plus vers vous car je fais face à une difficulté. Jusqu'à présent je mettais à jour des filtres de TCD grâce à ce code Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("BE6:BF6")) Is Nothing Or...

Re : Plannin et Bulletin de paie Bonjour, Pour compter tes heures je te conseille de les mettre au format nombre, 16:00:00 va apparaître 16. Attention 16h30 apparaitra 16,50 et non pas 16,30... Ce sera plus simple pour compter car quand tu boucles 24 heures en bas, le compteur repasse à...

Re : VBA / Automatisation de filtres TCD Re, Effectivement ce n'était pas plus compliqué que ça... Et bien je crois que tout marche nickel, merci à toi ! :cool: SUJET RÉSOLU

Re : VBA / Automatisation de filtres TCD Bonjour le forum, bonjour Chris Alors après vérification, le second bloc "with" ne semblait pas s'exécuter, et c'était en fait une erreur de synthaxe dans mon code, erreur humaine, donc... :( Problème résolu ! Merci énormément :cool: Et sinon...

Re : VBA / Automatisation de filtres TCD Re, J'essaierai demain matin sur un autre TCD pour voir mais ici je confirme que rien ne se passait, et pas de message d'erreur, évidemment... Je verrais bien si cela vient du tableau ou non. Effectivement les segments ont l'air d'être une sacrée...

Re : VBA / Automatisation de filtres TCD Re, Le fait est que j'ai mal représenté sur l'exemple ce que je voulais faire. Il se peut qu'un TCD dispose de UC et agence en terme de filtre, cependant il peut arriver qu'il n'y en ai que l'un des deux, c'est ce qui arrive sur mon fichier et qui...

Re : VBA / Automatisation de filtres TCD Euréka ! Décidemment les fautes d'inattention, ça peut vite poser problème... Les modifications s'effectuent bien sur les TCD concernés pour ce qui est de l'agence. Par contre lorsque je change l'UC, rien ne se passe pour le TCD5, faut-il passer par...

Re : VBA / Automatisation de filtres TCD Re, J'ai maintenant l'erreur "Objet requis" qui pointe sur For Each Pt In Sh.PivotTables Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("BE6:BF6")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub '...

Re : VBA / Automatisation de filtres TCD Re, Malheureusement après quelques correctifs, toujours rien. Cela m'intrigue que je ne puisse pas utiliser le pas-par-pas. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("BE6:BF6")) Is Nothing Or...

Re : VBA / Automatisation de filtres TCD Bonjour Chris, et merci pour tes précisions Du coup je pense avoir compris comment résoudre mon problème cependant impossible de tester, lorsque je change d'agence, il ne se passe rien, et si je vais dans le code et que je fais du pas-par-pas, il ne...

Re : VBA / Automatisation de filtres TCD Bonjour Iznogood, et merci pour ta rapide réponse. Du coup comment puis-je faire pour que cela soit effectif sur les TCD qui possèdent au moins l'un de ces deux filtres ? Est-ce-que je peux sélectionner seulement les TCD où cela m'intéresse ?

Bonjour le forum, Je crée une nouvelle discussion car je suis en face d'un nouveau problème. Je dispose à l'heure actuelle d'environ 20 TCD (et il tend a il y en avoir de plus en plus) et en vue de les exporter périodiquement, je voulais faciliter la modification des filtres en ne les...

Re : Fonction SOMMEPROD() avec conditions ET Re, la seule fonction qui me retourne quelque chose différent de 0 avec un semblant de condition est la fonction suivante =SOMMEPROD(OU(C1:F10=0;C1:F10=1)*(A1:A10)) Cependant on est loin de l'utilisation conventionnelle de la fonction et la...