Insertion d'une ligne dans une feuille, une cellule prend une valeur

Bonjour à tous,

J'aimerais que lorsque l'on ajoute un ligne dans la feuille, la valeur de la cellule A1 de cette ligne inséré soit X.

Cordialement,

Paul

Bonjour,

Bonjour Raja,

Je pense qu'il n'y a pas besoin de PJ. Suivant ma demande nous pouvons partir sur un fichier vierge.

Si j'insère une ligne dans la feuille. Dans cette ligne, il doit y avoir "X" dans la colonne A.

Cordialement

Paulo

Re,

Essaye ce code alors :

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("A" & Target.Row) = "A"
End Sub

Raja,

La valeur "A" s'intègre bien dans la colonne A après l'insertion de la ligne mais il me met ce message d'erreur.

MeaCulpa,

Essaye comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Range("A" & Target.Row) = "A"
    Application.EnableEvents = True
End Sub

Merci Raja,

Cela fonctionne parfaitement.