Discussion :

[stef3700]

Bonjour voici les codes qui fonctionne presque correctement
pour effectuer une insertion automatique avec les numéros de ligne voir mon fichier joint

Voila la je coince pour effectuer une suppression des lignes vides soit automatiquement ou par action du bouton .
Puis de pouvoir coller un ensemble de cellules en A avec insertion automatique.
Merci d'avance .

Voici le code dans la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range) 'Ajout de ligne automatique depuis un tableaux
    If Target.Count > 1 Then Exit Sub
     If Not Intersect(Target, Me.ListObjects(1).ListColumns(1).DataBodyRange) Is Nothing Then
        If Not IsEmpty(Target) Then
         ActiveSheet.Unprotect ("toto")
            Me.ListObjects(1).ListRows.Add
         ActiveSheet.Protect ("toto")
        End If
     End If
End Sub
Public Sub CleanTable()
    If Not Me.ListObjects(1).DataBodyRange Is Nothing Then Me.ListObjects(1).DataBodyRange.Delete
    End Sub

Puis la macro du bouton

Code :

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

1
2
3
4
5
6
Sub Macro1()
   'Range("").Select
  ActiveSheet.Unprotect ("toto")
     Selection.ListObject.ListRows(1).Delete
  ActiveSheet.Protect ("toto")
End Sub