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.

 

[M12]

Bonjour
A tester en mettant oui dans une des cellules de la colonne B

 

[youky(BJ)]

Bonjour,
Voici la macro et le fichier
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value = "OUI" Then
Feuil2.Rows(Feuil2.[A65000].End(3).Row + 1).Value = Rows(Target.Row).Value
End If
End Sub

 

[Staple1600]

Bonjour le fil

=>Youky(BJ) (meilleurs voeux pour 2021)
J'ai rajouté un test sinon erreur chez moi
Et je suis passé par EntireRow (si j'ai bien compris la donne)

Private Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If T.Column = 2 And T.Value = "OUI" Then
Feuil2.Cells(Rows.Count, 2).End(3)(2).EntireRow = T.EntireRow.Value
End If
End Sub

 

[youky(BJ)]

Meilleurs voeux JM, également à tous
Pas mal de temps sans rien foutre en VBA et hop on en oubli les fondamentaux ( le count ).
Par contre pourquoi EntireRow alors que Row fonctionne chez moi.
Je n'ai pas encore fait de différence entre eux.
Bruno

 

[Staple1600]

Re

Par contre pourquoi EntireRow alors que Row fonctionne chez moi.

Parce que je suis quelqu'un d'entier
(et histoire de varier les plaisirs)

 

[escar76]

Bonjour,
Voici la macro et le fichier
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value = "OUI" Then
Feuil2.Rows(Feuil2.[A65000].End(3).Row + 1).Value = Rows(Target.Row).Value
End If
End Sub

Merci beaucoup !!

Merci pour votre réactivité et votre efficacité..

 

[escar76]

Bonjour
A tester en mettant oui dans une des cellules de la colonne B

Merci M12,

ça marche impeccable..

Et merci pour ta rapidité........

 

[Webperegrino]

Bonjour Le Forum,
Pour faire avancer le "Chimili...", avec la version de STAPLE1600, il m'a fallu ajouter "Set T=Target" en début de code, sinon "bug".
Meilleurs vœux à vous quatre (# précédents ici),
Webperegrino

 

[escar76]

Bonjour
A tester en mettant oui dans une des cellules de la colonne B

Sans vouloir déranger, est il possible rajouter dans le même fichier une 2ème macro qui permettrait quand on écris non dans toujours la colonne B, que la ligne entière aille cette fois dans le fichier sans suite????

Merci pour ton retour

 

[Staple1600]

Re

=>escar76
Je pue de la g*eul*? ou tu n'aimes pas la Bretagne?
(voir le message#4 que tu sembles avoir zappé)
NB: C'est bien la peine d'être originaire de la Seine-Maritime (76) pour être ainsi ignoré par ses anciens voisins...

 

[M12]

Re,
A tester

 

[escar76]

Re

=>escar76
Je pue de la g*eul*? ou tu n'aimes pas la Bretagne?
(voir le message#4 que tu sembles avoir zappé)
NB: C'est bien la peine d'être originaire de la Seine-Maritime (76) pour être ainsi ignoré par ses anciens voisins...

Oups !!!

désolé !! effectivement j'ai zappé ta réponse....
Je suis nouveau sur ce site donc je suis pas encore familiariser avec.....

Un grand merci aussi !!! et vraiment navré ....

 

[escar76]

MERCI M12 !

C'est parfait !

 

[escar76]

Oups !!!

désolé !! effectivement j'ai zappé ta réponse....
Je suis nouveau sur ce site donc je suis pas encore familiariser avec.....

Un grand merci aussi !!! et vraiment navré ....