Fonction Si ou

Bonjour,

Etant encore novice dans le langage VBA Excel, je viens vers vous afin que vous puissiez m'éclairer.

La macro que je souhaite faire est pour ma collègue qui s'occupe des achats:

Si quand la colonne D, il y a un texte "Nous" ou "Eux", je coupe la ligne où il y a le texte et je la met dans la liste dans l'onglet suivant.

Au fur et à mesure, la liste du 2ème onglet s'agrandi.

En résumé, dès que la commande est complète, elle est rangé dans le 2ème onglet.

Dans ce cas là, je ne suis pas par où commencer.

Merci bien et bonne journée

Salut,

Voici une proposition :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long
If Target.Column = 4 Then
  If Target = "Nous" Or Target = "Eux" Then
    Ligne = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
    Target.EntireRow.Copy
    Sheets("Feuil2").Range("A" & Ligne).EntireRow.PasteSpecial xlPasteAll
    Target.EntireRow.Delete
  End If
End If
End Sub

Cette macro se lance lorsque "Eux" ou "Nous" apparaît dans la colonne D.

La ligne est alors copiée dans la Feuil2 puis détruite.

A+

H

La macro fonctionne a merveille.

Maintenant, il ne me reste plus qu'à comprendre la macro.

Bravo et merci beaucoup