AutoFill sur plusieurs colonnes

[TMS]

Bonjour,
J'utilise actuellement ce code :

Sub Recopie_Formules()
Dim DernLigne As Long
DernLigne = Worksheets("Rapport 1").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Rapport 1").Range("M2").AutoFill Destination:=Range("M2:M" & DernLigne)
End Sub

Comment modifier le code pour l'appliquer sur les colonnes de M à Z au lieu de l'appliquer que sur la colonne M ?
Merci par avance et bon appétit.

 

[Jacky67]

Bonjour,
J'utilise actuellement ce code :

Sub Recopie_Formules()
Dim DernLigne As Long
DernLigne = Worksheets("Rapport 1").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Rapport 1").Range("M2").AutoFill Destination:=Range("M2:M" & DernLigne)
End Sub

Comment modifier le code pour l'appliquer sur les colonnes de M à Z au lieu de l'appliquer que sur la colonne M ?
Merci par avance et bon appétit.

Bonjour,
Sans plus d'explications et sans classeur je dirais

Sub Recopie_Formules()
With Worksheets("Rapport 1")
  .Range("M2").AutoFill Destination:=.Range("M2:Z2")
End With
End Sub

 

[TMS]

Bonjour Jacky,
Merci pour ta réponse mais ton code ne donnait pas le résultat attendu.
En revanche, après analyse, j'ai pu corriger par moi-même comme suit :

Worksheets("Rapport 1").Range("M2:Z2").AutoFill Destination:=Range("M2:Z" & DernLigne)

Merci pour ton intervention et bon après midi.

 

[Jacky67]

Re..
Alors attention, si la feuille active n'est pas la feuille "Rapport 1", il y aura plantage.
Plutôt:

Sub Recopie_Formules()
Dim DernLigne As Long
With Worksheets("Rapport 1")
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
  .Range("M2:z2").AutoFill Destination:=.Range("M2:Z" & DernLigne)
End With
End Sub

 

[TMS]

Ok, merci pour l'avertissement.
Bonne soirée.

 

[Staple1600]

Bonsoir

Une autre façon de faire (sans autofill) 😉

Sub Recopie_Formules_SansAutofill()
Dim DernLigne As Long
With Worksheets("Rapport 1")
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
  .Range("M2:Z" & DernLigne).Formula = "=ADDRESS(ROW(),COLUMN(),4)"
  'remplacer la formule de test par la vraie formule
End With
End Sub

 

[TMS]

Bonjour Staple1600,
Merci pour cette alternative.
Bonne journée.