Macro clearContent

Bonjour,

La macro ci-dessous permet de copier une ligne dont le champ est sélectionné (incluant toutes mes formules et mise en page). Sa fonctionne très bien. Mon pb c'est de supprimer toutes les données contenus dans la ligne copiée. J'aurai besoin d'un petit coup de main des experts en macro.

Merci d'avance

Sub iteration()

Application.ScreenUpdating = False

ActiveCell(2).Resize(1).EntireRow.Insert

ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow

End Sub

Bonjour

Essaie ça :

Sub iteration()

Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
Cells(ActiveCell.Row, 1).Resize(1, Columns.Count).Clear
End Sub

Bye !

Bonjour,

Merci de ta réponse. La modification ajoute un ligne au dessus de celle qui est sélectionnée mais le problème c'est que toute la mise en page ne corresponds plus à la ligne sélectionnée.

Je vais voir si je peux ajouter le .clear autrement

Voici la solution pour ceux qui sont intéressé

Sub iteration()

Application.ScreenUpdating = False

ActiveCell(2).Resize(1).EntireRow.Insert

ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow

On Error Resume Next 'au cas où il n'y ait pas de constantes

ActiveCell(2).Resize(1).EntireRow. _

SpecialCells(xlConstants).Clear

End Sub