Contenu récent par Franc58

Merci et bravo à vous 2 pour le boulot, je cherchais justement comment améliorer l'ergonomie d'un de mes projets grâce au scrolling de la molette. Ça fonctionne nickel !!!

Bonjour, peut-être un problème de donnée source qui ne serait pas numérique ?

Bonjour, pour excel online il me semble que c'est du javascript.

Salut à tous, voici une suggestion qui pourra servir de base de travail. Sub CopierCollerTS() Dim wsRecap As Worksheet Dim wsImport As Worksheet Dim tRecap As ListObject Dim tImport As ListObject Dim i As Long Dim tableauDonnees() As Variant Dim lignes As Long...

Il y a un répartiteur en ligne ici: https://tipster-paris-sportifs.com/calcul-paris-sportifs/dutching/

Bonsoir, au lieu de fusionner des cellules, tu peux utiliser Format de cellule > Alignement > Horizontal > Centré sur plusieurs colonnes. Tu obtiens le même résultat que la fusion mais avec les problèmes potentiels en moins.

Salut, va voir ici: https://wallabet.fr/suivre-paris-sportifs-excel/

Salut, voici une proposition en vba, c'est sûrement faisable aussi avec une mise en forme conditionnelle. Sub SurlignerCorrespondances() Dim wsParticipants As Worksheet Dim wsComptes As Worksheet Dim lastRowParticipants As Long Dim lastRowComptes As Long Dim i As Long...

Salut, tu peux utiliser: =CONCAT(C5:N5), c'est un peu plus lisible :) Ou alors, si tu veux un espace entre les valeurs: =JOINDRE.TEXTE(" "; VRAI; C5:N5)

Pour le fun, j'ai codé une nouvelle macro avec tableau en mémoire, j'abaisse mon temps à 4.2 secondes :) Sub FichiersCSV() Dim t As Double, chemin As String, i As Long, fichier As String, x As Integer Dim tableau As Variant, ligne As String Dim j As Long, nbColonnes As Long...

Bonjour, le préfixe xlfn apparaît quand une fonction n'est pas reconnue par la version excel avec laquelle tu ouvres le fichier.

Ouaaaah! T'as une machine de guerre, avec mon I9 10980XE, 96Gb de ram et écriture vers un ramdisk, il me faut quand même 7 secondes.

A mon avis ça vient de .Find("Observation*", dans le cas où "Observation*" n'est pas trouvé, tu auras une erreur. Tu peux gérer l'erreur comme ceci: Sub Imprimer(choix As Boolean) Dim r As Range, P As Range, n&, c As Range Dim foundCell As Range Set r = Range("B3:B" & Rows.Count)...

Bonjour, quand tu vas chez le médecin, tu dis juste "docteur je suis malade" ou tu donnes quelques détails pour aider au diagnostic ?

Bonsoir, j'ai modifié tes macros ChargeListBox et BtnModifier_Click pour profiter des fonctionnalités d'un tableau structuré et quelques autres petites améliorations du code, je te laisse tester.