Bonjour,
je m'en remet de nouveau à vous (remercie à la communauté pour les autres fois) pour avancer sur un point mort.
Je dispose actuellement de deux tableaux, l'un étant imbriqué dans l'autre. Ma première étape a été de coloriser les données du tableau 2 (appelé Stoxx Europe 600 dans le fichier) dans le tableau 1 (appelé 1 mois av date d'annonce) dans Feuil1.
Dans ce tableau 1, vous pouvez voir sur la colonne J un "ranking". Je voudrai extraire toutes les valeurs bleus (donc les données du deuxième tableau présent dans le premier) au delà de 600 du classement (ranking) en prenant leur nom, ticker et le rang (colonne B, C et J) puis les mettre dans la feuille "Tableau" dans la partie "Sortie" en H, I et J.
Puis, extraire les valeurs noirs du tableau 1 qui sont en dessous de 600 dans la colonne ranking et effectuer le même raisonnement en les mettant dans la feuille "Tableau" dans la partie "Entrée".
Voici ce que j'ai pour l'instant :
je m'en remet de nouveau à vous (remercie à la communauté pour les autres fois) pour avancer sur un point mort.
Je dispose actuellement de deux tableaux, l'un étant imbriqué dans l'autre. Ma première étape a été de coloriser les données du tableau 2 (appelé Stoxx Europe 600 dans le fichier) dans le tableau 1 (appelé 1 mois av date d'annonce) dans Feuil1.
Dans ce tableau 1, vous pouvez voir sur la colonne J un "ranking". Je voudrai extraire toutes les valeurs bleus (donc les données du deuxième tableau présent dans le premier) au delà de 600 du classement (ranking) en prenant leur nom, ticker et le rang (colonne B, C et J) puis les mettre dans la feuille "Tableau" dans la partie "Sortie" en H, I et J.
Puis, extraire les valeurs noirs du tableau 1 qui sont en dessous de 600 dans la colonne ranking et effectuer le même raisonnement en les mettant dans la feuille "Tableau" dans la partie "Entrée".
Voici ce que j'ai pour l'instant :
Code:
Option Explicit
Sub StoxxTMI()
Dim PlageStoxx600 As Range
Dim PlageStoxxTMI As Range
Dim CellStoxx600 As Range
Dim CellStoxxTMI As Range
With Worksheets("Feuil1")
Set PlageStoxx600 = .Range(.Cells(5, 14), .Cells(.Rows.Count, 14).End(xlUp))
Set PlageStoxxTMI = .Range(.Cells(5, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
With Worksheets("tableau")
.Range("b3:d" & Rows.Count).Clear
.Range("h3:j" & Rows.Count).Clear
End With
For Each CellStoxxTMI In PlageStoxxTMI
Set CellStoxx600 = PlageStoxx600.Find(CellStoxxTMI, , xlValues, xlWhole)
If Not CellStoxx600 Is Nothing Then
CellStoxxTMI.Resize(, 9).Font.ColorIndex = 5
Else
End If
Next CellStoxxTMI
End Sub
Sub shortcut()
Application.OnKey "^q", "StoxxTMI"