Etendre une formule jusqu'en bas du tableau

Question

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.

la formule ne s’étend pas jusqu’à la fin de la colonne D.

pour info le nbe de lignes de mon tableau peu varier en plus ou en moins

voici ma macro 

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

Answer 1

Bonsoir Franck-,

merci pour votre reponse.

j’essayerai mais la lettre D ou B dans la solution que vous proposez ne correspond pas à la colonne ?

Avec votre code existant, la macro entrera la formule spécifiée dans la cellule D2 et copiera la formule jusqu'à la dernière cellule non vide de la colonne D. Si toutes les cellules de la colonne D après D2 sont vides, la formule ne sera entrée que dans cellule D2 - comme vous l'avez découvert!

Avec mon amendement proposé, le code attribue à la variable DernLigne le numéro de ligne de la dernière cellule non vide dans la colonne B et entrera la formule exigée dans chaque cellule dans la colonne D de D2 vers le bas jusqu'à la ligne DernLigne. 

Essayez !

===

Regards,

Norman

Answer 2

Bonjour Franck-,

Effectivement ça fonctionne très bien !

Merci encore et très bonne journée !

Je vous remercie pour le gentil retour.

Bonne journée !

===

Regards,

Norman

Answer 3

Bonjour Norman,

Effectivement ça fonctionne très bien !

Merci encore et très bonne journée !

Answer 4

Bonsoir Norman,

merci pour votre reponse.

j’essayerai mais la lettre D ou B dans la solution que vous proposez ne correspond pas à la colonne ?

merci pour votre aide

Answer 5

Bonsoir Franck-,

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.

la formule ne s’étend pas jusqu’à la fin de la colonne D.

pour info le nbe de lignes de mon tableau peu varier en plus ou en moins

voici ma macro 

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

Essaie de remplacer

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

par:

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

===

Regards,

Norman