Macro Recopier les formules de la ligne 3 des cellules H3:BM3 jusqu'à la ligne 163

[Broch002]

Bonjour,
Je cherche à recopier dans un classeur, comportant des "rechercheV" de la cellule H3 à la BM3 de la ligne 3 vers le bas, jusqu’à la ligne 163
J'ai ce code, mais il est en erreur (en rouge)

Dim DerLig As Long
With Worksheets("Feuil1")
DerLig = .Range("C65536").End(xlUp).Row
Range("H3:BM163" & DerLig).FillDown
End With
End Sub

La code fonctionne pour une seule colonne, mais pas pour plusieurs.

Merci de votre aide.

Broch002😕

 

[titiborregan5]

Re : Macro Recopier les formules de la ligne 3 des cellules H3:BM3 jusqu'à la ligne 1

Bonjour broch, le forum,

je ne connais pas cette fonction filldown, mais il me semble qu'il y a un truc étrange..
ce ne serait pas plutôt range("h3:bm"&DerLig).filldown ??

A+

 

[JBARBE]

Re : Macro Recopier les formules de la ligne 3 des cellules H3:BM3 jusqu'à la ligne 1

Bonjour à tous,

Essai ceci :

Sub essai()
With Worksheets("Feuil1")
Range("H3:BM163").FillDown
End With
End Sub

bonne journée

 

[Broch002]

Re : Macro Recopier les formules de la ligne 3 des cellules H3:BM3 jusqu'à la ligne 1

Bonjour broch, le forum,

je ne connais pas cette fonction filldown, mais il me semble qu'il y a un truc étrange..
ce ne serait pas plutôt range("h3:bm"&DerLig).filldown ??

A+

Bonjour,

La modification du code fonctionne, mais je dois limiter la copie à la ligne 163.

Merci d'avance.

Broch002

 

[Efgé]

Re : Macro Recopier les formules de la ligne 3 des cellules H3:BM3 jusqu'à la ligne 1

Bonjour Broch002, titiborregan5, JBARBE

Une proposition:

Sub test()
Range("$H$3:$BM$163").FormulaLocal = Range("$H$3:$BM$3").FormulaLocal
End Sub

Cordialement

 

[Efgé]

Re : Macro Recopier les formules de la ligne 3 des cellules H3:BM3 jusqu'à la ligne 1

Re
Ou comme ceci, si il faut choisir entre la ligne 163 et la dernière ligne remplie en C :

Sub test()
Dim DerLig As Long
With Worksheets("Feuil1")
    DerLig = Application.WorksheetFunction.Min(.Range("C65536").End(xlUp).Row, 163)
    DerLig = Application.WorksheetFunction.Max(DerLig, 3) ' si la colonne C est vide
    .Range("$H$3:$BM$" & DerLig).FormulaLocal = .Range("$H$3:$BM$3").FormulaLocal
End With
End Sub

Cordialement