Evénement insertion

Bonjour,

Est il possible lorsqu'une ligne est insérée qu'en colonne B de cette même ligne un texte s'ajoute ?

Merci

Bonjour Jahman, bonjour le forum,

Je ne crois pas qu'il existe une événementielle qui réagisse à l'insertion d'une ligne. Donc je dirais que ce n'est pas possible...

Bonjour Jahman, Bonjour ThauTheme,

Peut-être avec un test de la colonne B

Dim Ligne As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ligne = [B65536].End(3).Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nouvelleligne As Long
nouvelleligne = ActiveCell.Row
If [B65536].End(3).Row > Ligne Then
Cells(nouvelleligne, 2) = "montest"
End If
End Sub

Merci Xmenpl, ton code mettait un message d'erreur. Malgrè tout je m'en suis inspiré et j'ai pu en croisant d'autres info sur d'autres topic le code suivant qui fonction parfaitement.

Merci encore d'avoir pris le temps[codeDim Ligne As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Ligne = ActiveSheet.UsedRange.Rows.Count

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim nouvelleligne As Long

nouvelleligne = ActiveCell.Row

If UsedRange.Rows.Count > Ligne Then

Cells(nouvelleligne, 2) = "montest"

End If

End Sub][/code]

Sur mon fichier test je n'avais pas de message d'erreur

En tout cas, content que tu l'ais adapté à ta sauce