Forums XLPages

Tous les messages (mahelnawe)

« 1 ... 8 9 10 11
a partir d'une côte trouver enjeu
#101
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 17-02-2012 02h37
bonjour le forum,
je voulai savoir si quelqu'un aurai la gentillesse de m'expliquer comment à partir d'une côte on obtient enjeu qu'elle formul permet ce resulta exemple
8.6/1= cote ref     5.5/1 = derni cote    9.90%= eujeu ref 15.50 enjeu
 merci de votre aide eventuelle


partant du cumul de la liste des côtes ,de la côte elle même  j'ai essayer de plusieur  façon aucun resulta
merci de votre temp et de votre aide
Edité par mahelnawe le 17/02/2012 09:57:14
Hors Ligne
 Rapport   Haut 

reformuler la mise en forme et l'ecriture des formul
#102
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 16-02-2012 22h56
bonjour le forum;
je viens vers vous avec mes formules et bien que je soit pas tres bon cela fonctione ,je voulai savoir si il y avait un moyen d'ecrire mes formul autrement pour mon selecteur auto si je peu dir ça !
juste si il pouvai y avoir les explication sur les modification et la constuction afin que j'en comprenne le fonctionement .
si cette partie est ensuite etirai vers la droite
merci paravance de votre aide




Pièce jointe:
xlsx aaa.xlsx   [ Taille: 17.18 Ko - Téléchargements: 426 ]
xlsx aaa.xlsx   [ Taille: 17.18 Ko - Téléchargements: 390 ]
zip TablSelect.zip   [ Taille: 12.40 Ko - Téléchargements: 396 ]
Edité par mahelnawe le 16/02/2012 23:34:01
Hors Ligne
 Rapport   Haut 

Re: simplifier cette formul
#103
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 16-02-2012 00h38
bonjour à tous le forum,
mille excuse pour ce manque idiot de politesse,absorbé et enuié j'ai omis .
je tiend à remercié Didier pour son aide j'essay cela toute suite ,c agreable de pouvoir recevoir un peu d'aide ..
merci de ces precieux conseil je ne l'avait pas fait
Edité par mahelnawe le 16/02/2012 23:19:14
Hors Ligne
 Rapport   Haut 

simplifier cette formul
#104
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 15-02-2012 04h36
SI(G25="STCp";CAT!C6;SI(G25="STCm";CAT!G6;SI(G25="STCq";CAT!k6;SI(G25="STJp";CAT!C30;SI(G25="STJm";CAT!J30;SI(G25="STJq";CAT!K30;SI(G25="STEp";CAT!C30;SI(G25="STEm";CAT!J30;SI(G25="STEq";CAT!K30))))))  merci par avance de votre aide
Hors Ligne
 Rapport   Haut 

nouvel requete d'importation sur liste automatique
#105
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 05-02-2012 14h34
bonjour le Forum,


je sui arrivé à importe "donné à partir du web ,je n'est trouver n'y le moyen d'agir sur la requete n'y le moyen d'etablir une requete a partir d'une liste de lien . je voulai donc savoir si serai possible par macro que je connai tres peu ,possible de faire une requete d'importation à partir d'une liste situé en a2:a100 .que chaque importation soit faite sur une nouvel feuille renomé du nom du lien d'importation .que l'importation s'execute jusqu'as ce que l'une des cellule de la liste ne contienent rien ,que les requette s'actualise toute 3 heure .
voila et merci au forum

bonjour le forum,
je reviens vers vous avec le même probleme ,pourriez vous m'aider ,je galer grave ...
ayant 45000 liens à exploiter c un travail de titan manuelement c pourquoi je sui venue vers vous ,à partir de chacun des liens a2:a45000  recuperé le contenue complet pour chaque liens de la destination ex:http://www.geny.com/cheval/timako-verderie_c413864_h2181791
de plus a l'ouverture du liens un mot de passe est requi si dans le code avant ouverture du liens on pouvait instruire le mot passe cela serai niquel .
en l'attente de votre aide ,esperant votre aide ..... cordialement


Edité par mahelnawe le 03/03/2012 15:48:48
Hors Ligne
 Rapport   Haut 

copie automatique d'une feulle
#106
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 02-02-2012 03h29
bonjour au forum,
voilla dans mon classeur j'ai une feuille que j'ai nomé sas ;je voudrai (baser sur une liste de nom s'agrandissant a chaque nouvel entre )qu'a partir de n'importe le qu'elle de ces nom que je choissie de la liste (double clic) , qu'une nouvel feuille ce construise exatement  à l'identique  de ma feuille SAS mais vide et qu'elle soit renomé par le nom sur le qu'elle j'ai cliqué .
quelqu'un aurai t'il une solution pou resoudre mon probleme ?


merci d'avance
ma liste en b3 sur b...........


et enfin meme si a un momment je decide d'en changer le format que la copie identique ce poursuive
merci par avance a toussent de votre aide
je trouvent ce forum genial vous lire esr un vrai bonheur merci a toussent pour votre talent



Pièce jointe:
xlsx sas.xlsx   [ Taille: 12.24 Ko - Téléchargements: 401 ]
Edité par mahelnawe le 03/03/2012 15:39:52
Hors Ligne
 Rapport   Haut 

Re: importer liste drivers entraineur sur geny.com
#107
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 31-01-2012 16h12
bonjour à toussent,
apres avoir visité les divers code pour ce que je veut faire j'ai retenue le code suivant :  Didier FOURGEOT (myDearFriend!)  -  www.mdf-xlpages.com
' Date      : 16/10/2011
' Sujet     : Récup données Web : Geny.com

,d'ailleur d'ici que je puisse faire à ce niveau beaucoup de travaille ...
je pensse qu'il doit être possible de le modifié
en attend du temp compté pour vous toussent et de votre comprehenssion .
merci par avance
voilla ce que je voudrai faire ,si ca peu motivai quelqu'un à m'apporter son aide ...
merci a tousse !
Pièce jointe:
xlsx driver entraineur 1.xlsx   [ Taille: 35.98 Ko - Téléchargements: 585 ]
Edité par mahelnawe le 03/03/2012 15:45:53
Hors Ligne
 Rapport   Haut 

importer liste drivers entraineur sur geny.com
#108
mahelnawe
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 31-01-2012 01h04
bonjour le forum,
je sui nouveau venue ,sur (geny.com acceuil) on peu lire  bas de page tous les jokey d'aujourd'hui et tout les entraineur d'aujourd'hui .
y'a à t'il un moyen pour recuperai à partir de ce lien pour chacun des nom liste,via le lien present sur chaque nom le nombre de courses,victoires,place soit a2=nom b2=nb course c2=nb victoir d2=nb placé ainsi-que donc:b1:c1 fusioner contenant pmu(a2;b2;c2;d2) multi quinté idem puis ensuite de recuperai pour chacun des partant de la même facons ces monte ; ces entraineur ...
je sui novice et j'ai encors du mal a tous comprendre .
si quelqu'un a une solution ..
merci par avance de votre aide ...
voici le code que j'ai vue mais je ne sui pas arrivée à le modifier :
Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!) - www.mdf-xlpages.com
' Date : 24/10/2011
' Sujet : Récup données Web : Geny.com (v1.1)
'---------------------------------------------------------------------------------------
Sub ListeCourses(Optional Dem As Boolean)
Dim IE As InternetExplorer
Dim IEdoc As HTMLDocument
Dim O As Object
Dim vUrl As String, T As String
Dim Lmax As Long, L As Long
'Prépare la feuille
Application.StatusBar = "Patientez..."
ActiveSheet.Range("17:100").Delete
Application.ScreenUpdating = False
'URL de départ http://www.geny.com/reunions-courses-pmu/_d2011-10-25?
vUrl = "http://www.geny.com/reunions-courses-pmu" & IIf(Dem, Format(Date + 1, "/_\dyyyy-mm-dd?"), "")
'Ouvre la page web dans IE de façon invisible
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = False
'Ouvrir la page Web
IE.Navigate vUrl
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Set IEdoc = IE.Document
vUrl = "http://www.geny.com/partants-pmu/"
'Mémoriser les liens utiles
With ActiveSheet.ComboBox1
.Clear
.ColumnCount = 2
.BoundColumn = 2
.Style = fmStyleDropDownList
.AddItem "< choisir une course >"
Lmax = IEdoc.Links.Length
For Each O In IEdoc.Links
L = L + 1
Application.StatusBar = "Patientez... " & L * 100 \ Lmax & " %"
If O.href Like vUrl & "*" Then
T = Mid(O.href, Len(vUrl) + 1)
T = Left(T, InStrRev(T, "_") - 1)
.AddItem T
.List(.ListCount - 1, 1) = O.href
End If
Next O
.ListIndex = 0
End With
'Quitter IE
Set IEdoc = Nothing
IE.Quit
Set IE = Nothing
Application.ScreenUpdating = True
MsgBox "Liste mise à jour avec succès !" & vbLf & vbLf & "- Choisissez une course dans la liste," & vbLf & "- Cliquez ensuite sur « Stats Partants » " & vbLf & "- Puis, patientez ... ", vbInformation + vbOKOnly, "myDearFriend! - www.mdf-xlpages.com"
Application.StatusBar = False
End Sub

Sub RecupPartants()
Dim Plage As Range
Dim TabTemp As Variant
Dim vUrl As String
Dim DernLign As Long, L As Long, Lmax As Long
Dim DernCol As Integer
Application.ScreenUpdating = False
With ActiveSheet
'Récupère tableau des partants
.Range("17:100").Delete
With .ComboBox1
If .ListIndex < 1 Then Exit Sub
vUrl = .Value
End With
Application.StatusBar = "Patientez..."
With .QueryTables.Add(Connection:="URL;" & vUrl, Destination:=.Range("B17"))
.Name = "mDFquery"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebTables = "tableau_partants"
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = False
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'Récupére la carrière de chaque cheval
DernCol = .Cells(18, .Columns.Count).End(xlToLeft).Column
DernLign = .Cells(.Rows.Count, 2).End(xlUp).Row
Set Plage = .Range(.Cells(19, 2), .Cells(DernLign, DernCol + 3))
TabTemp = Plage.Value
Lmax = UBound(TabTemp)
For L = 1 To Lmax
Application.StatusBar = "Patientez... " & L * 100 \ Lmax & " %"
vUrl = Plage.Cells(L, 2).Hyperlinks(1).Address
RecupCarriere vUrl, DernLign + 1
TabTemp(L, DernCol) = .Cells(DernLign + 2, 3)
TabTemp(L, DernCol + 1) = .Cells(DernLign + 2, 4)
TabTemp(L, DernCol + 2) = .Cells(DernLign + 2, 5)
Next L
Plage.Value = TabTemp
'Mise en forme
.Range(.Cells(DernLign + 1, 3), .Cells(DernLign + 1, 5)).Copy Destination:=.Cells(Plage(1).Row - 1, DernCol + 1)
.Range(DernLign + 1 & ":1000").Delete
.Columns(DernCol).Copy
.Range(.Cells(1, DernCol + 1), .Cells(1, DernCol + 3)).EntireColumn.PasteSpecial Paste:=xlPasteFormats
.Cells.Hyperlinks.Delete
With Plage.Borders()
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Cells.EntireColumn.AutoFit
.Cells(17, 2).Select
End With
Application.ScreenUpdating = True
Application.StatusBar = False
Beep
End Sub

Sub RecupCarriere(vUrl As String, Lign As Long)
With ActiveSheet
.Range(Lign & ":1000").Delete
With .QueryTables.Add(Connection:="URL;" & vUrl, Destination:=.Cells(Lign, 2))
.Name = "mDFquery"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingRTF
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = False
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End With
End Sub







Edité par mahelnawe le 03/03/2012 15:41:32
Hors Ligne
 Rapport   Haut 

« 1 ... 8 9 10 11