Copier et insérer des cellules

[Marc]

Bonjour,
Dans un tableau, en colonne A je souhaite
rechercher la derniere cellule A remplie,
me positionner en dessous (AVide),
copier la ligne qui contient des formules sur 16 cellules,
insérer ces cellules copiées
me repositionner sur AVide

 

[andré]

En combinant les deux macros ci-dessous (de Stéphane, je crois) tu pourras résoudre ton problème :

Rechercher la première cellule vide dans la colonne A :
Columns("a").End(xlDown).Offset(1).Select

Insérer une ligne et ne copier dans cette ligne que les formules de la ligne précédente :
[A1].Activate
On Error GoTo gest
With ActiveCell
With .EntireRow
.Offset(1).Insert Shift:=xlDown
.Copy ActiveCell.Offset(1)
.Offset(1).SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
End With
gest:
If Err Then MsgBox Err.Description

André.

 

[STéphane]

bonjour

pour ta mpremière isntruction, pas sûr que cela vienne de moi, je conseille plutôt cette syntaxe.

Columns("a").End(xlDown).Offset(1).Select

range("A65536").end(xlup).offset(1).select

bye
Stéphane

 

[andré]

Excuse-moi STéphane, j'avais oublié une ligne !

 

[STéphane]

celle-ci est inutile : Columns("a").End(xlDown).Offset(1).Select

 

[andré]

Et pour être complet, il faut y ajouter que les cellules vides dans des groupes fermés ne sont pas pris en considération.
Voilà.
André