Insérer une ligne

Bonjour à tous,

Je sais bien , c'est de la déco, et ça parait tout bête, mais je trouve pas de solution esthétique automatique, et reprendre à chaque fois la mise en forme soit même manuellement Pfffffff.

J'explique aux gens

Dans un Tableau nommé, Ma Macro VBA inscrit les informations issues de ma feuille de saisie ( ce n'est pas un userform ). En fin de procédure j'insère une ligne vierge en début de tableau pour inscrire les prochaines valeurs. Tout fonctionne parfaitement, sauf que, la ligne insérée au format de la ligne du dessous ne reprend pas les délimitations de cadre de couleurs et d'enrichissement définies avec mon tableau.

Il est possible d'obtenir cet effet avec un copier coller, voici ce que cela donne

Sub CopierColler()
' CopierColler Macro
' Recherche essai pour insertion de ligne avec séparateurs, mises en couleur et enrichissements
Rows("5:5").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=561
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
End Sub

Je voudrais obtenir pareil lors d'une insertion de ligne ? est ce que quelqu'un connaitrait une solution. ???

Merci d'avoir eu le courage de lire jusqu'au bout.......... à Pluche

Bonjour

Un exemple du fichier serait bien pratique

crdlt

Bonjour à tous,

En travaillant avec un tableau structuré ....?

Cordialement,

re,

un essai sans fichier

Sub CopierColler()
     ' CopierColler Macro
     ' Recherche essai pour insertion de ligne avec séparateurs, mises en couleur et enrichissements
     Rows("6:6").Insert
     With Rows("5:5")
          .Copy .Offset(1)
          On Error Resume Next
          .SpecialCells(xlConstants).ClearContents
          On Error GoTo 0
     End With
End Sub

voici un modèle

de mon fichier avec en feuille 3 le libellé complet de la macro d'enregistrement, les fonctions sont liées à un fichier d'adresses et de bases standard, je ne sais pas si vous en avez besoin pour comprendre le problème qui est d'insérer une ligne dans le tableau de la feuille 2 ?

re,

comme ceci ? Si nécessaire, on peut aussi utiliser un tableau structuré ...

Sub Nouveau_Valider_Transport()
     Dim SH

     Set SH = Sheets("Saisie Deplt")         'cette feuille
     If SH.Range("I21").Value = "" Then MsgBox "problème .... ": Exit Sub

     Application.ScreenUpdating = False
     With Sheets("Feuil1")                   'cette feuille
          .Unprotect "JJL"                   'enlever protection
          .Rows("6:6").Insert                'insérer une nouvelle ligne 6
          .Range("A5:Y5").Copy .Range("A6")  'copier&coller le contenu de A5:Y5 dans A6
          .Range("A5:Y5").ClearContents      'vider A5:Y5
          SH.Range("I2:I23").Copy            'copier vos nouveaux données de "Saisie...."
          .Range("A5").PasteSpecial xlValues, Transpose:=True     'coller les ici
          .Protect "JJL"                     'remettre protection
     End With

     With SH
          .Unprotect "JJL"                   'enlever protection
          .Range("I2,I5:I6,I10:I13,I16:I17,I20:I21").ClearContents     'vider les cellules de "Saisie..."
          .Protect "JJL"                     'rmettre protection
     End With
     Application.ScreenUpdating = True

End Sub

Super Bart,

j'essaie ça dès quez possible (un peu débordé en ce moment ) et reviendrais te dire

Merci