Macro Mise en forme

Bonjour,

Un petit problème ce pose à moi que je suis sur vous allez résoudre en un rien de temps!

J'ai une macro (ci-après), qui me sert à gagner du temps en reproduisant les mises en forme.

Malheureusement elle ne fonctionne que sur la feuille active mais je veux pouvoir la faire fonctionner seulement sur la feuille "Follow Up".

J'ai essayé pleins de façons différentes mais toutes sans succès.

Sub Macro1()

Dim derligne As Integer

derligne = Sheets("OI TechRequest").Range("A" & Rows.Count).End(xlUp).Row 'Definition de la dernière ligne de la colonne A'
    For i = 3 To derligne
        Rows("2:2").Select
        Selection.Copy
        Rows(i).Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
    Next
End Sub

J'ai énormément besoins de votre aide!

Merci d'avance,

FloBru

Bonjour,

Tu peux utiliser cette macro dans la feuille que tu désires ...

Sub Macro1()
Dim derligne As Integer
derligne = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row 'Definition de la dernière ligne de la colonne A'
   For i = 3 To derligne
        Rows("2:2").Copy
        Rows(i).PasteSpecial Paste:=xlPasteFormats
    Next i
Application.CutCopyMode = False
End Sub

En espèrant que cela t'aide ...

Re,

Merci pour ta macro elle est vraiment super bien, sais tu comment faire pour que depuis ma page de garde ou j'ai le petit bouton de la macro je puisse faire cette formule sur l'onglet "Follow Up"?

Encore merci,

FloBru

Bonjour,

Pour aller au plus simple ... il te suffit d'insérer comme toute première ligne de la macro :

Sheeets("Follow Up").Select

En espèrant que cela te dépanne ...

Re,

Ah mais tu es un géni!

J'ai cherché pleins de truc plus fous les uns que les autres et la solution été toute simple!

Merci beaucoup!

FloBru

Content que cela puisse t'aider ...

Merci ... pour tes remerciements ...