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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas