Forums XLPages

Tous les messages (Samuel59)

« 1 2 3 4 »
Re: interdiction de turf.fr
#11
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 14-03-2012 19h57
Citation :
myDearFriend! a écrit : Bonjour,

Le Webmaster te salue bien et te remercie pour ta compréhension.

Cordialement,


il faut pas vous méprendre pour le honteux et le grand n'importe quoi je m'adréssé a Turf.fr car l'interdiction viens de lui est non pas de vous!

Cordialement
Hors Ligne
 Rapport   Haut 

interdiction de turf.fr
#12
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 14-03-2012 19h20
bonjour a tous ,
comme beaucoup d'entre vous j'ai vu l'infos du web master concernant l'interdiction de turf.fr sur l'importation de donnés via excel
JE SUIS SCANDALISE CEST HONTEUX
c'est d'autant plus triste sue le super travail d Myta ne sert plus a rien j'ai tester son fichier aujourd'hui et plus rien ne fonctionne!!!!!

vraiment du grand n'importe quoi
Hors Ligne
 Rapport   Haut 

Re: convertir Cotes
#13
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 12-03-2012 13h24
Bonjour le forum,
Bonjour Myta,
est ce qu'il serais possible de modifier ce code:

Private Sub CommandButton2_Click()
'Bouton Mise à jour des Cotes
Dim Cel As Range

ActiveSheet.TextBox1.Visible = True

With Sheets("ReqDate")
  For Each Cel In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    If ComboBox1 = Cel And Cel.Offset(, 2) = Trim(Split(ComboBox2, " - ")(0)) Then
    Call Get_CourseCotes(Cel.Hyperlinks(1).Address)
    End If
  Next Cel
End With

Call CopierCotes
ActiveSheet.TextBox1.Visible = False

End Sub
pour le mettre dans un module comme ceci:

Sub importcotes()

'
'Bouton Mise à jour des Cotes
Dim Cel As Range

ActiveSheet.TextBox1.Visible = True

With Sheets("ReqDate")
  For Each Cel In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    If ComboBox1 = Cel And Cel.Offset(, 2) = Trim(Split(ComboBox2, " - ")(0)) Then
    Call Get_CourseCotes(Cel.Hyperlinks(1).Address)
    End If
  Next Cel
End With

Call CopierCotes
'ActiveSheet.TextBox1.Visible = False

End Sub
Hors Ligne
 Rapport   Haut 

Re: convertir Cotes
#14
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 11-03-2012 16h13
Citation :
Mytå a écrit : 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å

Bonjour Myta ,
Oui biensur j'utilise ta version
et  la modif fonctionne impecable et moin compliqué qu'avec des formules !!
par contre Myta est ce possible de faire ça en partant biensur de tes modules

sub Essai

call private sub commandbutton2_click ()

End sub

Merci Beaucoup Myta
Samuel
Hors Ligne
 Rapport   Haut 

Re: convertir Cotes
#15
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 11-03-2012 12h15
Re bonjour a tous,

Bon pour la convertion des cotes j'ai réusit a créer une petit formule qui fonctionne impec donc résolu!

par contre j'aurais une autre question a vous demander
est ce qu'il est possible de faire un call avec un:
Private sub commandbutton2_click()
comme ceci:

sub Essai

call private sub commandbutton2_click ()

End sub

Merci Beaucoup
Hors Ligne
 Rapport   Haut 

Re: convertir Cotes
#16
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 11-03-2012 11h22
Bonjour a tout le forum,


bonjour JC24,Jean-Marie,
J'avait pensé a cette méthode mais le souci c'est que je vais devoir la refaire a chaque importation
C'est pourquoi je voulais voir si il y avait pas une autre solution avec une formule ou une macro biensur si il y a pas d'autre solution je ferais comme ça mais bon..

dans tout les cas je vous remerci de vous intéréssé a ma demande.

Samuel


 
Hors Ligne
 Rapport   Haut 

convertir Cotes
#17
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 10-03-2012 17h58
Bonjour a tous,

Voila j'ai un petit souci a vous soumettre avec un format de chiffres
que je voudrais convertir le format a convertir et le suivant:
il sagit des cotes turf.fr importer dans excel car une fois copier dans un onglet excel il s'affiche comme ceci par exemple 9/1 et je voudrais si vous le voulez bien le convertir en chiffre 9 tout cour
mais pour que ce soit plus claire je vous est mis un exemple
donc si vous voulez bien y jeter un petit coup d'oeil

je vous en remerci beaucoup

Samuel

Pièce jointe:
zip convertir cotes.zip   [ Taille: 11.44 Ko - Téléchargements: 498 ]
Hors Ligne
 Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#18
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 09-03-2012 16h07
Citation :
Mytå a écrit : 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å

Bon c'est plus la peine que je met ma formule alors
Hors Ligne
 Rapport   Haut 

Re: Récupération arrivées et rapports
#19
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 09-03-2012 15h31
Citation :
Mytå a écrit : Re le forum

Samuel, pour empêcher d'effacer les formules en colonnes V de la feuilles "Courses"

-Dans le module de la feuille, 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å




Bonjour Myta,
Je te Remerci Beaucoup!!!
Et encore Super Travail!!
bien Cordialement
Samuel59
Hors Ligne
 Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#20
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 09-03-2012 15h24
Citation :
warmaster a écrit : Je t'ai envoyé un message privé avec mon mail.
mais as tu essayé de purger la liste des courses avant de compresser, hier aussi mon fichier etait trops gros et en purgeant la liste cela a suffit a considerablement diminuer la taille du fichier...

En tout cas merci.


Bonjour Warmaster,
Oui je les reçu et je suis en train voir avec Myta
pour que son code n'efface pas les formules a partir de la colonne v dans l'onglet courses parce que pour faire apparaitre les chevaux reperes il faut mettre la formules dans cette onglet mais comme le code de Myta efface tout il efface aussi les formules pour le reperes des chevaux une fois trouver la solution c'est yper simple a faire pour ta demande!!

Cordialement
Hors Ligne
 Rapport   Haut 

« 1 2 3 4 »