Ajouter ligne avec conservation mise en forme

Bonjour à tous,

J'espère que vous allez bien !

Dans le cadre de mon activité professionnelle, je suis 4 types d'actions via un tableau Excel (Management, Administratif, Recrutement et Business).

J'aimerai donc pouvoir ajouter des lignes à la suite de chacune de ces thématiques en conservant la mise en forme de la ligne précédente et en décalant vers le bas l'ensemble du tableau.

L'idéale serait d'avoir un bouton Macro pour le faire automatiquement.

Avez-vous des idées ?

Ci-joint mon document.

Merci d'avance pour votre aide !

FloBru

Salut,

J'espère que le fichier ci-joint corresponde à ta demande.

Il me semble inutile d'avoir un bouton afin de rajouter une ligne après ''Management".

Cordialement.

Salut Yvouille,

Merci pour ce retour, cela correspond bien pour l'ajout de ligne, mais lors de l'ajout, j'aimerai que la mise en forme de la ligne précédente se copie (fusion de colonnes / couleurs / Liste déroulantes) est-ce possible ?

Merci,

FloBru

bonjour le fil,

par exemple pour le "management", on prend la dernière ligne, la copie (partielle) et colle en dessous, puis on le vide.

Sub Management()
     Dim i     As Integer

     i = Range("B" & Rows.Count).End(xlUp).Row
     With Range("B" & i).Resize(, 7)
          .Copy .Offset(1)     'copier et coller tout
          .Offset(1).ClearContents     'RAZ le contenu (le format, ... reste)
     End With
End Sub

Sub Recrutement()
     Dim i     As Integer

     i = WorksheetFunction.Match("Management", Range("B:B"), 0)
     With Range("B" & i - 1 & ":H" & i - 1)
          .Offset(1).Insert xlDown, xlFormatFromLeftOrAbove
          .Copy .Offset(1)     'copier et coller tout
          .Offset(1).ClearContents     'RAZ le contenu (le format, ... reste)
     End With
End Sub

Super merci c'est exactement ce qu'il me fallait !

Merci pour l'aide et le détail !

Bien à vous,

FloBru