afficher les 2 dernieres lignes ajouté sur une autre feuille

[Nicolas PR]

bonjour a tous

comment puis je faire pour afficher les 2 derniers lignes ajouté de ma feuille1 sur ma feuille2

Merci pour vos reponces

 

[PhiBou]

Bonjour Nicolas PR, le Forum

Si tu veux toujours avoir les 2 dernières lignes entrées sur la Feuil1 (colonne A) dans par exemple les cellules A1 et A2 de la Feuil2 tu mets
ce code dans le WorkSheet de la Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der As Long
Der = Range("A65536").End(xlUp).Row
[Feuil2].Cells(1, 1) = [Feuil1].Cells(Der - 1, 1)
[Feuil2].Cells(2, 1) = [Feuil1].Cells(Der, 1)
End Sub

Bonne journée

PhiBou

 

[Nicolas Pr]

merci pour ton info Phibou
🙂))

 

[Nicolas pr]

salut a tous

je comprend pas lorsque je mais ce code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Der As Long
Der = Range("A65536").End(xlUp).Row
[Feuil2].Cells(1, 1) = [Feuil1].Cells(Der - 1, 1)
[Feuil2].Cells(2, 1) = [Feuil1].Cells(Der, 1)
End Sub

comme me la dit phibou
cela génére une erreur 1004 d'execution pourquoi

merci pour tout vos infos

 

[michel]

bonjour Nicolas , bonjour Phibou

dans ton cas , ce message d'erreur peut s'afficher lorsque tu effectues une saisie une premiere donnée dans la cellule A1 de la feuille 1 ou en supprimant une valeur dans la colonne A , qui ne contient qu'une seule donnée

essaye d'inserer en debut de procedure :
On error Resume Next

bon dimanche
michel

 

[Nicolas Pr]

merci michel pour ta reponce

mais jai mis comme tu mas dit On error Resume Next
mais cela ne fonction toujours pas snif
ou alors
comment puis je faire ou au moin afficher l'envant dernier ligne de ma feuil1
sur ma feuil2

en tous cas merci pour tout vos reponces
@+
Nicolas Pr

 

[michel]

bonjour Nicolas

peux tu envoyer sur le forum un exemple zippé , sans informations confidentielles , pour regarder plus en détail ou cela coince

bonne soirée
michel

 

[Nicolas pr]

bonsoir michel

je te joins une feuille exemple sur lequelle je voudrais que les 2 derniers
lignes s'affiche sur la feuille2

encore merci de ton aide michel

@+ nicolas

 

[Nicolas pr]

bonsoir michel

je te joins une feuille exemple sur lequelle je voudrais que les 2 derniers
lignes s'affiche sur la feuille2

encore merci de ton aide michel

@+ nicolas

 

[michel]

bonsoir Nicolas

je viens de tester le classeur . Chez moi ( excel97) , la procedure de Phibou fonctionne tres bien et sans message d'erreur
quand je saisie une valeur dans la premiere cellule vide de la colonne A , cette valeur et celle de la celule superieure sont bien affichées dans la feuille 2

mais je n'ai peut etre pas bien saisi ce que tu recherches à faire

bonne soirée
michel

 

[Nicolas pr]

je te remercie pour ce complement d'info

le problème viens de chez moi je pense je vais faire un test sur excel 97 car moi j'utilise 2000

merci michel

 

[Nicolas pr]

oui cela fonction tres bien meme impec exactement ce que je voulais genial

merci phibou et michel

@+

 

[Nicolas pr]

bonjour

juste une petite question comment puis je l'adapter pour quel puis prendre plusieurs colonne de A a J par exemple

merci pour vos réponces