Copier le format par un macro

Bonjour à tous,

J'ai écris ce code pour copier le format de la ligne 2 jusqu'à la dernière ligne du tableau mais je ne sais pas comment me contenter de faire cette copie de format que sur les colonnes de A à O.

    With Sheets("RFW-MISP").Select
    derligne = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row 'Definition de la dernière ligne de la colonne A'
       For i = 2 To derligne
            Rows("2:2").Copy
            Rows(i).PasteSpecial Paste:=xlPasteFormats
        Next i

    Application.CutCopyMode = False
    End With

Pouvez vous m'aider?

Merci d'avance,

FloBru

Bonjour toutes et tous,

@ Flobru

et en mettant tout simplement comme ceci

Option Explicit
Sub copie()
With Sheets("RFW-MISP").Activate
Worksheets("RFW-MISP").Range("A2:j500").Copy Worksheets("RFW-MISP").Range("O2")
End With
Exit Sub
MsgBox "Fini!"
End Sub

crdlt,

André

Re,

Merci André pour ton aide, malheureusement ce n'est pas exactement ce que je cherche.

J'ai juste un format spécial sur mes différentes colonnes de la ligne 2 et je voudrais que quand je fais tourner ma macro, cela s'applique à toutes mes lignes (non-vides)

Merci d'avance,

FloBru

Bonjour FloBru, André,

Je te propose ce code VBA :

Option Explicit

Sub Essai()
  Dim derligne&: Worksheets("RFW-MISP").Select
  derligne = Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne de la colonne A
  If derligne < 3 Then Exit Sub 'sortie si pas d'autres lignes sous la ligne 2
  [A2:O2].Copy: Range("A3:O" & derligne).PasteSpecial -4122
  Application.CutCopyMode = False
End Sub

Merci de me donner ton avis.

dhany

Bonjour Dhany,

Super merci pour ta réponse, c'est exactement ce que je voulais.

Merci encore à André pour ton aide.

FloBru