Copier dernière ligne du tab +Coller à la 1èr ligne vierge

Bonjour

Sur une feuille excel, J'ai un tableau formaté.

Je souhaiterais que le bouton "arrêt +" permette lors du clic

1- que le curseur se balade de haut en bas puis (car ceci permettra l'insertion)

2- que la dernière ligne non vierge du tableau soit copiée

3- puis collée dans la 1ère ligne vierge en dessous du curseur et vidée de ses contenus

4-et qu' en cellule V (ligne créée) la formule suivante calcule :

=V(ligne-1)+J(ligne)-M(ligne)-O(ligne)-Q(ligne)-S(ligne)-U(ligne)

merci d'avance pour votre aide

Zbig

Bonjour,

Voilà ce que j'ai fait comme macros afin de répondre à ta demande

Public Sub Deplacer_InsererVierge()
    Dim X As Integer
    X = Sheets("Feuil1").Range("A65536").End(xlUp).Row 'détection de la dernière ligne du tableau
    Rows(X).Select 'sélection de la ligne où insérer la nouvelle ligne
    Rows(X).Insert 'insertion de ligne
    Cells(X + 1, 22).Select 'Sélection de la cellule contenant la formule à copier
    Selection.Copy 'Copier
    Cells(X, 22).PasteSpecial _
        Paste:=xlPasteFormulasAndNumberFormats 'Collage spécial de la formule et du format numérique dans cellule de la ligne insérée

End Sub

En PJ, le fichiers avec la macro, est ce que c'est ce que tu souhaitais?

Bonjour Sylchat

merci pour avoir répondu.

Ta macro insère une ligne juste au dessus de la dernière ligne écrite.

Je souhaitais qu'elle ajoute juste après (en dessous) de la dernière ligne écrite.

C'est à dire si j'ai 3 lignes, elle crée une 4e ligne sur le même format que la 3e.

Cependant, ta macro m'intéresse, je la garde également pour insérer au dessus .

est ce possible aussi que cela fonctionnne avec n'importe quelle feuille et pas uniquement feuill1 ?

en utilisant ta macro et l'enregistrement automatique

j'ai trouvé un code qui fonctionne mais aps totalement (clignotement)

peux tu m'aider? Merci

Public Sub Deplacer_InsererVierge()
    Dim X As Integer
    X = Range("A65536").End(xlUp).Row
    Rows(X).Select
    Selection.Copy
    Rows(X + 1).Select
    ActiveSheet.Paste
 End Sub

Cordialement.

Zbig

rebonjour

Public Sub Deplacer_InsererVierge()
    Dim X As Integer
    X = Sheets("Feuil1").Range("A65536").End(xlUp).Row 'détection de la dernière ligne du tableau
   rows(22).Select 'Sélection de la ligne
   Selection.Copy 'Copier
  rows(X+1).PasteSpecial _
        Paste:=xlPasteAll 'Collage spécial 

End Sub

Rebonjour

c'est bizarre, la macro copie toujours la ligne 22 au lieu de la ligne précédente ??

a+

Zbig

Re,

Excuse moi, j'ai oublié de corrigé ce morceau

rows(22).Select 'Sélection de la ligne

Il faut mettre ça à la place

rows(X).Select 'Sélection de la ligne

Bonsoir

ok ça fonctionne nickel.

Comment faire pour effacer le contenu des cellules de cette même ligne (x+1) pour les colonnes suivantes:

A:D

F:U

W:AD

Merci

Zbug