Multiple regression avec des séries non fixes
Résolu/Fermé
A voir également:
- Multiple regression avec des séries non fixes
- Liste déroulante choix multiple excel - Guide
- Presse papier multiple - Guide
- Canal+ series free - Guide
- Consommation xbox series x - Guide
- Retrouver ordinateur volé avec numéro de série - Guide
1 réponse
yg_be
Messages postés
22707
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 avril 2024
1 471
11 juil. 2018 à 21:32
11 juil. 2018 à 21:32
bonsoir, prenons d'abord le temps d'optimiser ton code de départ, il sera ensuite plus facile de le généraliser.
suggestion:
cela se comporte-il comme ton code de départ?
si oui, il suffit ensuite, je pense, de modifier la ligne 8.
suggestion:
Option Explicit Sub tt() Dim dest As Worksheet Dim source As Worksheet Dim dernlig As Long dernlig = 382 Set dest = ThisWorkbook.Sheets("Reg_taux_longs") Set source = ThisWorkbook.Sheets("Données") dest.Cells.ClearContents dest.Cells.Borders(xlDiagonalDown).LineStyle = xlNone dest.Cells.Borders(xlDiagonalUp).LineStyle = xlNone dest.Cells.Borders(xlEdgeLeft).LineStyle = xlNone dest.Cells.Borders(xlEdgeTop).LineStyle = xlNone dest.Cells.Borders(xlEdgeBottom).LineStyle = xlNone dest.Cells.Borders(xlEdgeRight).LineStyle = xlNone dest.Cells.Borders(xlInsideVertical).LineStyle = xlNone dest.Cells.Borders(xlInsideHorizontal).LineStyle = xlNone ' Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$C$5:$C$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$1:$I$18"), False, False, False, False, , False dest.Range("B1").FormulaR1C1 = "=Données!R[3]C[1]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$D$5:$D$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$20:$I$38"), False, False, False, False, , False dest.Range("B20").FormulaR1C1 = "=Données!R[-16]C[2]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$E$5:$E$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$40:$I$58"), False, False, False, False, , False dest.Range("B40").FormulaR1C1 = "=Données!R[-36]C[3]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$F$5:$F$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$60:$I$78"), False, False, False, False, , False dest.Range("B60").FormulaR1C1 = "=Données!R[-56]C[4]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$G$5:$G$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$80:$I$98"), False, False, False, False, , False dest.Range("B80").FormulaR1C1 = "=Données!R[-76]C[5]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$H$5:$H$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$100:$I$118"), False, False, False, False, , False dest.Range("B100").FormulaR1C1 = "=Données!R[-96]C[6]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$I$5:$I$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$120:$I$138"), False, False, False, False, , False Sheets("Reg_taux_longs").FormulaR1C1 = "=Données!R[-116]C[7]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$J$5:$J$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$140:$I$158"), False, False, False, False, , False dest.Range("B140").Select ActiveCell.FormulaR1C1 = "=Données!R[-136]C[8]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$K$5:$K$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$160:$I$178"), False, False, False, False, , False dest.Range("B160").FormulaR1C1 = "=Données!R[-156]C[9]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$L$5:$L$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$180:$I$198"), False, False, False, False, , False dest.Range("B180").FormulaR1C1 = "=Données!R[-176]C[10]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$M$5:$M$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$200:$I$218"), False, False, False, False, , False dest.Range("B200").FormulaR1C1 = "=Données!R[-196]C[11]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$N$65:$N$" & dernlig), _ source.Range("$B$65:$B$" & dernlig), False, False, , dest.Range("$A$220:$I$238"), False, False, False, False, , False dest.Range("B220").FormulaR1C1 = "=Données!R[-216]C[12]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$O$65:$O$" & dernlig), _ source.Range("$B$65:$B$" & dernlig), False, False, , dest.Range("$A$240:$I$258"), False, False, False, False, , False dest.Range("B240").FormulaR1C1 = "=Données!R[-236]C[13]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$P$173:$P$" & dernlig), _ source.Range("$B$173:$B$" & dernlig), False, False, , dest.Range("$A$260:$I$278"), False, False, False, False, , False dest.Range("B260").FormulaR1C1 = "=Données!R[-256]C[14]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$Q$65:$Q$" & dernlig), _ source.Range("$B$65:$B$" & dernlig), False, False, , dest.Range("$A$280:$I$298"), False, False, False, False, , False dest.Range("B280").FormulaR1C1 = "=Données!R[-276]C[15]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$R$5:$R$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$300:$I$318"), False, False, False, False, , False dest.Range("B300").FormulaR1C1 = "=Données!R[-296]C[16]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$S$5:$S$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$320:$I$338"), False, False, False, False, , False dest.Range("B320").FormulaR1C1 = "=Données!R[-316]C[17]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$T$65:$T$" & dernlig), _ source.Range("$B$65:$B$" & dernlig), False, False, , dest.Range("$A$340:$I$358"), False, False, False, False, , False dest.Range("B340").FormulaR1C1 = "=Données!R[-336]C[18]" Application.Run "ATPVBAEN.XLAM!Regress", source.Range("$U$5:$U$" & dernlig), _ source.Range("$B$5:$B$" & dernlig), False, False, , dest.Range("$A$360:$I$378"), False, False, False, False, , False dest.Range("B360").FormulaR1C1 = "=Données!R[-356]C[19]" End Sub
cela se comporte-il comme ton code de départ?
si oui, il suffit ensuite, je pense, de modifier la ligne 8.
12 juil. 2018 à 11:31
J'ai modifier la ligne 8 avec dernlig=Range("A" & Rows.Count).End(xlUp).Row. Mais je n'obtiens pas les résultats escomptés. et avec
With source.UsedRange
dernlig = .Rows.Count
End With
J'ai un message d'erreur...
12 juil. 2018 à 12:04
12 juil. 2018 à 19:49
13 juil. 2018 à 12:12