MACRO : Formule ne s'étend pas

[Alex74330]

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 :

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

 

[mutzik]

Re : MACRO : Formule ne s'étend pas

bonjour,

un fichier nous aiderait beaucoup plus ...
sinon met en commentaire 'on error resume next sinon tu ne verras jamais s'il y a et ou se situe l'erreur

 

[Alex74330]

Re : MACRO : Formule ne s'étend pas

Bonjour,

Merci pour votre aide !
L'erreur vient de

 Range(cell.Offset(1, 1).Address).AutoFill Destination:=Range(Cells(2, cell.Offset(0, 1).Column), Cells(derligne, cell.Offset(0, 1).Column))

Il m'est difficile de creer un fichier test, est ce obligatoire pour la résolution de ce problème ?