Problème INSERT

[licwimi]

Bonjour à tous,

Je travaille sur une feuille de suivi qui s'appelle "Suivi" et j'aimerais qu'à chaque modification d'une ligne, celle-ci (la ligne complète) soit insérée dans une feuille historique "Histo" .
J'ai essayé:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
i = Target.Row
Sheets("Histo").Rows(i).Insert (xlShiftDown)
End Sub

Mais ça ne m'insère rien dans ma feuille historique...

Si il y a une solution plus facile avec une copie, je suis preneur aussi, mais j'ai essayé et je n'ai pas réussi avec les méthodes Copy, Select, Paste et Sheets("Histo").Cells(i,k).Value = Sheets("Suivi").Cells(i,k).Value avec une boucle sur k (k étant la colonne)


Merci d'avance pour votre aide !!

 

[Pierrot93]

Re : Problème INSERT

Bonjour,

soit insérée dans un classeur historique "Histo" .

un classeur ou une feuille nommée "histo" dans le même classeur que la macro ??

bon après midi
@+

 

[licwimi]

Re : Problème INSERT

pardon oui les deux feuilles, Suivi et Histo sont dans le même classeur !

 

[Pierrot93]

Re : Problème INSERT

Re,

regarde ceci :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
With Sheets("Histo")
    .Rows(Target.Row).Insert xlShiftDown
    Rows(Target.Row).Copy .Rows(Target.Row)
End With
End Sub

 

[licwimi]

Re : Problème INSERT

?? Je ne vois pas où il sait dans le code qu'il vient chercher les données dans la ligne en cours dans suivi...
Je viens de mettre le code tel quel, il n'y a toujours aucune donnée dans "Histo" ...
Aie aie aie

 

[Pierrot93]

Re : Problème INSERT

Re,

ce code est à placer dans le module de la feuille "suivi", click droit sur l'onglet => visualiser le code...

 

[licwimi]

Re : Problème INSERT

c'est ce que j'ai fais, mais ca ne marche pas....

Voici mon fichier:

 

[licwimi]

Re : Problème INSERT

et que signifie ton Target.Count > 1 dans ton If, je ne comprends pas pourquoi tu le mets ?

 

[Pierrot93]

Re : Problème INSERT

Re,

et que signifie ton Target.Count > 1 dans ton If, je ne comprends pas pourquoi tu le mets ?

au cas ou plusieurs cellules modifiée en méme temps, évite un plantage...

 

[licwimi]

Re : Problème INSERT

ok, malheureusement ça ne marche pas... Il n'y a rien qui apparaît dans ma feuille "Histo"

 

[licwimi]

Re : Problème INSERT

quelqu'un pour m'aider s'il vous plaît? Je galère tellement...

 

[Pierrot93]

Re : Problème INSERT

Re,

ok, malheureusement ça ne marche pas... Il n'y a rien qui apparaît dans ma feuille "Histo"

fonctionne chez moi, je ne comprends pas tous les codes dans ton fichier, test au moins celui donné dans un fichier tout neuf, cela te permetra de voir et de constater le fonctionnement...

 

[licwimi]

Re : Problème INSERT

If Target.Count > 1 Then Exit Sub
With Sheets("Histo")
.Rows(Target.Row).Insert xlShiftDown
Rows(Target.Row).Copy .Rows(Target.Row)
End With

il y a bien un espace ici?

 

[Pierrot93]

Re : Problème INSERT

Re,

oui, ou tu peux aussi l'écrire ainsi :

Rows(Target.Row).Copy Destination:=.Rows(Target.Row)

 

[licwimi]

Re : Problème INSERT

Ok ça marche sur un fichier test vierge !! Je vais essayer de réadapter et trouver ce qui ne va pas !! Merci beaucoup!


PS: là il me copie la ligne dès que je rentre une donnée dans une case, est-ce que je pourrais mettre une condition pour qu'il ne commence à copier dans l'historique que la fois d'après que le fichier est ouvert après le remplissage de la ligne. Est ce que ma demande est clair ?


Merci vraiment pour ton aide et ta rapidité, c'est génial !!!