Macro pour tirer des formules vers le bas

re-Bonsoir

je bute sur un problème, je souhaiterais dans ma feuil1, via un clic macro, pouvoir tirer vers le bas les formules se trouvant en K5 L5 et M5.

Je souhaiterais que ça tire jusqu’à la ligne de la dernière cellule complétée dans ma colonne H.

Dans mon exemple, suite au clic macro, les formules en K5 L5 et M5 devraient s’étirer jusqu'à la ligne 40.

Si la derniere cellule complétée de la colonne H avait été sur la ligne 100 il faudrait qu'en cliquant sur la macro cela tire les formules jusqu'en K100 L100 et M100.

Si quelqu'un pouvait m'apporter son aide je lui en serait reconnaissant.

Par avance merci

Eno

1'464matrice-formule.xlsm (18.04 Ko)

Bonjour,

Sub Macro1()
Dim LastRw As Long
LastRw = Sheets("Feuil1").Cells(Rows.Count, 8).End(xlUp).Row
Range("K5:M" & LastRw).FillDown
End Sub

Bonjour,

Ca marche parfaitement Merci pour ton aide!

Bonne journée

Bonjour et merci pour vos explications!

j'ai le même problème cependant, je veux tirer ma formule jusqu'à une année précise que je nomme "derannee", qui correspond au maximum des année présentes en colonne W dans le feuille ART39.

Ca donne ça:

Sub treso()

Dim derannee As Long

Dim i As Integer

derannee = Application.WorksheetFunction.Max(Worksheets("ART39").Range("w1:w" & Worksheets("ART39").Range("w65530").End(xlUp).Row)) 'détermine la derniere année de départ à la retraite

Worksheets("ART39").Range("w227").Value = derannee

et dans la feuille "treso PU", je veux tirer la formule de A à F jusqu'à "derannee" ce qui donne:

Worksheets("tréso PU").Range("A26:F26").Select

For i = Range("effet").Value + 1 To derannee

Selection.AutoFill Destination:=Range("A26:F37"), Type:=xlFillDefault

Range("A26:F37").Select

Next i

End Sub

Mais ca ne marche pas...

Bonjour,

Sub Macro1()
Dim LastRw As Long
LastRw = Sheets("Feuil1").Cells(Rows.Count, 8).End(xlUp).Row
Range("K5:M" & LastRw).FillDown
End Sub

Bonjour

Comment procéder svp pour le même cas si on veut que la macro tire uniquement pour la colonne K....Merci

Bonjour,

Sub Macro1()
Dim LastRw As Long
LastRw = Sheets("Feuil1").Cells(Rows.Count, 8).End(xlUp).Row
Range("K5:M" & LastRw).FillDown
End Sub

Bonjour

Comment procéder svp pour le même cas si on veut que la macro tire uniquement pour la colonne K....Merci

Bonsoir

comme ceci :

Sub Macro1()

Dim LastRw As Long

LastRw = Sheets("Feuil1").Cells(Rows.Count, 8).End(xlUp).Row

Range("K5:K" & LastRw).FillDown

End Sub

Merci beaucoup Eno83

Re

comment procéder pour appliquer le même code sur 3 feuilles nommées (DAT, SUIVI et AUDIT)..Merci bcp.

NB: je veux mettre le bouton de la macro dans une autre feuille (autres que celles contenant les données et les formules)

Bonjour anasimo, le forum,

à tester,

Sub Macro1()
Dim LastRw As Long, i As Integer, feuille
feuille = Array("DAT", "SUIVI", "AUDIT")
For i = LBound(feuille) To UBound(feuille)
    LastRw = Sheets(feuille(i)).Cells(Rows.Count, 8).End(xlUp).Row
    Sheets(feuille(i)).Range("K5:K" & LastRw).FillDown
Next i
End Sub

Merci beaucoup

Bonjour à tous,

Je souhaiterai savoir comment faire pour tirer une formule de gauche à droit, c'est-à-dire par ,exemple, j'ai une formule sur la cellule C5 je souhaiterai la faire passer à la cellule D5??

Merci d'avance.

Bonjour,

à tester,

Range("C5").AutoFill Destination:=Range("C5:D5"), Type:=xlFillDefault
Rechercher des sujets similaires à "macro tirer formules bas"