insertion de ligne

J

jp14

XLDnaute Barbatruc

• 4 Février 2010

• #2

Re : insertion de ligne

Bonsoir

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

Code:

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

 

Dernière édition: 4 Février 2010

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 4 Février 2010

• #3

Re : insertion de ligne

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

Patrick

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 4 Février 2010

• #4

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

Cliquez pour agrandir...

Dans le post

ma dernière cellule de la colonne A

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 5 Février 2010

• #5

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 5 Février 2010

• #6

Re : insertion de ligne

Bonjour

patrick7676 à dit:

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

Patrick

Cliquez pour agrandir...

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

JP

 

Vote positif 0 Vote négatif