Forums - Tous les messages : myDearFriend! Excel Pages

Forums XLPages

Tous les messages (Mytå)

Re: interdiction de turf.fr		#91
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 14-03-2012 22h20 Salut MyDearFriend, Samuel et le Forum Samuel on ne peut rien faire sous peine de sanction pour l'Administrateur du site. Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: côte evo Myta		#92
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 13-03-2012 22h40 Re le forum Mahelnawe, je ne veux pas que tu penses que j'ai pas envie de t'aider, mais avec deux avertissements sur le Forum pour des fichiers de Turf, je prends donc un recul sur cette partie de la programmation via Excel (les requêtes). Je n'ai pas envie que le Forum reçoive d'autres plaintes provenant des sites de Turf. Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: Macro avec tests d'égalité des esperances...		#93
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 13-03-2012 22h03 Salut le forum En utilisant des plages nommées, je ne rencontre aucun problème. `Sub Test_Student() 'Utilitaire d'analyse/test d'égalité des espérances Application.Run "ATPVBAEN.XLA!Pttestm", ActiveSheet.Range("serie1"), _ ActiveSheet.Range("serie2"), ActiveSheet.Range("$G$2"), False, 0.05 End Sub Sub Test_Fischer() 'Utilitaire d'analyse/test d'égalité des variances Application.Run "ATPVBAEN.XLA!Ftestv", ActiveSheet.Range("serie1"), _ ActiveSheet.Range("serie2"), ActiveSheet.Range("$G$18"), False, 0.05 End Sub` serie1 =DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A:$A)-1;) serie2 =DECALER(Feuil1!$D$2;;;NBVAL(Feuil1!$D:$D)-1;) Mytå Pièce jointe: statistiques.xls [ Taille: 27.00 Ko - Téléchargements: 410 ] Edité par Myt� le 14/03/2012 11:43:26 Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: côte evo Myta

#94

Mytå

Accro XLPages

Inscription: 17/08/2007

De Québec, Canada

Messages: 180

Système d'exploitation:

Version Excel utilisée:

Excel 2003, 2007 (FR) & MsProject 2003

Posté le : 12-03-2012 22h08

Re le forum

Début de solution

Lancer la macro d'extraction

Call Get_Course("http://www.geny.com/partants-pmu/2012 ... ays-de-bray_c417878")

La macro devrait ressembler à ceci

Sub Get_Course(Lien As String)



With Sheets("ReqWeb")

  .Cells.Delete

    With .QueryTables.Add( _

      Connection:="URL;" & Lien, _

        Destination:=.Range("A1"))

          .BackgroundQuery = True

          .WebSelectionType = xlSpecifiedTables

          .WebTables = "2"

          .TablesOnlyFromHTML = True

          .Refresh BackgroundQuery:=False

          .SaveData = True

    End With

End With



End Sub

Ensuite il suffit de boucler sur les liens des courses afin d'extraire avec la même macro
le tableau suivant.

Carrière	Courues	Victoires	Places
Courses	13	3	6
Quinté+	0	0	0

Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: Problème avec Internet explorer		#95
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 12-03-2012 11h47 Salut le forum JC24, tu pourrais donner le lien du fichier en question. Car je n'ai pas fourni de fichier d'importation depuis Geny.com encore Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: convertir Cotes		#96
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 11-03-2012 15h57 Salut le Forum Samuel, si tu utilises une de mes versions pour récupérer les "Cotes". Dans la macro «Sub CopierCotes()» du Module Transfert Modifie la partie suivante : `If Not Cel Is Nothing Then Cel.Offset(, 16) = Split(Sheets("ReqCotes").Cells(Cell.Row, Col), "/")(0) Cel.Offset(, 17) = Split(Sheets("ReqCotes").Cells(Cell.Row, Col + 1), "/")(0) Cel.Offset(, 18) = Split(Sheets("ReqCotes").Cells(Cell.Row, Col + 2), "/")(0) End If` Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: Mise en evidence de chevaux repérés courant dans une course.		#97
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 09-03-2012 18h28 Re le forum Warmaster, non pas de limite pour le nombre de chevaux sur la feuille "Reperes", il suffit juste que le nom soit écrit de la même façon. Mytå Edité par Myt� le 09/03/2012 19:41:03 Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: Mise en evidence de chevaux repérés courant dans une course.		#98
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 09-03-2012 15h52 Salut le forum Warmaster, ajoute cette macro au fichier. Sub Reperes() Dim Cel As Range Dim Cell As Range With Sheets("Courses") For Each Cell In .Range("C10:C" & .Cells(Rows.Count, "C").End(xlUp).Row) If Not IsEmpty(Cell) Then With Sheets("Reperes") With .Cells Set Cel = .Find(Cell.Value, LookIn:=xlValues) If Not Cel Is Nothing Then With Cell .Font.Bold = True .Font.ColorIndex = 3 End With End If End With End With End If Next Cell End With End Sub Et dans le code de la feuille F01(Courses), ajoute la ligne Call Reperes `Call CopierCourse Call Reperes End If` Modifie aussi cette partie dans le code des macros Private Sub ComboBox1_Click() Private Sub ComboBox2_Click() Private Sub CommandButton1_Click() `Range("B10:R12,B14:U33").ClearContents Par With Range("B10:R12,B14:U33") .ClearContents .Font.Bold = False .Font.ColorIndex = 0 End With` Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: Récupération arrivées et rapports		#99
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 09-03-2012 15h20 Re le forum Samuel, pour empêcher d'effacer les formules en colonnes V de la feuilles "Courses" -Dans le module de la feuille F01(Courses), il faut remplacer dans les macros Private Sub ComboBox1_Click() Private Sub ComboBox2_Click() Private Sub CommandButton1_Click() `Range("B35:U550").EntireRow.Delete Par Range("B35:U550").Clear` Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

Re: Récupération arrivées et rapports		#100
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 08-03-2012 21h44 Re le forum Au plaisir de se retrouver sur une prochaine ficelle. Et n'oublie pas de passer la ficelle en [Résolu] Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5] Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.

Sujet | Forum

« 1 ... 7 8 9 10 11 12 13 ... 18 »