Macro test et fonctions

Bonjour à tous et bravo pour les aides que vous pouvez apporter.

donc voici le problème auquel je suis confronter :

je gère une salle des ventes. chaque article ( meuble en général ) est référencé puis est décrit et enfin des colonne explique son état ( vendu, don , date , eco-mobilier)

je suis en train de programmer une macro que je voudrai mettre dans la dernière cellule de la ligne qui doit être testée. Celle-ci test la colonne D ( vendu ) de la feuille si différente de "" ( ici un X ) j'aimerai copier la ligne de la cellule dans une autre feuille intitulée "Vendu" à la suite des lignes déjà présentes puis cacher la ligne qui vient d'être copier.

je ne veux pas les supprimer car les données de ces lignes sont utilisées dans d'autre feuille.

voila j'espère avoir été assez clair sinon demandez je vous répondrai le plus vite possible.

donc toute aide serait la bienvenue car je ne suis que débutant en programmation macro .

si on peux faire cela en formule dans la dernière cellule à la place d'une macro je suis preneur aussi.

merci d'avance

Bonjour,

une vue (copie d'écran) serait la bienvenue

Citation:

---

Envoyé par curt

Bonjour,

une vue (copie d'écran) serait la bienvenue

---

Pièce jointe 621357

la formule serait dans la cellule jaune

autrement en macro voila ou j'en suis

Pièce jointe 621358

Bonjour à tous

Citation:

---

Celle-ci test la colonne D ( vendu ) de la feuille si différente de "" ( ici un X ) j'aimerai copier la ligne de la cellule dans une autre feuille intitulée "Vendu" à la suite des lignes déjà présentes puis cacher la ligne qui vient d'être copier.

---

Ton souhait est difficile à réaliser sans macro alors je te propose de coller cette macro dans la feuille vendu et cela devrait répondre à ton attente.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Activate() ' onglet vendu Dim der As Long With Sheets("Inventaire") Cells.ClearContents .Rows.Hidden = False Range("A1:H1").Value = .Range("A1:H1").Value .Range("M1").Value = "ventes" .Range("M2").FormulaR1C1 = "=NOT(ISBLANK(RC[-9]))" der = .Cells(Rows.Count, 1).End(xlUp).Row .Range("A1:H" & der).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=.Range("M1:M2"), CopyToRange:=Range("A1:H1"), Unique:=False .Range("M1:M2") = "" For der = der To 2 Step -1 If .Cells(der, "D") <> "" Then .Rows(der).Hidden = True Next der End With End Sub

---

Lorsque tu sélectionnes la feuille "vendu" les lignes sont affichées et masquées dans la feuille "Inventaire"

Bonjour profaites

Citation:

---

voila j'espère avoir été assez clair sinon demandez je vous répondrai le plus vite possible.

---

Les promesses n'engagent que ceux qui les croient disait un président et j'ai l'impression que la rapidité de réponse n'ait pas celle promise : tant pis pour moi.

Citation:

---

Envoyé par anasecu

Bonjour profaites



Les promesses n'engagent que ceux qui les croient disait un président et j'ai l'impression que la rapidité de réponse n'ait pas celle promise : tant pis pour moi.

---

dsl je n'ai pas eu le temps de m'y consacrer

dès que je le fait je te tient au courant

merci de ton aide en tout cas