Contenu récent par Amilo

Bonjour @wDog66 , Merci pour votre réponse, J'avais déjà testé l'enregistrement de macro et la ligne de code ressemblait bcp à celle dans mon message. Le changement venait de PivotFields("Nom du slicer") au lieu de la variable PivotFields(Col) Je vais réessayer cette manipulation et supprimer...

Bonjour le forum, Je rencontre un problème dans un code VBA qui ne s'exécute pas selon que le TCD soit issu d'une plage ou d'un modèle de données Le code VBA a pour fonction d'afficher le contenu du TCD lorsque le "Slicer" est filtré (remise à zéro du filtre) Le code fonctionne bien avec un TCD...

Bonsoir le forum, Désolé pour le retour tardif, Je viens de tester chacune de vos solutions et je vous remercie beaucoup pour vos propositions @goube , merci pour cette version modifiée, après test : - je constate une certaine lenteur - et aussi un basculement vers l'onglet "TCD" lorsque je...

@goube , Merci mais je veux garder la structure de mon fichier dans mon 1er message, Je souhaite garder uniquement mes 2 onglets "TCD" et "Données" sans ajouter de nouveau TCD que je ne souhaiterais utiliser Le tableau de l'onglet "Données " est celui que je veux filtrer selon les critères D8 et...

Bonjour @goube , Merci bcp pour votre réponse, L'idée avec 2 boutons est bonne. Cependant, le filtre de votre code agît sur un TCD alors que dans mon fichier je dispose d'un tableau Certaines colonnes de ce tableau sont amenées à changer via la saisie manuelle. Comment l'adapter svp pour que...

Bonjour à tous, J'aurais svp besoin de votre aide pour : 1- Afficher/Masquer les lignes d'un tableau selon 2 cellules D8 et E8 tout en tenant compte du Slicer j'ai mis dans cet exemple un bouton de bascule ActiveX mais pas certain que ce soit le meilleur choix J'aimerais pouvoir mettre une...

Bonjour à tous, Si vous avez MS 365, à tester avec la fonction Traduire() =Traduire(Bahttext(B5)) Cordialement

Re, @job75 , merci d'avoir simplifier le code, c'est parfait Par ailleurs, j'utilise beaucoup les raccourcis clavier et par curiosité, j'ai testé Ctrl + "+" et le Ctrl + "-" Cela mène exactement au même résultat que les Shapes. Je n'avais pas vraiment conscience que ces raccourcis...

Bonjour @job75 , Merci pour votre proposition, Je repasserai en fin de journée une fois devant mon PC A bientlôt Cordialement

Bonjour à tous, @Phil69970 , @Dranreb un grand merci pour votre aide, Phil69970, la version V2 est parfaite, j'ai vu qu'il fallait désactiver 2 lignes pour la solution. Je reviendrai certainement dans une nouvelle discussion avec un sujet similaire mais plus élaboré concernant les icônes...

Bonsoir @Phil69970 , Re @Dranreb , Phil69970 merci beaucoup pour votre réponse, C'est parfait pour l'adaptation du code qui fonctionne très bien J'ai vu que vous avez supprimé quelques lignes inutiles. Par contre, un évènement que je n'avais pas indiqué dans mon 1er message, est que les icônes...

Re @Dranreb , Je viens de tester le fichier, cela répond à ce que je souhaitais et merci. Le seul inconvénient est que mon fichier réel comporte une dizaine de colonnes, dont certaines plutôt large. Aussi, il est plus pratique d'avoir les 2 icônes à gauche du tableau Je vais essayer de trouver...

Bonjour Dranreb, merci pour votre réponse. Je ne suis pas actuellement devant mon PC. Je serai de retour en fin de journée. Merci Bonne journée

Bonjour à tous, J'aurais svp besoin de votre aide pour optimiser un code VBA récupéré sur le net (voir fichier en pièce jointe). Voici les 2 points que je souhaiterais modifier : 1. Afficher les icônes sur l'ensemble du tableau nommé "employees_tbl" et non pas uniquement lors de la sélection...

Bonjour à tous, Une autre proposition à tester, let f=(x)=>[a = Table.PromoteHeaders(Table.Skip(Csv.Document(x,null,",",null,1252))), b = Table.ReplaceValue(a,",","",Replacer.ReplaceText,{"Bttl", "CASH", "Unit Price", "Total", "VAT 7%", "ยอดรวม"}), c =...