Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie dans une autre feuille

  • Initiateur de la discussion Initiateur de la discussion pat12
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pat12

XLDnaute Occasionnel
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.
 
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.
@+
 
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.
@+
 
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]
 
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:

Code:
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.
 
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.
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
222
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…