Discussion :

[CALLEBOUT]

Bonjour,

J'ai créé un fichier sur excel 2010, fichier de calcul bien sur. Je ne veut pas être bloqué dans mon tableau au niveau des lignes, c est à dire que je ne veut pas figer mon nombre de ligne.

En gros, j'aimerais savoir comment créer automatiquement des lignes sans passer par l-insertion manuelle.

A noter qu'en bas de tableau j'ai des totaux et chaque ligne a des formules de calcul.

Merci d'avance.

[JPierreM]

Bonjour,

Nommer le tableau Tableau puis dans le module de la feuille contenant le tableau placer le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Long
 
a = [Tableau].Rows.Count
 
    If Target.Row = a-1 Then
        Rows(a).Insert Shift:=xlDown
    End If
 
End Sub

Une ligne sera inserrée à chaque sélection de l'avant derière ligne du tableau