afficher les 2 dernieres lignes ajouté sur une autre feuille

P

PhiBou

Guest

• 24 Janvier 2004

• #2

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

 

Vote positif 0 Vote négatif

N

Nicolas Pr

Guest

• 24 Janvier 2004

• #3

merci pour ton info Phibou
))

 

Vote positif 0 Vote négatif

N

Nicolas pr

Guest

• 25 Janvier 2004

• #4

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 25 Janvier 2004

• #5

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

 

Vote positif 0 Vote négatif

N

Nicolas Pr

Guest

• 25 Janvier 2004

• #6

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 26 Janvier 2004

• #7

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

 

Vote positif 0 Vote négatif

N

Nicolas pr

Guest

• 26 Janvier 2004

• #8

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

 

Vote positif 0 Vote négatif

N

Nicolas pr

Guest

• 26 Janvier 2004

• #9

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

 

Pièces jointes

• Exemple.zip

  5.8 KB · Affichages: 28
• Exemple.zip

  5.8 KB · Affichages: 10
• Exemple.zip

  5.8 KB · Affichages: 9

Vote positif 0 Vote négatif

M

michel

Guest

• 26 Janvier 2004

• #10

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

 

Vote positif 0 Vote négatif

N

Nicolas pr

Guest

• 27 Janvier 2004

• #11

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

 

Vote positif 0 Vote négatif

N

Nicolas pr

Guest

• 27 Janvier 2004

• #12

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

merci phibou et michel

@+

 

Vote positif 0 Vote négatif

N

Nicolas pr

Guest

• 27 Janvier 2004

• #13

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

 

Vote positif 0 Vote négatif