copie dans une autre feuille

[pat12]

Bonjour
J'ai 1feuilles dans un classeur
Je souhaite copier chaque ligne de la feuille 1 qui contient Un texte (exemple TATA) de la colonne C, vers la feuille 2
Merci j'espère avoir été assez clair.

 

[skoobi]

Re : copie dans une autre feuille

Bonsoir,

voici un exemple dans le fichier joint.

 

[pat12]

Re : copie dans une autre feuille

Merci Skoobi,
Pour ta réponse ultra rapide mais, j’ai oublié de préciser il faudrait que cela ce fasse automatiquement dés qu’il y aune nouvelle entrée dans la feuille 1.
@+

 

[skoobi]

Re : copie dans une autre feuille

dés qu’il y aune nouvelle entrée dans la feuille 1.

N'importe ou sur la feuille ou quand une cellule bien précise est renseignée?

 

[pat12]

Re : copie dans une autre feuille

Quand il y a une nouvelle ligne et que la colonne (C) comporte TATA
@+

 

[skoobi]

Re : copie dans une autre feuille

Voici.

Je tiens à préciser que la macro vide tout le contenu de la feuille 2 avant de faire la mise à jour, il faudra reprendre le code si cela ne convient pas.

 

[pat12]

Re : copie dans une autre feuille

S'il n'y a pas de solution pour ne pas vider la feuille temps pis, mais la dernière cellule de la colonne D ne s’enregistre qu’après une nouvelle entrée, il y a un décalage.
Dommage mais merci quand même.
@+

 

[pat12]

Re : copie dans une autre feuille

Je viens de Faire un essai dans le classeur définitif ca fonctionne bien mais on efface a chaque foi la ligne 1 de la feuille 2.
La ligne 1 a les entêtes pour identifier les colonnes.
[FONT='Calibri','sans-serif']@+[/FONT]

 

[skoobi]

Re : copie dans une autre feuille

Je verrai tout ça demain si tu veux bien.

 

[pat12]

Re : copie dans une autre feuille

Oui bien sur bonsoir
Et merci@+

 

[skoobi]

Re : copie dans une autre feuille

Je viens de Faire un essai dans le classeur définitif ca fonctionne bien mais on efface a chaque foi la ligne 1 de la feuille 2.
La ligne 1 a les entêtes pour identifier les colonnes.
[FONT='Calibri','sans-serif']@+[/font]

Voici le code modifié en conséquence:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [C65536].End(xlUp).Address And Target.Count = 1 Then
   With Sheets("Feuil2")
       der_lig = .[C65536].End(xlUp).Offset(1, 0).Row
       .Rows("2:" & der_lig).Clear
       For Each cellule In Range([C2], [C65536].End(xlUp))
         der_lig = .[C65536].End(xlUp).Offset(1, 0).Row
         If cellule.Value = "tata" Then cellule.EntireRow.Copy .Rows(der_lig)
       Next
   End With
End If
End Sub

la dernière cellule de la colonne D ne s’enregistre qu’après une nouvelle entrée, il y a un décalage.

Ben avant tu parlais de colonne C mais pas D, sois plus clair stp.

 

[pat12]

Re : copie dans une autre feuille

Bonjour Skoobi.
Le script marche mais:
en fait j'ai 5 colonne A,B,C,D,E a copier dans feuille 2.
La référence pour copier la colonne c'est TATA dans la colonne E
Je suis vraiment désolé aprés le script est fini.
Et encore merci de faire partager ton savoir.
@+

 

[pat12]

Re : copie dans une autre feuille

J'ai installé le script dans le classeur définitif et tout fonctionne.
Donc le sujet est clos merci SKOOBI pour ton aide.
@+