Discussion :

[Crimsim]

Bonjour,

D'abord merci d'avance pour l'aide que vous allez m'apporter.

Je souhaite calculer le rendement pour différentes actions. Je dispose donc d'une feuille avec les différent cours.
Une colonne représente une action, chaque ligne une date.

La formule pour calculer le rendement d'une action à la date t est la suivante rdt = 100 * log (prix en t / prix en t-1)

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub calcul_rendement()
 
Dim i As Integer, j As Integer, P As Object, R As Object
 
Set P = Range("Feuil1!H2:Feuil!1AF2141")
Set R = Range("Feuil2!H2:Feuil2!AF2141")
 
For i = 1 To 2140
For j = 1 To 25
R.Cells(i + 1, j) = 100 * Log((P.Cells(i + 1, j)) / (P.Cells(i, j)))
Next j
Next i
 
End Sub

Il fonctionne mais j'aimerai le rendre dynamique. C'est à dire que si je rajoute une action donc une colonne cela soit pris en compte c'est à dire que P et R sont redimensionnés ainsi que J.
Là j'ai 25 actions, mais si une autre personne en rajoute une. Je souhaiterai que J = 1 to 26 et P/R vont de H2:AG2141.
J'ai pensé à demander à l'utilisateur de sélectionner la plage mais elle est très grande et c'est pas très pratique. Est-ce possible de dire que P va de H2 et s'arrête au moment où il n'y a plus de valeur sur la ligne et la colonne ?

Je sais pas si ce que je demande est faisable. Si vous avez des solutions à me proposer pour me mettre sur la voie.

Merci

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim derl as long
Derl=sheets("Feuil2").usedrange.rows.count
 
Range("Feuil2!H2:Feuil2!Af" & derl)

[Kimy_Ire]

Bonjour Crimsim,

Sur Google (par exemple), taper "dernière lignes [ou colonne] non-vide VBA" te donnerait la solution !
Tu trouverais (pour toutes les versions d'Excel) ceci : num_dern_col = Cells.Find("*", , , , xlByColumns, xlPrevious).Column.

Ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Worksheets("Ma Feuille")
    For i = 1 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 'Boucle de i = 1 au numéro de la dernière ligne non-vide
        For j = 1 To .Rows(1).Find("*", , , , xlByColumns, xlPrevious).Column 'Boucle de j = 1 au numéro de la dernière colonne non-vide
            'la suite

/!\ L'instruction proposée renvoi le numéro de la dernière ligne.
En fonction du code, la dernière occurrence passe parfois sur la cellule vide, juste après la valeur.
En bref, ceci est parfois recommandé : For j = 1 To .Rows(1).Find("*", , , , xlByColumns, xlPrevious).Column - 1.

A toi d'adapter !

Cordialement,
Kimy

EDIT : Désolé Robert, j'ai écris en même temps. ^^

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim derl as long
Set Plage=sheets("Feuil2").usedrange
 
Set Plage=Range(range("Feuil2!H2"),plage(Plage.rows.count,Plage.columns.count))
 
For i= 1  to plage.rows.count
For j =1 to plage.columns.cout
Next
Next

[geogeo70]

....Je souhaite calculer le rendement pour différentes actions. Je dispose donc d'une feuille avec les différent cours.
Une colonne représente une action, chaque ligne une date.

La formule pour calculer le rendement d'une action à la date t est la suivante rdt = 100 * log (prix en t / prix en t-1).....


.... Est-ce possible de dire que P va de H2 et s'arrête au moment où il n'y a plus de valeur sur la ligne et la colonne ?

bonsoir,

je vous fais cette proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub calcul_rendement()
 
Dim i As Integer, j As Integer, P As Range, R As Range
Dim ws As Worksheet, ws2 As Worksheet
 
Set ws = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
droite = ws.Cells(2, 10000).End(xlToLeft).Column
bas = ws.Cells(64000, 8).End(xlUp).Row
 
Set P = ws.Range(ws.Cells(2, 8), ws.Cells(bas, droite))
Set R = ws2.Range(ws2.Cells(2, 8), ws2.Cells(bas, droite))
 
For i = 1 To bas
    For j = 1 To droite
        R.Cells(i + 1, j) = 100 * Log((P.Cells(i + 1, j)) / (P.Cells(i, j)))
    Next j
Next i
 
End Sub

Droite et bas renseignent sur les derniers éléments des plages.
Je ne peux vérifier la suite ça me paraît étonnant de commencer à 1 en ligne et colonne...!

a+

geogeo70

[Crimsim]

Merci pour vos réponses !

J'ai corrigé mon code suite à vos suggestions et il fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub rdt()
 
Dim i As Integer, j As Integer, P As Object
Dim derl As Integer, derc As Integer
 
derl = Sheets("data").UsedRange.Rows.Count - 1
derc = Sheets("data").UsedRange.Columns.Count
 
Set P = Range(Sheets("resultats").Cells(1, 1), Sheets("resultats").Cells(derl, derc))
 
With Worksheets("data")
    For i = 1 To derl
        For j = 1 To derc
           P.Cells(i, j) = 100 * Log((Cells(i + 1, j)) / (Cells(i, j)))
        Next j
    Next i
End With
 
End Sub

Encore merci !