De: Andr&eacute; Barelier <andre.barelier@wanadoo.fr>
Objet: Re: Ajout et supp de lignes
Date : mercredi 29 novembre 2000 23:33

Bonsoir Herv&eacute;,
La macro ci-après, concoct&eacute; par Jacky, insère une nouvelle ligne en
conservant les formules de la ligne pr&eacute;c&eacute;dente. Si cela peut t'aider...
Andr&eacute;

Sub NouvelleLigneEnDessous()
' Insère une ligne sous la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient

Dim ZtNumLig As Integer
Dim ZtDerCol As Integer

    ActiveCell.Range("A2").EntireRow.Insert
    ZtNumLig = ActiveCell.Row
    ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
    Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
        Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
    Application.ScreenUpdating = False
    For i = 1 To ZtDerCol
        If Not Cells(ZtNumLig + 1, i).HasFormula Then
            Cells(ZtNumLig + 1, i).ClearContents
        End If
    Next i
    ActiveCell.Range("A2").Select
End Sub


" herv&eacute;" <herve.canto@wanadoo.fr> a &eacute;crit dans le message news:
903rin$mlr$1@wanadoo.fr...
> Bonjour à tous..
> Je cherche à inserer une ligne à chaque changement de valeur de cellule
> et dans un 2° tps à supprimer les lignes vides (pas dans la foul&eacute;...bien
> sur)
> j'arrive pas à trouver la r&eacute;ponse sur les news, pourtant j'ai vu passer il
y
> a un certain tps une question approchante,
> qui veut bien m'aider..
> merci
> herv&eacute;
>
>

 