insérer un nouveau libellé dans la derniere ligne non vide

[TheProdigy]

Bonjour à tous,

Un grand salut à tous les fans de ce merveilleux forum et aux grosses têtes. Je vous expose mon problème:

J'aimerais bien à chaque ajout d'une ligne achat d'un nouveau actif dans la feuille Achat, l'actif soit ajouté dans la dernière ligne non vide de mon portefeuille colonne A.
Je suis ouvert à tout type de suggestions.

Merci à tous

 

[job75]

Re : insérer un nouveau libellé dans la derniere ligne non vide

Bonjour,

A placer dans le code de la feuille Achat (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Application.CountIf(Range("A:A"), Target) > 1 Then Exit Sub
Sheets("PRTF_RT").Range("A65536").End(xlUp)(2) = Target
End Sub

A+

 

[TheProdigy]

Re : insérer un nouveau libellé dans la derniere ligne non vide

Merci mais si jamais je supprime la ligne en question il affiche erreur.