Contenu récent par nullosse

Salut, L'I.A va tuer les forums d'entraide. J'ai constaté dans d'autres forums d'entraide que depuis que l'I.A a pris son essor , la fréquentation de ces forums avaient largement diminuée jusqu'à même s'arrêter dans certains forums. Reste que pour pouvoir utiliser l'I.A il faut savoir poser les...

Voici ce que dit ChatGpt sur le sujet : kingbeck utilise ce contrôle mais il ne nous a pas dit le message d'erreur qu'il a :

c'est bizarre parce que moi je n'ai pas de problème pour utiliser un controle activex webbrowser dans un formulaire en Excel 2021 64 bits sous windows 11 et je connais quelqu'un qui n'a pas de souci aussi avec Excel 2013 sous windows 10. c'est internet explorer qui a disparu pas le controle...

Salut patricktoulon, c'est pas dans les feuilles qu'il y a des problèmes ? Dans les formulaires , il doit y avoir moins de soucis.

Salut, L'avantage avec l'activeX WebBrowser, c'est que ce n'est pas le VBA qui gère le défilement : Nullosse

Salut, Laurent c'est un peu risqué ce que tu fais car cela dépend de la version d'Excel utilisée. Par exemple chez moi ton code envoie les sendkeys dans la fenêtre VBE , il faut que je mette : ActiveSheet.Range("A1").Select ' Pause courte pour que Excel ait le focus Application.Wait...

salut, Ma boule de cristal est en panne, le code qui affiche le texte déroulant ou un classeur contenant ce code pourrait m'aider. Nullosse

Salut, La fonction Unique renvoie les valeurs uniques de toute la plage : La fonction UNIQUE d'Excel permet d'extraire des valeurs uniques à partir d'une plage ou d'un tableau. Elle fait partie des formules dynamiques introduites dans Excel 365 et Excel 2019+. ✅ Syntaxe de la fonction UNIQUE...

Bon voilà un code qui fonctionne chez moi : Sub b() Dim TabValeursUniques, bm As New cBenchmark bm.Start TabValeursUniques = TabVDicoUniquesColonneTS(ActiveSheet.ListObjects(1), 1, True) 'rien que les filtrés Debug.Print "nb Valeurs uniques filtrées : " &...

Le problème c'est que Application.Version renvoie 16 pour toutes les versions après la version 2016 (moi j'ai 16.0 avec mon Excel 2021)

Salut patricktoulon, pour unique c'est pire que cela c'est excel >= 2021 . Le mieux c'est de tester si la fonction existe (erreur si la fonction n'existe pas et qu'on tente de l'exécuter ) Nullosse

Salut, j'ai testé le code de patricktoulon et le unique sur un tableau de 250000 chaînes aléatoires de 8 caractères qu'avec 2 doublons. voici les codes de test : Sub b() Dim TabValeursUniques, bm As New cBenchmark bm.Start TabValeursUniques =...

Moi j'ai juste donné une info . A voir si cela peut servir à quelqu'un un jour dans d'autres codes.

A mon avis la fonction WorksheetFunction.Unique doit être la méthode la plus rapide en VBA pour supprimer les doublons d'un tableau. Pour un tableau composé de 250000 chaînes aléatoires de 8 lettres j'obtiens un temps de 45ms et dans le tableau résultat j'ai 53393 valeurs. Mais hélas cette...

Effectivement elle n'existe que depuis Excel 2021 avec ce code dans Excel 2021: tabval = Application.Transpose(WorksheetFunction.Unique(tbl.DataBodyRange)) je récupère les valeurs uniques du tableau à 1 colonne dans un array (tabval) sans boucler sur les éléments