MACRO : Formule ne s'étend pas

  • Initiateur de la discussion Initiateur de la discussion Alex74330
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Alex74330

XLDnaute Nouveau
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 :
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
 
Re : MACRO : Formule ne s'étend pas

Bonjour,

Merci pour votre aide !
L'erreur vient de
Code:
 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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
5
Affichages
235
Réponses
4
Affichages
177
Réponses
1
Affichages
520
Réponses
0
Affichages
459
Retour