Nous souhaitons attirer l'attention des contributeurs de nos forums que la législation française requiert que vous indiquiez si vous avez une position ouverte dans un instrument sur lequel vous émettez une opinion. Veuillez respecter cette recommandation faite par l’AMF (Autorité des Marchés Financiers) . Pour plus d'information : lire ce PDF.
la bougie daily du dow cash est vilaine comme tout, manquerait plus que le MACD se retourne là-dessus
Pour l'anecdote, (c'est tellement rare), le CAC caracole en tête des indices depuis hier
Je viens de trouver une macro géniale pour éliminer les lignes et colonnes superflues dans les fichiers Excel : je l'ai faite tourner sur mes fichiers sans soucis et vérifié ensuite avec le chemin pour trouver la dernière cellule
Donc au cas ou :
Sub NettoieEtDerniereCellule()
' Laurent Longre 2000
Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String
On Error Resume Next
Calc = Application.Calculation
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = False
End With
For Each Sht In Worksheets
If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then
Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
If Not DCell Is Nothing Then
Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear
Set DCell = Nothing
Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
If Not DCell Is Nothing Then _
Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear
End If
Rien = Sht.UsedRange.Address
End If
Next Sht
Application.StatusBar = False
Application.Calculation = Calc
End Sub
" Le plus grand dérèglement de l'esprit consiste à voir les choses telles qu'on le veut et non pas telles qu'elles sont " - Bossuet
----
trade what you see, not what you think, motherfucker !
----
“C’est pas parce qu’ils sont nombreux à avoir tort qu’ils ont raison.” - Coluche
Commentaire