Bonjour/Re Forumiens
Voila jai eu beau fouiller le net toute la journee... impossible de faire marcher ceci :
Sachant que l'avant derniere ligne en commentaire elle marche mais ne me fait que la premiere ligne
Merci d'avance.
Voila jai eu beau fouiller le net toute la journee... impossible de faire marcher ceci :
HTML:
Sub Copie()
'
'On selectionne la cellule B2 et l'on copie colle la formule sur les lignes/colonnes ci dessous'
'
Dim LastCell
Dim j, LastLine
Dim Lettre As String
'On definit derniere ligne derniere colonne'
Set LastCell = Cells.Find("*", , , , xlByColumns, xlPrevious).Columns
j = LastCell.Column
Lettre = IIf(j > 26, Chr(64 + j \ 26) & Chr(64 + j Mod 26), Chr(64 + j))
LastLine = Range("A65536").End(xlUp).Row
Sheets("Sheet2").Activate
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IF(MOD(COLUMNS(R[-1]C2:R[-1]C),ROUND(Sheet1!RC7,0))=0,(Sheet1!RC8+Sheet1!RC9),0)"
'Selection.AutoFill Destination:=Range("B2:" & Lettre & "2"), Type:=xlFillDefault'
Range("B2").AutoFill Destination:=Range("B2:" & Lettre & LastLine)
Sachant que l'avant derniere ligne en commentaire elle marche mais ne me fait que la premiere ligne
Merci d'avance.