Contenu récent par Amilo

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

Bonjour à tous, @jurassic pork , Vous avez raison de le souligner, c'est un classique que j'ai omis pour les colonnes dynamiques. Ceci devrait fonctionner : Cordialement let Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content], #"Type modifié" =...

Bonjour à tous, Une autre proposition Power Query Et meilleurs voeux 2025 Cordialement

Bonjour @sylvanu , Merci pour votre réponse, Je vais encore garder ces livres pour espérer un jour me former pour de bon :) Cordialement

Bonjour le forum, Je possède de nombreux livres sur la programmation VBA dans les versions d'Excel 2007. Pensez-vous qu'il soit encore pertinent de les lire pour me former à VBA sachant qu'aujourd'hui j'utilise les versions 2019 et Office 365 ? Est-ce que VBA a beaucoup évolué entre les...

Bonjour @dec2020 , le forum, Une proposition en combinant VBA et Power Query, - Le fichier doit être en .xlsm - La cellule I2 devra être nommée préalablement par : filePath ou tout autre nom - Puis collez le code VBA qui se trouve dans le module VBA de ce fichier dans votre fichier perso -...

Bonsoir @sylvanu , Merci bcp cela fonctionne, Je pensais que c'était le contrôle ActiveX qui était en cause et du coup pas testé autre chose.... :) Bonne soirée