bonjour,
j'aimerais creer une macro qui me permet de calculer la corelation:
-soit pour l'année passée , i faut donc que je selectionne les 52 dernieres lignes de mon tableau (ce que j'ai du mal a faire...)
- soit entre 2 dates souhaitées
j'ai redigé un code mais plusieurs chose ne fonctionne pas , 1)je n'arrive pas a selectionner les 52 dernieres lignes, 2) quand j'essaye de Set le range j'ai une erreur d'objet...et 3) une erreur apparait egalement lors de la fonction Vlookup
est-ce que quelqu'un pourrait me donner un coup de main s'il vous plait?
PS: soyez indulgent je suis novice en VBA..
je colle le code ici, malheureusement je n'arrive pas a vous joindre le fichier ( il y a marqué service non disponible)
Sub test()
Dim rgn As Range
Dim Q As String
Dim D1 As Date
Dim D2 As Date
Q = InputBox("do you want the correl for last year? Yes or no")
Q = UCase(Q)
If Q = "YES" Then
Set rgn = Sheets(1).Range("B1048576").End(xlUp).Resize(-52, 29)
Else
D1 = InputBox("enter start date for correl")
D2 = InputBox("enter end date for correl")
cellD1 = Application.WorksheetFunction.VLookup(D1, Sheets(1).Cells, 1, False)
cellD2 = Application.WorksheetFunction.VLookup(D2, Sheets(1).Cells, 1, False)
Set rgn = Sheets(1).Range(cellD1, cellD2).Offset(0, 1).EntireRow
End If
'add sheet for correl matrix
Sheets.Add after:=Worksheets(1)
'correl matrix calculation thanks to data analisis tool pack
Application.Run "ATPVBAEN.XLAM!Mcorrel", rgn _
, Sheets(2).Range("$A$1"), "C", False
End Sub