Discussion :

[franckb74]

Bonjour,

J'ai trouvé cette macro pour étendre une formule dans le feuille "Données triées" jusqu'en bas de la colonne D depuis la cellule D2 mais seule la cellule D2 est créée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub etendreformule()
    Dim DernLigne As Long
    DernLigne = Range("D" & Rows.Count).End(xlUp).Row
 
    With Sheets("Données triées")
        .Range("D2").FormulaR1C1 = "=RC[-1] & "" "" & RC[-2]"
        .Range("D2").AutoFill .Range("D2:D" & DernLigne)
    End With
End Sub

Merci pour votre aide

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      .Range("D2:D" & DernLigne).FormulaR1C1 = "=RC[-1] & "" "" & RC[-2]"

suffit mais comme déjà dit ailleurs, travailler en tableau structuré (listobject) évite cela car les formules et les formats se recopient automatiquement sur les lignes utilisées, une fois définis sur la 1ère ligne de données...

[Menhir]

seule la cellule D2 est créée

Que contiennent les cellules en dessous de D2 ?
Si elles sont vides (ce qui serait logique pour des cellules à remplir), la ligne DernLigne = Range("D" & Rows.Count).End(xlUp).Row va trouver D2, donc l'AutoFill remplira jusqu'à D2.

Essaye plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DernLigne = ActiveSheet.UsedRange.Rows.Count

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DernLigne = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

[franckb74]

En fait dans mon code il y avait juste une erreur il fallait remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DernLigne = Range("D" & Rows.Count).End(xlUp).Row

Par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DernLigne = Range("B" & Rows.Count).End(xlUp).Row

Afin qu'il vérifie compte bien le nombre de ligne de la colonne B pour étendre la formule au même nbe de ligne pour la colonne D