Discussion :

[Sylcoco]

Bonjour,

Je souhaiterai par une macro (associée à un bouton) copier et insérer une ligne de donnée (toujours la même, 2:2) directement sous la dernière ligne contenant des données et que le n° repère s'incrémente.

D'avance merci pour l'aide à la création de cette macro.

Sylvain

[jerome.vaussenat]

Salut,

Voici un bout de code à insérer dans un module VBA. Tu trouveras bien comment faire ...

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 copie()
    Dim der_ligne As Double
    Dim num As Double
 
    'on détermine le N° de la dernière ligne
    der_ligne = Range("A100000").End(xlUp).Row
    'on détermine le dernier N° utilisé dans la colonne A
    num = Cells(der_ligne, 1).Value + 1
 
    'On copie la ligne 2 en fin de tableau
    Range("2:2").Copy Cells(der_ligne + 1, 1)
    'on insère le N° dans la colonne A
    Cells(der_ligne + 1, 1).Value = num
    'On efface le contenu de la ligne 2
    Range("2:2").ClearContents
End Sub

Le tout commenté pour que tu puisse comprendre (et apprendre) et modifier si nécessaire.

En espérant que ça t'ira.

GG

[Sylcoco]

Jérôme bonjour,

Solution parfaite et merci pour les explications.

Sylvain

[Sylcoco]

Jérôme bonjour,

Serait-il possible d'adapter la macro afin d'insérer une ligne en avant dernière position en mode tableau ?

D'avance merci,

Sylvain

[modus57]

Bonjour,

Une petite piste :

Code :

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

1
2
3
4
5
6
7
8
Sub AjoutAvantDernièreLigne()
    Dim t As ListObject
    Dim n As Long
    Set t = ActiveSheet.ListObjects("Tableau1")
    n = t.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Count
    MsgBox "Nombre de lignes visibles : " & n
    Range("Tableau1[Prénom]")(Range("Tableau1[Prénom]").Count - 1).ListObject.ListRows.Add (n)
End Sub

[Sylcoco]

Bonjour,

Merci pour ce code.
Je vais essayer.

Sylvain