Discussion :

[kernel57]

Bonsoir à tous !
J'aurais besoin de copier le contenu d'une formule située dans une cellule (E6) sur toutes les cellules de la ligne (y compris après insertion éventuelle ultérieure d'une colonne)
J'ai utilisé la méthode Selection, Selection.End(xltoright)).Select mais cela ne marche pas à tous les coups.

Merci

[leroissejp]

Bonsoir,
Ce code suppose que la cellule e6 contient une formume.

Code :

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

1
2
3
4
5
6
 
Sub InsereFormule()
    Range("E6").Select
    Selection.AutoFill Destination:=Range("E6:IU6"), Type:=xlFillDefault
    Range("E6").Select
End Sub

Evidement, si tu insères une ligne avant la ligne 6, la macro n'est plus bonne car elle deviendra alors la ligne 7.

jpleroisse

[kernel57]

MErci beaucoup ca me sauve la mise cette affaire !!!