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.
@+