insertion de ligne

[patrick7676]

bonjour

voila mon problème mais je pense que pour vous cela devrait être simple

je voudrais que lorsque j'ai rempli ma dernière cellule de la colonne A ,vienne s'ajouter une ligne vierge automatiquement

Merci de votre aide

Patrick

 

[jp14]

Re : insertion de ligne

Bonsoir

Un solution par macro. Il faudra supprimer ou non "+1" en fonction de l'insertion désirée.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
If Target.Count > 1 Then Exit Sub
Dim dl1 As Long ' dernière ligne
With Sheets(Target.Worksheet.Name)
dl1 = .Range("b65536").End(xlUp).Row

    If Not Intersect(Target, Range("b3:b" & dl1)) Is Nothing Then
        If Target = "" Then Exit Sub
        Rows(Target.Row + 1).Insert Shift:=xlDown
    End If

End With
'flag = False
End Sub

A tester

JP

 

[patrick7676]

Re : insertion de ligne

merci pour votre aide
mais je suis désolé elle ne marche pas

Patrick

 

[jp14]

Re : insertion de ligne

Bonsoir

Dans le fichier on a ce commentaire

1°)inserer une ligne automatiquement quand la colonne B du tableau est rempli

Dans le post

ma dernière cellule de la colonne A

La macro insère une ligne quand on inscrit une valeur dans une cellule de la colonne B.
Une question quelle est la dernière cellule ? J'ai considéré la dernière cellule renseignée.

JP

 

[patrick7676]

Re : insertion de ligne

inserer une ligne automatiquement quand la colonne A du tableau est rempli

excuse moi c'est une erreur de ma part

toutes mes excuses

Patrick

 

[jp14]

Re : insertion de ligne

Bonjour

inserer une ligne automatiquement quand la colonne A du tableau est rempli

Patrick

Pour modifier la colonne il faut remplacer les b par a
"b65536"
"b3:b"
A quel moment la colonne est remplie ?

JP