Discussion :

[jeandani2012]

bonjour,

j'ai un gros fichier avec un centaine de colonne et chaque colonne contient une formule à recopier vers le bas. et le nombre de ligne varie chaque fois.
j'aimerai ecrire un code qui permet de recopie toute les formules vers le bas en fonction du nombre de ligne.

j'ai essayé avec un enregistrement et ça m'a généré le code ci dessous qui ne marche pas lorsque je l'execute même quand c'est executer sur la même plage:

les colonnes contenant les formules partent de O à CH mais elle ne contiennent pas tous des formules.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub testrecopieformule1()
'
' testrecopieformule1 Macro
' 
 
'
    Range("O6").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.AutoFill Destination:=Range("O6:CH251"), Type:=xlFillDefault
    Range("O6:CH251").Select
End Sub

[michoutri]

est ce que cela te convient?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub testrecopieformule1()
    Dim Cell1 As Range, Cell2 As Range, Plage
    Set Cell1 = Sheets(1).Range("o6")
    Set Cell2 = Cells(6, Range("IV5").End(xlToLeft).Column)
 
    Set Plage = Range(Cell1, Cell2)
    Plage.Select
 
    Selection.AutoFill Destination:=Range("O6:CH251"), Type:=xlFillDefault
    Range("O6:CH251").Select
End Sub