Résultats de la recherche

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å

Re le Forum Pour Baron tu as 4 lignes 2286, 2287,2288 et 2289 Il trouve la première car tu ne vérifies pas le code postale. 30700 BARON GARD LANGUEDOC-ROUSSILLON 33750 BARON GIRONDE AQUITAINE 60300 BARON OISE PICARDIE 71120 BARON SAONE-ET-LOIRE BOURGOGNE Mytå

Re le Forum Simplement que la méthode 'AddItem' ne fonctionne pas sur des TextBox's Mytå

Re le Forum Un peu de lecture : Menus en cascade Mytå

Salut le Forum Bienvenue Senlis comme nouveau membre. Code modifié Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep MsgBox "Que des chiffres !", vbOKOnly + vbInformation, "Numéro de...

Salut le Forum Question résolue sur un autre forum, la valeur de la cellule était en erreur. (Erreur 2042 : #N/A) Modification de la macro qui causait l'erreur sur les cellules. Mytå