Contenu récent par Mytå

Re Guido Tapie93, SpeedTurf, Beyer le même joueur. Lors de sa désincription, il a dit je lâche le Turf rien ne fonctionne ... et le revoilà Mytå

Re Genesis70 et moi nous avions commencé à lui aider, mais il a fuit le Forum. Mytå

Salut le Forum Beyer, une simple requête dans ton fichier Access serait plus simple Mytå

Re Oui Guido, E-mail fonctionnel. Mytå

Re le Forum Il existe les Fonctions =Est.Pair() et =Est.Impair() sous Excel 2003 à condition de cocher, dans Outils/Macros complémentaires, l'Utilitaire D'analyse. Mytå

Salut le Forum Comme ceci Mytå

Re le Forum Guido, la récupération des cotes fonctionne très bien, j'ai clôturé la ficelle alors que le fichier était déjà fonctionnel. J'ai bien fait de ne pas le transmettre . . . Mytå

Salut le Forum, C'est un adepte du clé en main :) La prochaine demande ajouter les Cotes de Zeturf en direct :) Mytå

Re le Forum Patouman, va avoir le même problème : Profil = Excel 2007 Mytå

Salut le Forum Range.DisplayFormat Property (Excel) - Office 2010 and later Mytå

Re le Forum En colonne R remplace NBVAL par NB SI(A7="";"";NB(C7:P7)) Mytå

Re Ouvre VBA (Alt + F11) et copie le code suivant dans un module Option Explicit Function Couleur(r As Range) For Each r In r If r.Interior.ColorIndex = 10 Then Couleur = Couleur + 1 '10 = vert foncé Next End Function Function TriVerticalCouleur(r As Range) Application.Volatile If...

Il faut copier le code des fonctions personnalisées aussi

Re le Forum Pour la recherche, pense à spécifier la feuille Private Sub ComboBoxVILLE_Change() With Sheets("CP") For n = 1 To .Range("B65536").End(xlUp).Row If .Range("B" & n) = ComboBoxVILLE Then TextBoxDEP = .Range("C" & n) TextBoxREG =...

Re le Forum Pour le code postale le zéro est juste visuel (Correctif) Set Trouve = .Columns(1).Cells.Find(Val(TextBoxCP), lookat:=xlWhole) Mytå