Discussion :

[UltrA_KichE]

Bonjour @ tous

Revoici la KichE aka Théodore.
J'ai ici un petit bout de code pour insérer une ligne dans un tableau.
L'idée est d'aller à la dernière ligne remplie, puis de descendre de 1 ligne puis d'insérer ma ligne là.

Le truc c'est que j'ai plusieurs cellules avec des formules donc je veux sélectionner la ligne du dessous (celle qui avait les formules et qui a été repoussée) et "tirer les formules".

Voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ajouter_lignes()
Range("A25").Select
    Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        Selection.EntireRow.Insert
            ActiveCell.Offset(1, 0).Select
            Selection.EntireRow.Select
                Range(Selection, Selection.EntireRow).Select
                Selection.AutoFill Destination:=Range("XXX"), Type:=xlFillDefault
                Range("XXX").Select
    ActiveCell.Select
End Sub

Je bloque au niveau du range de destination, je ne sais pas comment écrire ça en ref relative.

Merci de vos contributions.

Théodore

[Invité]

Bonjour,

En ce qui me concerne, votre question n'est pas très claire :

L'idée est d'aller à la dernière ligne remplie, puis de descendre de 1 ligne puis d'insérer ma ligne là.

Or, avec votre code, vous sélectionnez la dernière ligne remplie, puis vous sélectionnez la ligne suivante : en principe elle est vide ?

Alors pourquoi insérer une ligne vide à partir d'une ligne vide et de plus deux fois ?

Ensuite que voulez-vous faire : copier uniquement les cellules de la dernière ligne contenant des formules ?

[UltrA_KichE]

Bonjour

Je vous remercie pour cette prompte réaction.

En effet mon explication n'est pas très claire.

Ce que je veux dire c'est que:
- les utilisateurs de ce tableaux sont des débutants absolus donc ne savent pas insérer de lignes : j'ai été prié de créer "un bouton" pour ça
- il y a plein de formules (recherchev, mise en forme conditionnelles) dans les cellules donc je dois faire attention à ce qu'elles soient bien là et correctes
- j'ai eu l'idée de prendre la ligne du dessous (vide mais avec formule donc) parce que si je autofill la ligne du dessus (dernière ligne remplie, donc) je copie les données

A la réflexion, peut être qu'il vaut mieux faire un copier > insérer ligne, non ?

Merci à vous

[Invité]

Bonsoir,

Toujours pour le cas où j'ai bien compris, essayez (une solution parmi d'autres) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ajouter_lignes()
Dim Dl As Long, Dc As Integer, C As Integer
 
Range("A25").Select
    Dl = Range("A65536").End(xlUp).Row
    Dc = Range("A" & Dl).End(xlToRight).Column
    Range(Cells(Dl, 1), Cells(Dl, Dc)).Select
    Selection.Copy
    Range("A" & Dl + 1).Select
    ActiveSheet.Paste
        For C = 1 To Dc
        If Range(Cells(Dl + 1, C), Cells(Dl + 1, C)) <> Formula Then
        Cells(Dl + 1, C).ClearContents
        End If
        Next C
End Sub