Formule à appliquer sur une colonne Résolu/Fermé

Question

Bonjour,

Grace au forum j'ai un code pour effectuer un filtre élaboré qui fonctionne bien. J'ai voulu, à la suite de ce code, rajouter un code qui me permette d'effectuer un calcul dans la colonne K à partir des données du filtre (qui sont copier de la colonne B à J). Pb ce code ne fonctionne pas ... 
La formule est écrite dans la cellule K2 et doit s'appliquer de la cellule K7 jusqu'à la dernière ligne du filtre. 
Sub FiltreAvance()Dim DL As IntegerDim DerLig As IntegerDL = Sheets(1).Cells(Application.Rows.Count, 4).End(xlUp).RowDerLig = Sheets(2).Cells(Application.Rows.Count, 2).End(xlUp).RowWith Sheets(1)    .Select    .Range(Cells(4, 1), Cells(DL, 9)).SelectEnd WithSelection.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(2).[B1:B2], CopyToRange:=Sheets(2).[B6], Unique:=FalseWith Sheets(2)    .Range("K7" & DerLig).FormulaR1C1 = Range("K2").FormulaR1C1End WithEnd Sub

Quelqu'un peut m'aider ? 

Merci d'avance pour votre aide.

Frenchie83 · Answer

Bonjour
il manque la lettre de la colonne de fin  "K7:K" & DerLig
 .Range("K7" & DerLig).FormulaR1C1 = Range("K2").FormulaR1C1

De plus vous recherchez la dernière ligne du tableau (DerLig) de la feuille 2 construit à partir du filtre élaboré, avant même d'avoir construit le tableau, cette ligne doit se trouver après la construction du tableau.

Sub FiltreAvance()
    Dim DL As Integer
    Dim DerLig As Integer
    DL = Sheets(1).Cells(Application.Rows.Count, 4).End(xlUp).Row
    With Sheets(1)
        .Select
        .Range(Cells(4, 1), Cells(DL, 9)).Select
    End With
    Selection.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(2).[B1:B2], CopyToRange:=Sheets(2).[B6], Unique:=False
    DerLig = Sheets(2).Cells(Application.Rows.Count, 2).End(xlUp).Row
    Sheets(2).Select
    Range("K7:K" & DerLig).FormulaR1C1 = Range("K2").FormulaR1C1
End Sub
Cdlt

Formule à appliquer sur une colonne

1 réponse

Discussions similaires