Microsoft 365 Transférer ligne entière vers une autre feuille si oui sur la ligne

[escar76]

Bonjour,

Ne maitrisant pas le langage VBA, je souhaiterais savoir si quelqu'un pourrait m'aider à transférer une ligne entière de ma feuille suivi prospects vers la feuille clients à partir du moment ou je mais un OUI dans la colonne B de ma feuille suivi prospects.
Voici en pièce jointe mon tableau...

J'ai vu que c'était possible mais je n'arrive pas à le mettre en application pour mon fichier.

Merci pour votre retour.

 

[escar76]

et pour info staple1600, 76 ce n'est pas mon département ...c'est ma date de naissance .............

 

[Staple1600]

Re

=>escar76
le 76, c'est bien pour la Seine-Maritime?
Ou je m'a trompé ?

EDITION: Tu aurais pu être né en 1976 dans le 76 durant la 76ième heure du 76ième jour (qui serait donc le 79ième)

 

[youky(BJ)]

Re,
J'ai bien apprécié le T au lieu du Target, merci JM cela use moins mes doigts

Option Explicit

Private Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If T.Column = 2 Then
If UCase(T.Value) = "OUI" Then Feuil2.Rows(Feuil2.[A65000].End(3).Row + 1).Value = Rows(T.Row).Value
If UCase(T.Value) = "NON" Then Feuil4.Rows(Feuil4.[A65000].End(3).Row + 1).Value = Rows(T.Row).Value
End If
End Sub

le Ucase permets Maj ou Minuscule

 

[Staple1600]

Re

Alors, si il faut épargner nos doigts
(et accessoirement faire dans la syntaxe chelou, pour le fun )

Private Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If T.Column = 2 Then
With Sheets(Switch(UCase(T) = "OUI", "Feuil2", UCase(T) = "NON", "Feuil4")): .Rows(.[A65000].End(3).Row + 1) = Rows(T.Row).Value: End With
End If
End Sub

 

[youky(BJ)]

JM, Tant pis pour mes doigts Bravo !
Bruno