Bonjour,
Après modification de la mise en page de mon fichier excel, je ne parviens plus à étendre la formule et je ne comprends pas pourquoi. Le code insere la formule au bon endroit et la bonne formule mais je ne parviens vraiment pas à l'étirer.
J'ai donc pensé que vous pourriez me donner un petit coup de pouce.
Voici le code :
J'espère que vous pourrez répondre à mon problème.
Au plaisir,
Alexandre.
PS: Ma formule débute ligne 5
Après modification de la mise en page de mon fichier excel, je ne parviens plus à étendre la formule et je ne comprends pas pourquoi. Le code insere la formule au bon endroit et la bonne formule mais je ne parviens vraiment pas à l'étirer.
J'ai donc pensé que vous pourriez me donner un petit coup de pouce.
Voici le code :
Code:
Sub Copietask()
Dim cell As Range
Dim rng As Range
Dim nom As String
Dim derligne
With Application
.ScreenUpdating = False
.Calculation = xlManual
End With
derligne = Sheets("REF").Cells(Rows.Count, 10).End(xlUp).Row
For Each cell In Range("A4:AZ4")
On Error Resume Next
If Left(cell.Value, 5) = "taskw" And cell.Offset(0, 1).Value = "TOP RO" And cell.Value <> Sheets(Sheets.Count).Name Then
Debug.Print cell.Value
Columns(cell.Offset(0, 1).Column).EntireColumn.Insert
Sheets("REF").Range(cell.Offset(0, 1).Address).Value = Sheets(Sheets.Count).Name
Range(cell.Offset(1, 1).Address).Formula = _
"=IFERROR(VLOOKUP(RC9," & Sheets(Sheets.Count).Name & "!R1C1:R483C8,8,FALSE),""Non existant"")"
Range(cell.Offset(1, 1).Address).AutoFill Destination:=Range(Cells(2, cell.Offset(0, 1).Column), Cells(derligne, cell.Offset(0, 1).Column))
End If
Next cell
With Application
.ScreenUpdating = True
.Calculation = xlAutomatic
End With
End Sub
J'espère que vous pourrez répondre à mon problème.
Au plaisir,
Alexandre.
PS: Ma formule débute ligne 5