Contenu récent par FlorianQ

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 '...