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

TheProdigy · 9 Février 2009

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 · 9 Février 2009

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) :

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 · 9 Février 2009

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.

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

TheProdigy

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

Discussions similaires

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

TheProdigy

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency