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

Broch002

XLDnaute Occasionnel
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:confused:
 
Dernière édition:

titiborregan5

XLDnaute Accro
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

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

Bonjour à tous,

Essai ceci :

Code:
Sub essai()
With Worksheets("Feuil1")
Range("H3:BM163").FillDown
End With
End Sub
bonne journée
 
Dernière édition:

Broch002

XLDnaute Occasionnel
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é

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

Bonjour Broch002, titiborregan5, JBARBE

Une proposition:
VB:
Sub test()
Range("$H$3:$BM$163").FormulaLocal = Range("$H$3:$BM$3").FormulaLocal
End Sub
Cordialement
 
Dernière édition:

Efgé

XLDnaute Barbatruc
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 :
VB:
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
 

Discussions similaires


Haut Bas