Copie feuille (suite)

[pat12]

Bonjour,
J'ai un script qui fonctionne très bien ce script a été réalisé par Skoobi mais j'ai une autre modification à faire et je ne voudrai pas mobiliser le temps précieux de Skoobi.


Les infos entrées sur la feuille1 colonne ABCDE sont copié sur la feuille2 dans les mêmes colonnes. Si dans la colonne E le mos TATA est inscrit.

Ce que je souhaite ajouter a ce code toujours de la feuille1 copié les colonne ABCDE dans une feuille3 Si dans la colonne E le mos TOTO est inscrit.

Je pensai pouvoir le faire, mais je renonce je ne suis pas assez doué.
Merci pour les réponses.

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

 

[skoobi]

Re : Copie feuille (suite)

Bonsoir,

Voilà pour TOTO:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [E65536].End(xlUp).Address And Target.Count = 1 Then
   With Sheets("Feuil2")
       der_lig = .[E65536].End(xlUp).Offset(1, 0).Row
       .Rows("2:" & der_lig).Clear
       For Each cellule In Range([E2], [E65536].End(xlUp))
         der_lig = .[E65536].End(xlUp).Offset(1, 0).Row
         If cellule.Value = "TATA" Then cellule.EntireRow.Copy .Rows(der_lig)
       Next
   End With
   [COLOR=Blue][B]With Sheets("Feuil3")
       der_lig = .[E65536].End(xlUp).Offset(1, 0).Row
       .Rows("2:" & der_lig).Clear
       For Each cellule In Range([E2], [E65536].End(xlUp))
         der_lig = .[E65536].End(xlUp).Offset(1, 0).Row
         If cellule.Value = "TOTO" Then cellule.EntireRow.Copy .Rows(der_lig)
       Next
   End With[/B][/COLOR]
End If
End Sub

Pour TITI, il faudra demander à quelqu'un d'autre car je ne suis pas là ce week-end .

Bonne soirée à toutes et à tous et bon week-end.
Amitiés XLDiennes

 

[pat12]

Re : Copie feuille (suite)

Bonjour Skoobi,
Désolé il n'y aura pas de Titi, un grand merci et bon Week-end.
@+