[ Resolu par Job75 Merci ] Faire ressortir les doublons de deux classement et..???

[Guido]

Bonsoir le Forum

Bon vœux a Toutes, Tous.

Dans le fichier ci dessous j'ai des plages avec 2 sélections, et j'aimerais faires ressortir les six premiers

de chaque plages avec leurs valeurs,et ensuite faire ressortir les doublons .

Ces doublons seront classé selon la valeurs totales des deux sélections,

Un texte en VBA serait l'idéal pour chaque Pages et les max 9 tableaux...de cette même page

je ferais le bouton de la macro.

Merci d'avance

Guido

 

[Guido]

Re

Le Forum

J'ai trouvé le VBA pour évité le 2 em klike

est tout est OK

Merci

Bonne Nuit

Guido

 

[JBARBE]

Bonjour à tous,
Un probléme d'URL se pose !
Le message "message systéme " (index_payant.php) apparaît lors du clic sur " télécharger le fichier du jour "
En cliquant sur le bouton "Copier Prono " j'ai un bug !!!!
Bonne journée à vous tous et Bonne chance pour les joueurs !

 

[JBARBE]

Bonsoir à tous,
Problème réglé :
Il ne faut pas utiliser le fichier avant 10 h 00
bonne nuit !

 

[Guido]

Bonsoir à tous,

Problème réglé :

Re

Il ne faut " PAS " utiliser le fichier avant 10 h 00

Bonne nuit

Guido

 

[job75]

Bonjour à tous,

Bah à 9h49 je n'ai pas eu de problème !

Bonne journée.

 

[JBARBE]

Bonjour à tous,

Bah à 9h49 je n'ai pas eu de problème !

Bonne journée.

Bonjour à tous, Bonjour Job75,
Je précise que j'ai fait le test vers 8 h 00 !
Ne pouvons t'on pas modifier dans ce cas cette macro :

Private Sub CButUpload_Click()
'Ancienne méthodeaccès au site WEB
'ActiveWorkbook.FollowHyperlink "http://trading-courses.ovh/main_root/logiciel/courses.php"
'
'Méthode maintenant utilisée
'http://trading-courses.ovh/main_root/download_center/index_payant.php?excel-24-11-2016.xlsx
  Dim Wb As Workbook
  Set Wb = ThisWorkbook
  Dim Heure As String
  Dim rep$
  If Time < "10:00:00" Then
  rep = MsgBox("Il est " & Time & vbCrLf & _
  "Vous ne pouvez pas Télécharger avant 10 h 00 ? ", vbCritical, "Heure trop tôt")
  Exit Sub
  End If
  Workbooks.Open Filename:="http://trading-courses.ovh/main_root/download_center/index_payant.php?excel-" _
  & Format(Now, "dd-mm-yyyy") & ".xlsx"
  Wb.Activate
  Set Wb = Nothing
  Sheets("Menu").[H4] = "OK"
End Sub

D'autre part j'ai ajouté cette ligne dans la feuille "menu" et macro "NOUVELLE JOURNEE"

Sheets("Menu").Range("H3:H4,H8:H9,H13:H14,H18:I19,H23:H24,H28:H29,H33:I34").ClearContents

Enfin il y a un problème dans les feuilles et à partir de OVER2 !
il y a =Pronos!D23 il faut =Pronos ! D29 etc...
J'ai fait le nécessaire jusqu'à OVER5 !!

Bonne journée !

 

[JBARBE]

Re,
pour la macro "NOUVELLE JOURNEE" il est plus convenable de remplacer la ligne précédente par cette ligne :

Sheets("Menu").Range("H4,H9,H14,H19:I19,I18,H24,H29,H34:I34,I33").ClearContents

Bonne soirée !

 

[JBARBE]

Bonjour à tous,
Le fichier terminé et analysé pour les courses du 09/01/2017
Bonne journée !

 

[JBARBE]

Re,
Fichier préparé pour les courses du 10/01/2017
J'ai ajouté un bouton "mise en place des BINGO" que j'avais oublié !
Bonne journée !